popfile-commit

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

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

Modified Files:
	tests.pl 
Log Message:
Allow multiline matching in a regexp

Index: tests.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** tests.pl	1 Aug 2003 01:11:43 -0000	1.26
--- tests.pl	20 Aug 2003 17:30:50 -0000	1.27
***************
*** 145,149 ****
  {
      my ( $file, $line, $test, $expected, $context ) = @_;
!     my $result = ( $test =~ /$expected/ );
  
      test_report( $result, "expecting to match [$expected] and got [$test]", $file, $line, $context );
--- 145,149 ----
  {
      my ( $file, $line, $test, $expected, $context ) = @_;
!     my $result = ( $test =~ /$expected/m );
  
      test_report( $result, "expecting to match [$expected] and got [$test]", $file, $line, $context );