3 # $Header: glob.t,v 4.0 91/03/20 01:52:49 lwall Locked $
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";