diff options
| -rw-r--r-- | t/op/concat.t | 2 | ||||
| -rw-r--r-- | t/test.pl | 16 |
2 files changed, 9 insertions, 9 deletions
diff --git a/t/op/concat.t b/t/op/concat.t index d515a5927f..97a52005a1 100644 --- a/t/op/concat.t +++ b/t/op/concat.t @@ -107,5 +107,5 @@ sub beq { use bytes; $_[0] eq $_[1]; } { my $a; ($a .= 5) . 6; - ok($a == 5, "($a .= 5) . 6 - present since 5.000"); + ok($a == 5, '($a .= 5) . 6 - present since 5.000'); } @@ -81,7 +81,7 @@ sub _where { } # DON'T use this for matches. Use like() instead. -sub ok { +sub ok ($@) { my ($pass, $name, @mess) = @_; _ok($pass, _where(), $name, @mess); } @@ -131,7 +131,7 @@ sub display { return @result; } -sub is { +sub is ($$@) { my ($got, $expected, $name, @mess) = @_; my $pass; @@ -150,7 +150,7 @@ sub is { _ok($pass, _where(), $name, @mess); } -sub isnt { +sub isnt ($$@) { my ($got, $isnt, $name, @mess) = @_; my $pass; @@ -169,7 +169,7 @@ sub isnt { _ok($pass, _where(), $name, @mess); } -sub cmp_ok { +sub cmp_ok ($$$@) { my($got, $type, $expected, $name, @mess) = @_; my $pass; @@ -202,7 +202,7 @@ sub cmp_ok { # otherwise $range is a fractional error. # Here $range must be numeric, >= 0 # Non numeric ranges might be a useful future extension. (eg %) -sub within { +sub within ($$$@) { my ($got, $expected, $range, $name, @mess) = @_; my $pass; if (!defined $got or !defined $expected or !defined $range) { @@ -234,7 +234,7 @@ sub within { } # Note: this isn't quite as fancy as Test::More::like(). -sub like { +sub like ($$@) { my ($got, $expected, $name, @mess) = @_; my $pass; if (ref $expected eq 'Regexp') { @@ -320,7 +320,7 @@ sub eq_hash { !$fail; } -sub require_ok { +sub require_ok ($) { my ($require) = @_; eval <<REQUIRE_OK; require $require; @@ -328,7 +328,7 @@ REQUIRE_OK _ok(!$@, _where(), "require $require"); } -sub use_ok { +sub use_ok ($) { my ($use) = @_; eval <<USE_OK; use $use; |