Change 13742 by jhi@alpha on 2001/12/17 19:18:52
Move typeglob test from glob.t to gv.t.
Affected files ...
.... //depot/perl/t/op/glob.t#15 edit
.... //depot/perl/t/op/gv.t#20 edit
Differences ...
==== //depot/perl/t/op/glob.t#15 (xtext) ====
Index: perl/t/op/glob.t
--- perl/t/op/glob.t.~1~ Mon Dec 17 12:30:06 2001
+++ perl/t/op/glob.t Mon Dec 17 12:30:06 2001
@@ -5,7 +5,7 @@
@INC = '../lib';
}
-print "1..13\n";
+print "1..10\n";
@oops = @ops = <op/*>;
@@ -53,20 +53,17 @@
}
print $i == 2 ? "ok 7\n" : "not ok 7\n";
-# [ID 20010526.001] localized glob loses value when assigned to
-
-$j=1; %j=(a=>1); @j=(1); local *j=*j; *j = sub{};
-
-print $j == 1 ? "ok 8\n" : "not ok 8\n";
-print $j{a} == 1 ? "ok 9\n" : "not ok 9\n";
-print $j[0] == 1 ? "ok 10\n" : "not ok 10\n";
-
# ... while ($var = glob(...)) should test definedness not truth
# Create a file called "0"
-print open(F, ">0") ? "ok 11\n" : "not ok 11 # $!\n";
-my $ok = "not ok 12\n";
-$ok = "ok 12\n" while my $var = glob("0");
+print open(F, ">0") ? "ok 8\n" : "not ok 8 # $!\n";
+my $ok = "not ok 9\n";
+$ok = "ok 9\n" while my $var = glob("0");
print $ok;
-print unlink("0") ? "ok 13\n" : "not ok 13\n";
+print unlink("0") ? "ok 10\n" : "not ok 10\n";
+
+END {
+ 1 while unlink "0";
+}
+
==== //depot/perl/t/op/gv.t#20 (xtext) ====
Index: perl/t/op/gv.t
--- perl/t/op/gv.t.~1~ Mon Dec 17 12:30:06 2001
+++ perl/t/op/gv.t Mon Dec 17 12:30:06 2001
@@ -11,7 +11,7 @@
use warnings;
-print "1..41\n";
+print "1..44\n";
# type coersion on assignment
$foo = 'foo';
@@ -177,6 +177,14 @@
}
+# [ID 20010526.001] localized glob loses value when assigned to
+
+$j=1; %j=(a=>1); @j=(1); local *j=*j; *j = sub{};
+
+print $j == 1 ? "ok 41\n" : "not ok 41\n";
+print $j{a} == 1 ? "ok 42\n" : "not ok 42\n";
+print $j[0] == 1 ? "ok 43\n" : "not ok 43\n";
+
# does pp_readline() handle glob-ness correctly?
{
@@ -186,4 +194,4 @@
}
__END__
-ok 41
+ok 44
End of Patch.
