distrib/lib/Test.pm

20     $TestLevel  = 0;		# how many extra stack frames to skip
28 @EXPORT    = qw(&plan &ok &skip);
76   skip(
77     $^O eq 'MSWin' ? "Skip unless MSWin" : 0,  # whether to skip
80   skip(
81     $^O eq 'MSWin' ? 0 : "Skip if MSWin",  # whether to skip
102 and C<skip(...)>.  By default, all three are exported by
127 This means all ok() and skip() calls.
441 =item C<skip(I<skip_if_true>, I<args...>)>
464   skip($if_MSWin, thing($foo), thing($bar) );
472   skip($unless_MSWin, thing($foo), thing($bar) );
475 you want to I<skip> the test, not I<run> it; and it also doubles as a
477 the code as "skip if MSWin -- (otherwise) test whether C<thing($foo)> is
478 C<thing($bar)>" or for the second case, "skip unless MSWin...".
486 then we C<skip(...)> just tosses out their value (i.e., not
492   skip( $unless_MSWin,
502   skip( $unless_MSWin,
510             #  so that Test::Harness can tell it's a skip
518 sub skip ($;$$$) {
527                                             # to start with 'skip'
529         my $ok = "ok $ntest # skip";
536         # backwards compatiblity (I think).  skip() used to be
540 #This looks like a skip() using the very old interface.  Please upgrade to
572 The C<skip(...)> function is for tests that might or might not be
575 should evaluate to true (think "yes, please skip") if the required
576 feature is I<not> available.  After the first argument, C<skip(...)> works
648 C<ok>'s prototype is C<($;$$)> (and, incidentally, C<skip>'s is
682 The syntax for C<skip> is about the only way it can be, but it's still
688   skip $unless_mswin, foo($bar), baz($quux);
691 skipped.  But in reality, they I<are> evaluated, but C<skip> just won't
696   skip $unless_mswin, sub{foo($bar)}, sub{baz($quux)};
708     print "# Feh, we're under $^O.  Watch me skip some tests...\n";
709     for(1 .. 4) { skip "Skip unless under MSWin" }
713 first block as C<skip> is called in the second block.