Change 19941: Minor test adjustments :

[Rafael Garcia-Suarez]

Change 19941 by [EMAIL PROTECTED] on 2003/07/02 21:38:19

        Minor test adjustments :
        - test name correction in op/concat.t by Yitzchak Scott-Thoennes
        - prototypes added to some public functions in t/test.pl,
          as suggested by Enache Adrian

Affected files ...

... //depot/perl/t/op/concat.t#6 edit
... //depot/perl/t/test.pl#50 edit

Differences ...

==== //depot/perl/t/op/concat.t#6 (text) ====
Index: perl/t/op/concat.t
--- perl/t/op/concat.t#5~19841~ Sun Jun 22 09:35:33 2003
+++ perl/t/op/concat.t  Wed Jul  2 14:38:19 2003
@@ -107,5 +107,5 @@
 
 {
     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');
 }

==== //depot/perl/t/test.pl#50 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#49~19490~    Sun May 11 10:46:09 2003
+++ perl/t/test.pl      Wed Jul  2 14:38:19 2003
@@ -81,7 +81,7 @@
 }
 
 # 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 @@
     return @result;
 }
 
-sub is {
+sub is ($$@) {
     my ($got, $expected, $name, @mess) = @_;
 
     my $pass;
@@ -150,7 +150,7 @@
     _ok($pass, _where(), $name, @mess);
 }
 
-sub isnt {
+sub isnt ($$@) {
     my ($got, $isnt, $name, @mess) = @_;
 
     my $pass;
@@ -169,7 +169,7 @@
     _ok($pass, _where(), $name, @mess);
 }
 
-sub cmp_ok {
+sub cmp_ok ($$$@) {
     my($got, $type, $expected, $name, @mess) = @_;
 
     my $pass;
@@ -202,7 +202,7 @@
 # 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 @@
 }
 
 # 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 @@
   !$fail;
 }
 
-sub require_ok {
+sub require_ok ($) {
     my ($require) = @_;
     eval <<REQUIRE_OK;
 require $require;
@@ -328,7 +328,7 @@
     _ok(!$@, _where(), "require $require");
 }
 
-sub use_ok {
+sub use_ok ($) {
     my ($use) = @_;
     eval <<USE_OK;
 use $use;
End of Patch.