3 # $RCSfile: glob.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:55 $
9 map { $files{$_}++ } <op/*>;
10 if ($^O eq 'MSWin32') {
11 map { delete $files{"op/$_"} } split /[\s\n]/, `cmd /c "dir /b /l op"`;
14 map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
17 print "not ok 1\t(",join(' ', sort keys %files),"\n";
18 } else { print "ok 1\n"; }
20 print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
22 while (<jskdfjskdfj* op/* jskdjfjkosvk*>) {
23 $not = "not " unless $_ eq shift @ops;
24 $not = "not at all " if $/ eq "\0";
28 print $/ eq "\n" ? "ok 4\n" : "not ok 4\n";
30 # test the "glob" operator
33 print "@glops" eq "@oops" ? "ok 5\n" : "not ok 5\n";
36 print "@glops" eq "@oops" ? "ok 6\n" : "not ok 6\n";