Commit | Line | Data |
c8570720 |
1 | |
2 | my $number = 0; |
3 | sub ok { |
4 | my ($condition, $name) = @_; |
5 | |
6 | my $message = $condition ? "ok " : "not ok "; |
7 | $message .= ++$number; |
8 | $message .= " # $name" if defined $name; |
9 | print $message, "\n"; |
10 | return $condition; |
11 | } |
12 | |
13 | sub is { |
14 | my ($got, $expected, $name) = @_; |
15 | |
16 | for ($got, $expected) { |
17 | $_ = 'undef' unless defined $_; |
18 | } |
19 | |
20 | unless (ok($got eq $expected, $name)) { |
21 | warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n"; |
22 | } |
23 | } |
24 | |
25 | sub skip { |
26 | my ($reason, $num) = @_; |
27 | $reason ||= ''; |
28 | $number ||= 1; |
29 | |
30 | for (1 .. $num) { |
31 | $number++; |
32 | print "ok $number # skip $reason\n"; |
33 | } |
34 | } |
35 | |
36 | 1; |
37 | |