t/op/filetest.t

18 # Tests presume we are in t/op directory and that file 'TEST' is found
20 is(-d 'op', 1, "-d: directory correctly identified");
22 isnt(-f 'op', 1, "-f: directory is not a plain file");
67 is(-r 'op', 1, "-r: directory readable by effective uid/gid");
68 is(-w 'op', 1, "-w: directory writable by effective uid/gid");
69 is(-x 'op', 1, "-x: executable by effective uid/gid"); # Hohum.  Are directories -x everywhere?
71 is( "@{[grep -r, qw(foo io noo op zoo)]}", "io op",
85 isnt( -f -d 'op', 1, "-f and -d: directory found but is not a plain file");
86 is(-x -d -x 'op', 1, "-x, -d and -x again: directory exists and is executable");
109 # ous op���s return value as a file name.
215 for my $op (split //, "rwxoRWXOezsfdlpSbctugkTMBAC") {
217     my $rv = eval "-$op \$ft";
218     isnt( $rv, undef,               "overloaded -$op succeeds" )
220     is( $over->[0], $ftstr,         "correct object for overloaded -$op" );
221     is( $over->[1], $op,            "correct op for overloaded -$op" );
222     is( $rv,        "-$op",         "correct return value for overloaded -$op");
227     $rv = eval "-$op \$str";
228     is($@, "",                      "-$op succeeds with string overloading");
229     is( $rv, eval "-$op 'TEST'",    "correct -$op on string overload" );
230     is( $over,      $exp,           "string overload $is called for -$op" );
232     ($exp, $is) = $op eq "l" ? (1, "is") : (0, "not");
235     eval "-$op \$gv";
236     is( $over,      $exp,   "string overload $is called for -$op on GLOB" );
239     $op eq "t" || $op eq "T" || $op eq "B"
243     eval "-$op \$io";
244     is( $over,      $exp,   "string overload $is called for -$op on IO");
246     $rv = eval "-$op \$both";
247     is( $rv,        "-$op",         "correct -$op on string/-X overload" );
249     $rv = eval "-$op \$neither";
250     is($@, "",                      "-$op succeeds with random overloading");
251     is( $rv, eval "-$op \$nstr",    "correct -$op with random overloading" );
253     is( eval "-r -$op \$ft", "-r",      "stacked overloaded -$op" );
254     is( eval "-$op -r \$ft", "-$op",    "overloaded stacked -$op" );
270 # it belongs to another op.