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

[stas]

stas        2003/01/21 22:58:54

  Modified:    perl-framework/Apache-Test/lib/Apache Test.pm
  Log:
  under_construction: Another convenience shortcut to skip the test with the
  reason: "This test is under construction"
  
  Revision  Changes    Path
  1.51      +6 -2      httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm
  
  Index: Test.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/Test.pm,v
  retrieving revision 1.50
  retrieving revision 1.51
  diff -u -r1.50 -r1.51
  --- Test.pm   22 Jan 2003 06:52:44 -0000      1.50
  +++ Test.pm   22 Jan 2003 06:58:54 -0000      1.51
  @@ -12,8 +12,8 @@
   
   @ISA = qw(Exporter);
   @EXPORT = qw(ok skip sok plan have have_lwp have_http11
  -             have_cgi have_access have_auth have_module
  -             have_apache have_perl have_threads);
  +             have_cgi have_access have_auth have_module have_apache
  +             have_perl have_threads under_construction);
   $VERSION = '0.01';
   
   %SubTests = ();
  @@ -284,6 +284,10 @@
       return $status;
   }
   
  +sub under_construction {
  +    push @SkipReasons, "This test is under construction";
  +    return 0;
  +}
   
   package Apache::TestToString;