1N/A
1N/Amy $number = 0;
1N/Asub ok {
1N/A my ($condition, $name) = @_;
1N/A
1N/A my $message = $condition ? "ok " : "not ok ";
1N/A $message .= ++$number;
1N/A $message .= " # $name" if defined $name;
1N/A print $message, "\n";
1N/A return $condition;
1N/A}
1N/A
1N/Asub is {
1N/A my ($got, $expected, $name) = @_;
1N/A
1N/A for ($got, $expected) {
1N/A $_ = 'undef' unless defined $_;
1N/A }
1N/A
1N/A unless (ok($got eq $expected, $name)) {
1N/A warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n";
1N/A }
1N/A}
1N/A
1N/Asub skip {
1N/A my ($reason, $num) = @_;
1N/A $reason ||= '';
1N/A $number ||= 1;
1N/A
1N/A for (1 .. $num) {
1N/A $number++;
1N/A print "ok $number # skip $reason\n";
1N/A }
1N/A}
1N/A
1N/A1;
1N/A