From: Iain Truskett <spoon@cpan.org>
Date: Mon, 8 Jul 2002 11:59:21 +0000 (+1000)
Subject: t/op/glob.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33cec765dee77059e95fc416e6aec7ea9543797d;p=p5sagit%2Fp5-mst-13.2.git

t/op/glob.t
Message-ID: <20020708015921.GA14168@eh.org>

p4raw-id: //depot/perl@17416
---

diff --git a/t/op/glob.t b/t/op/glob.t
index 89263aa..68f5850 100755
--- a/t/op/glob.t
+++ b/t/op/glob.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..9\n";
+print "1..10\n";
 
 @oops = @ops = <op/*>;
 
@@ -70,4 +70,10 @@ else {
 my $f=0;
 $ok="ok 9\n";
 $ok="not ok 9\n", undef $f while $x = $f||$f;
-print $ok
+print $ok;
+
+# Better check that glob actually returned some entries
+{
+   my $not = (scalar @oops > 0) ? '' : 'not ';
+   print "${not}ok 10\n";
+}