4 my ($condition, $name) = @_;
6 my $message = $condition ? "ok " : "not ok ";
8 $message .= " # $name" if defined $name;
14 my ($got, $expected, $name) = @_;
16 for ($got, $expected) {
17 $_ = 'undef' unless defined $_;
20 unless (ok($got eq $expected, $name)) {
21 warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n";
26 my ($reason, $num) = @_;
32 print "ok $number # skip $reason\n";