diff options
Diffstat (limited to 't/op/glob.t')
| -rwxr-xr-x | t/op/glob.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/t/op/glob.t b/t/op/glob.t index fce2952968..cc60a17a72 100755 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -2,9 +2,9 @@ # $RCSfile: glob.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:55 $ -print "1..4\n"; +print "1..6\n"; -@ops = <op/*>; +@oops = @ops = <op/*>; map { $files{$_}++ } <op/*>; map { delete $files{$_} } split /[\s\n]/, `echo op/*`; @@ -21,3 +21,11 @@ while (<jskdfjskdfj* op/* jskdjfjkosvk*>) { print "${not}ok 3\n"; print $/ eq "\n" ? "ok 4\n" : "not ok 4\n"; + +# test the "glob" operator +$_ = "op/*"; +@glops = glob $_; +print "@glops" eq "@oops" ? "ok 5\n" : "not ok 5\n"; + +@glops = glob; +print "@glops" eq "@oops" ? "ok 6\n" : "not ok 6\n"; |