[popfile-commit] engine tests.pl,1.17,1.18

[<jgr...@us...>]

Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv27423

Modified Files:
	tests.pl 
Log Message:
Make the test runner alert when errors are found within test suites

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** tests.pl	9 Jul 2003 18:18:09 -0000	1.17
--- tests.pl	11 Jul 2003 21:53:16 -0000	1.18
***************
*** 171,175 ****
  	}
  	close SUITE;
! 	eval $suite;
  	
  	if ( $test_failures > $current_error_count ) {
--- 171,177 ----
  	}
  	close SUITE;
! 	if ( !defined( eval $suite ) ) {
!             print "Error in $test: $@";
! 	}
  	
  	if ( $test_failures > $current_error_count ) {