perl 5.003_07: t/lib/io_pipe.t
[perl.git] / 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
9 map { $files{$_}++ } <op/*>;
10 map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
11 if (keys %files) {
12         print "not ok 1\t(",join(' ', sort keys %files),"\n";
13 } else { print "ok 1\n"; }
14
15 print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
16
17 while (<jskdfjskdfj* op/* jskdjfjkosvk*>) {
18     $not = "not " unless $_ eq shift @ops;
19     $not = "not at all " if $/ eq "\0";
20 }
21 print "${not}ok 3\n";
22
23 print $/ eq "\n" ? "ok 4\n" : "not ok 4\n";