unittests/autotestscripts/test_error_reporting.pl


1
2
3
4
5
6
7
8
9
10
11
12
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;
	}

  }