[popfile-commit] engine tests.pl,1.14,1.15

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

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

Modified Files:
	tests.pl 
Log Message:
Restored POPFile test suite to working order, note that many tests are currently failing and need to be udpated, I am on this.  Also added code to detect the Camouflage spam trick by using Pythagoras on the two RGB values

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** tests.pl	25 Mar 2003 05:24:52 -0000	1.14
--- tests.pl	18 Jun 2003 20:34:55 -0000	1.15
***************
*** 38,42 ****
  	
   	$test_count += 1;
!  	
   	if ( !$ok ) {
   		$fail_messages .= "\n    $file:$line failed '$test'";
--- 38,42 ----
  	
   	$test_count += 1;
! 	
   	if ( !$ok ) {
   		$fail_messages .= "\n    $file:$line failed '$test'";
***************
*** 46,50 ****
   		$test_failures += 1;
   	}
!  	
   	flush STDOUT;
  }
--- 46,50 ----
   		$test_failures += 1;
   	}
! 	
   	flush STDOUT;
  }
***************
*** 123,128 ****
  
  	# This works by reading the entire suite into the $suite variable
! 	# and then changing calls to test_assert_equal so that they include 
! 	# the line number and the file they are from, then the $suite is 
  	# evaluated
  	my $current_test_count  = $test_count;
--- 123,128 ----
  
  	# This works by reading the entire suite into the $suite variable
! 	# and then changing calls to test_assert_equal so that they include
! 	# the line number and the file they are from, then the $suite is
  	# evaluated
  	my $current_test_count  = $test_count;