diff options
Diffstat (limited to 'tap/tests/plan/sane/test.pl')
| -rw-r--r-- | tap/tests/plan/sane/test.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tap/tests/plan/sane/test.pl b/tap/tests/plan/sane/test.pl new file mode 100644 index 00000000..35c4ef2f --- /dev/null +++ b/tap/tests/plan/sane/test.pl | |||
| @@ -0,0 +1,14 @@ | |||
| 1 | #!/usr/bin/perl | ||
| 2 | |||
| 3 | use warnings; | ||
| 4 | use strict; | ||
| 5 | |||
| 6 | use Test::More; | ||
| 7 | |||
| 8 | my $rc = 0; | ||
| 9 | |||
| 10 | $rc = plan tests => 1; | ||
| 11 | diag("Returned: " . sprintf("%d", $rc)); | ||
| 12 | |||
| 13 | $rc = ok(1); | ||
| 14 | diag("Returned: $rc"); | ||
