blob: 621dc27dee87af28c084ecf27e40373fc1900c68 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
use warnings;
use strict;
use Test::More;
my $rc = 0;
plan tests => 2;
$rc = diag("A diagnostic message");
diag("Returned: $rc");
ok(1, 'test 1') or diag "ok() failed, and shouldn't";
ok(0, 'test 2') or diag "ok() passed, and shouldn't";
|