ok
is
isnt
+ cmp_ok
like
unlike
diag
local $@;
eval <<"IS_BINOP";
sub is_$name (\$\$;\$) {
- my (\$x, \$y, \$desc) = \@_;
- no warnings 'uninitialized';
- \@_ = (
- (not(defined \$x xor defined \$y) and \$x $op \$y),
- \$desc,
- );
+ my (\$got, \$expected, \$desc) = \@_;
+ \@_ = ((\$got $op \$expected), \$desc);
goto &ok;
}
IS_BINOP
}
}
-{
- no warnings 'once';
- *is = \&is_eq;
- *like = \&is_like;
- *unlike = \&is_unlike;
+sub is ($$;$) {
+ my ($got, $expected, $desc) = @_;
+ no warnings 'uninitialized';
+ @_ = (
+ (not(defined $got xor defined $expected) and $got eq $expected),
+ $desc,
+ );
+ goto &ok;
}
sub isnt ($$;$) {
- my ($x, $y, $desc) = @_;
+ my ($got, $expected, $desc) = @_;
no warnings 'uninitialized';
@_ = (
- ((defined $x xor defined $y) or $x ne $y),
+ ((defined $got xor defined $expected) or $got ne $expected),
$desc,
);
goto &ok;
}
+{
+ no warnings 'once';
+ *like = \&is_like;
+ *unlike = \&is_unlike;
+}
+
sub cmp_ok ($$$;$) {
- my ($x, $op, $y, $desc) = @_;
+ my ($got, $op, $expected, $desc) = @_;
my $name = $binops{$op};
croak("Operator $op not supported") unless defined $name;
- @_ = ($x, $y, $desc);
+ @_ = ($got, $expected, $desc);
no strict 'refs';
- goto &{__PACKAGE__."is_$name"};
+ goto &{__PACKAGE__."::is_$name"};
}
sub _diag_fh {