12 my $side_effect = 0; # Check whether skipping has side effects
14 $rc = ok(1 == 1, '1 equals 1'); # Test ok() passes when it should
15 diag("Returned: $rc");
19 skip "Testing skipping", 1;
23 $rc = ok($side_effect == 1, 'side_effect checked out');
27 skip "Testing skipping #2", 1;
31 $rc = ok($side_effect == 1, 'side_effect checked out');
32 diag("Returned: $rc");
35 $rc = ok($side_effect == 0, "side_effect is $side_effect");
36 diag("Returned: $rc");
40 skip "Testing skip_if", 1;
45 $rc = ok($side_effect == 1, 'side_effect checked out');
46 diag("Returned: $rc");
49 $rc = ok($side_effect == 0, "side_effect is $side_effect");
50 diag("Returned: $rc");
54 skip "Testing skip_if #2", 1;
59 $rc = ok($side_effect == 1, 'side_effect checked out');
60 diag("Returned: $rc");
63 $rc = ok($side_effect == 1, "side_effect is $side_effect");
64 diag("Returned: $rc");