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 (executable)
--- 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";
+}