]> git.ozlabs.org Git - ccan/blobdiff - ccan_tools/libtap/tests/skip/test.pl
Removed ccan_tools versions of talloc and libtap in favor of ccan ones.
[ccan] / ccan_tools / libtap / tests / skip / test.pl
diff --git a/ccan_tools/libtap/tests/skip/test.pl b/ccan_tools/libtap/tests/skip/test.pl
deleted file mode 100644 (file)
index da67d23..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-
-use Test::More;
-
-my $rc = 0;
-
-plan tests => 8;
-
-my $side_effect = 0;           # Check whether skipping has side effects
-
-$rc = ok(1 == 1, '1 equals 1');        # Test ok() passes when it should
-diag("Returned: $rc");
-
-# Start skipping
-SKIP: {
-       skip "Testing skipping", 1;
-
-       $side_effect++;
-
-       $rc = ok($side_effect == 1, 'side_effect checked out');
-}
-
-SKIP: {
-       skip "Testing skipping #2", 1;
-
-       $side_effect++;
-
-       $rc = ok($side_effect == 1, 'side_effect checked out');
-       diag("Returned: $rc");
-}
-
-$rc = ok($side_effect == 0, "side_effect is $side_effect");
-diag("Returned: $rc");
-
-SKIP: {
-       if (1 == 1) {
-               skip "Testing skip_if", 1;
-       }
-
-       $side_effect++;
-
-       $rc = ok($side_effect == 1, 'side_effect checked out');
-       diag("Returned: $rc");
-}
-
-$rc = ok($side_effect == 0, "side_effect is $side_effect");
-diag("Returned: $rc");
-
-SKIP: {
-       if (1 == 0) {
-               skip "Testing skip_if #2", 1;
-       }
-
-       $side_effect++;
-
-       $rc = ok($side_effect == 1, 'side_effect checked out');
-       diag("Returned: $rc");
-}
-
-$rc = ok($side_effect == 1, "side_effect is $side_effect");
-diag("Returned: $rc");