ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/t/io_common
(Generate patch)

Comparing AnyEvent/t/io_common (file contents):
Revision 1.8 by root, Fri Apr 13 08:34:08 2012 UTC vs.
Revision 1.9 by root, Fri Apr 13 15:24:57 2012 UTC

… …
25 print !@res != !$ok ? "not " : "", "ok ", $t++, " # $f (@_) = (@res)\n"; 25 print !@res != !$ok ? "not " : "", "ok ", $t++, " # $f (@_) = (@res)\n";
26 26
27 wantarray ? @res : $res[0] 27 wantarray ? @res : $res[0]
28} 28}
29 29
30our $TMP = "/tmp"; 30use File::Spec;
31
32our $TMP = File::Spec->tmpdir;
31our $DIR = "$TMP/ae_io_testdir_$$~"; 33our $DIR = "$TMP/ae_io_testdir_$$~";
32 34
33t 1, mkdir => $DIR, 0777 35t 1, mkdir => $DIR, 0777
34 or do { print "Bail out! Cannot mkdir $DIR, skipping test.\n"; exit 0 }; 36 or do { print "Bail out! Cannot mkdir $DIR, skipping test.\n"; exit 0 };
35t 0, mkdir => $DIR, 0777; 37t 0, mkdir => $DIR, 0777;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines