cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestUtil.pm

[dougm]

dougm       01/11/11 11:18:16

  Modified:    perl-framework/Apache-Test/lib/Apache TestUtil.pm
  Log:
  add support for regexes in t_cmp
  
  Revision  Changes    Path
  1.12      +4 -0      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm
  
  Index: TestUtil.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- TestUtil.pm       2001/11/03 17:10:00     1.11
  +++ TestUtil.pm       2001/11/11 19:18:16     1.12
  @@ -153,6 +153,10 @@
                   t_is_equal($a->{$key}, $b->{$key}) || return 0;
               }
           }
  +        elsif ($ref_a eq 'Regexp') {
  +            #t_cmp(qr{^Apache}, $server_version)
  +            return $b =~ $a;
  +        }
           else {
               # try to compare the references
               return $a eq $b;