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;
|
