1HEADmaster

1 files changed, 13 insertions, 0 deletions

diff --git a/unittests/autotestscripts/test_error_reporting.pl b/unittests/autotestscripts/test_error_reporting.pl
new file mode 100644
index 0000000..f705f9c
--- /dev/null
+++ b/unittests/autotestscripts/test_error_reporting.pl
@@ -0,0 +1,13 @@
+#! perl
+$errfname="//fileserver/user/cgreen/force_an_error.txt";
+
+if (-e $errfname )
+  {
+	unlink $errfname;
+	open(ERROUT,">errors.txt") || die "huh - can't write";
+	{
+	  print ERROUT "This is not an error - its just a test of the error script system.\n";
+	  close ERROUT;
+	}
+
+  }