3 # $RCSfile: glob.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:55 $
8 $list = join(' ',@ops);
10 chop($otherway = `echo op/*`);
12 print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
14 print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
16 while (<jskdfjskdfj* op/* jskdjfjkosvk*>) {
17 $not = "not " unless $_ eq shift @ops;
18 $not = "not at all " if $/ eq "\0";
22 print $/ eq "\n" ? "ok 4\n" : "not ok 4\n";