t/op/glob.t

   1 #!./perl
   2
   3 # $RCSfile: glob.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:55 $
   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";