httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/t/response/TestMore testmorepm.pm testpm.pm
Date Fri, 15 Oct 2004 04:32:36 GMT
geoff       2004/10/14 21:32:36

  Modified:    perl-framework/Apache-Test/t/conf .cvsignore
  Added:       perl-framework/Apache-Test/t/conf modperl_extra.pl.in
               perl-framework/Apache-Test/t/response/TestMore testmorepm.pm
                        testpm.pm
  Log:
  add missing files required for Test::More tests
  
  Revision  Changes    Path
  1.3       +1 -0      httpd-test/perl-framework/Apache-Test/t/conf/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/t/conf/.cvsignore,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- .cvsignore	19 Oct 2001 03:09:32 -0000	1.2
  +++ .cvsignore	15 Oct 2004 04:32:36 -0000	1.3
  @@ -4,4 +4,5 @@
   apache_test_config.pm
   modperl_inc.pl
   modperl_startup.pl
  +modperl_extra.pl
   
  
  
  
  1.1                  httpd-test/perl-framework/Apache-Test/t/conf/modperl_extra.pl.in
  
  Index: modperl_extra.pl.in
  ===================================================================
  use strict;
  use warnings FATAL => qw(all);
  
  use File::Spec ();
  
  use lib ();  # empty so we can calculate the lib to use
  
  my @libs = (File::Spec->catfile('@ServerRoot@', 'response'),
              File::Spec->catfile('@ServerRoot@', qw(.. lib)));
  
  lib->import(@libs);
  
  1;
  
  
  
  1.1                  httpd-test/perl-framework/Apache-Test/t/response/TestMore/testmorepm.pm
  
  Index: testmorepm.pm
  ===================================================================
  package TestMore::testmorepm;
  
  use strict;
  use warnings FATAL => qw(all);
  
  use Test::More;
  use Apache::Test qw(-withtestmore);
  
  sub handler {
  
    plan shift, tests => 2;
  
    is (1, 1, 'called Test::More::is()');
  
    like ('wow', qr/wow/, 'called Test::More::like()');
  
    0;
  
  }
  
  1;
  
  
  
  1.1                  httpd-test/perl-framework/Apache-Test/t/response/TestMore/testpm.pm
  
  Index: testpm.pm
  ===================================================================
  package TestMore::testpm;
  
  use strict;
  use warnings FATAL => qw(all);
  
  use Apache::Test;
  use Apache::TestUtil;
  
  sub handler {
  
    plan shift, tests => 1;
  
    ok t_cmp(1, 1, 'called Apache::Test::ok()');
  
    0;
  }
  
  1;
  
  
  

Mime
View raw message