diff options
Diffstat (limited to 'tap/tests/diag/test.pl')
-rw-r--r-- | tap/tests/diag/test.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tap/tests/diag/test.pl b/tap/tests/diag/test.pl new file mode 100644 index 00000000..621dc27d --- /dev/null +++ b/tap/tests/diag/test.pl | |||
@@ -0,0 +1,16 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | use warnings; | ||
4 | use strict; | ||
5 | |||
6 | use Test::More; | ||
7 | |||
8 | my $rc = 0; | ||
9 | |||
10 | plan tests => 2; | ||
11 | |||
12 | $rc = diag("A diagnostic message"); | ||
13 | diag("Returned: $rc"); | ||
14 | |||
15 | ok(1, 'test 1') or diag "ok() failed, and shouldn't"; | ||
16 | ok(0, 'test 2') or diag "ok() passed, and shouldn't"; | ||