[popfile-commit] engine tests.pl,1.11,1.12

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

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

Modified Files:
	tests.pl 
Log Message:
Added test suite for the classify_and_modify subroutine so that we can check that subject modification, XTC and XPL insertion are working correctly

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** tests.pl	11 Feb 2003 21:31:53 -0000	1.11
--- tests.pl	20 Feb 2003 21:30:31 -0000	1.12
***************
*** 8,11 ****
--- 8,13 ----
  # ---------------------------------------------------------------------------------------------
  
+ use strict;
+ 
  # Look for all the TST files in the tests/ subfolder and run
  # each of them by including them in this file with the use statement
***************
*** 87,91 ****
  	my $result;
  
! 	if ( $expected =~ /[^0-9]/ ) {
  	
  		# This int() and is so that we don't get bitten by odd
--- 89,93 ----
  	my $result;
  
! 	if ( !( $expected =~ /[^0-9]/ ) ) {
  	
  		# This int() and is so that we don't get bitten by odd