sbekman 01/06/21 20:57:19
Modified: Apache-Test/lib/Apache Test.pm
Log:
add a simple doc stub to get people going
Revision Changes Path
1.6 +27 -0 modperl-2.0/Apache-Test/lib/Apache/Test.pm
Index: Test.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/Test.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Test.pm 2001/05/05 22:05:04 1.5
+++ Test.pm 2001/06/22 03:57:18 1.6
@@ -81,5 +81,32 @@
}
1;
+__END__
+
+=head1 NAME
+
+Apache::Test -- Run tests with mod_perl-enabled Apache server
+
+=head1 SYNOPSIS
+
+ use Apache::Test;
+
+ # plan 3 tests
+ plan tests => 3, \&condition;
+
+ # if condition() returns false, the tests are skipped.
+ # e.g.: skip tests if lwp is not available
+ plan tests => 3, \&have_lwp;
+
+ # if the test passed print 'ok 1' as Test.pm expects
+ ok 1 if 'mod_perl rules';
+ ok 2 if 42;
+ my @a = qw(a b);
+ ok 3 if ++$a[0] eq $a[1];
+
+ # if a particular test fails, don't print anything and just move
+ # on to a next test
+
+=cut
