httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestUtil.pm
Date Sun, 11 Nov 2001 19:18:16 GMT
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;
  
  
  

Mime
View raw message