t/op.glob

   1 #!./perl
   2
   3 # $Header: op.glob,v 3.0 89/10/18 15:29:19 lwall Locked $
   4
   5 print "1..4\n";
   6
   7 @ops = <op.*>;
   8 $list = join(' ',@ops);
   9
  10 chop($otherway = `echo op.*`);
  11
  12 print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
  13
  14 print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
  15
  16 while (<jskdfjskdfj* op.* jskdjfjkosvk*>) {
  17     $not = "not " unless $_ eq shift @ops;
  18     $not = "not at all " if $/ eq "\0";
  19 }
  20 print "${not}ok 3\n";
  21
  22 print $/ eq "\n" ? "ok 4\n" : "not ok 4\n";