From 48beb55fa0a89cedb5fb1dc2234a5526f85daa04 Mon Sep 17 00:00:00 2001 From: Robin Houston Date: Mon, 17 Dec 2001 20:07:02 +0000 Subject: [PATCH] Re: [PATCH] ...while $var = glob(...) Message-ID: <20011217200702.A17721@puffinry.freeserve.co.uk> p4raw-id: //depot/perl@13741 --- t/op/glob.t | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/t/op/glob.t b/t/op/glob.t index 8bdf64f..1dd806e 100755 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..10\n"; +print "1..13\n"; @oops = @ops = ; @@ -60,3 +60,13 @@ $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 $ok; + +print unlink("0") ? "ok 13\n" : "not ok 13\n"; -- 2.7.4