stas 01/11/11 19:06:25
Modified: perl-framework/Apache-Test/lib/Apache Test.pm
Log:
- document skip_unless()
Revision Changes Path
1.32 +17 -0 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.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- Test.pm 2001/11/09 18:01:53 1.31
+++ Test.pm 2001/11/12 03:06:25 1.32
@@ -299,6 +299,13 @@
plan tests => 5, 0;
+But this won't hint the reason for skipping therefore it's better to
+use skip_unless():
+
+ plan tests => 5, skip_unless(sub { $a == $b }, "$a != $b");
+
+see skip_unless() for more info.
+
=item * an C<ARRAY> reference
have_module() is called for each value in this array. The test is
@@ -336,6 +343,16 @@
=item skip
Same as I<Test::skip>, see I<Test.pm> documentation.
+
+=item skip_unless
+
+ skip_unless($cond_sub, $reason);
+
+skip_unless() is used with plan(), it executes C<$cond_sub> code
+reference and if it returns a false value C<$reason> gets printed as a
+reason for test skipping.
+
+see plan().
=item test_pm_refresh
