Commit | Line | Data |
adfe19db |
1 | { |
2 | my $__ntest; |
3 | |
4 | sub ok ($;$$) { |
5 | local($\,$,); |
6 | my $ok = 0; |
7 | my $result = shift; |
8 | if (@_ == 0) { |
9 | $ok = $result; |
10 | } else { |
11 | $expected = shift; |
12 | if (!defined $expected) { |
13 | $ok = !defined $result; |
14 | } elsif (!defined $result) { |
15 | $ok = 0; |
16 | } elsif (ref($expected) eq 'Regexp') { |
0d0f8426 |
17 | die "using regular expression objects is not backwards compatible"; |
adfe19db |
18 | } else { |
19 | $ok = $result eq $expected; |
20 | } |
21 | } |
22 | ++$__ntest; |
23 | if ($ok) { |
24 | print "ok $__ntest\n" |
25 | } |
26 | else { |
27 | print "not ok $__ntest\n" |
28 | } |
29 | } |
30 | } |
31 | |
32 | 1; |