Changeset 14599 for t/operators/filetest.t

Timestamp:

11/03/06 05:30:51 (2 years ago)

Author:

allbery_b

svk:copy_cache_prev:

41990

Message:

AUTHORS: hello, world\n :)
src/Pugs/Compat.hs: added file time tests
src/Pugs/Internals.hs, src/Pugs/Prim.hs: abstract out guts of "time" for

use in $*BASETIME and file tests

src/Pugs/Run.hs: add $*BASETIME
src/Pugs/AST.hs: document _reserved and filterUserDefinedPad; add $*BASETIME

to _reserved

src/Pugs/Prim.hs: add file time operators -M, -C, -A
src/Pugs/Prim/FileTest.hs: add implementation of file time operators
t/operators/filetest.t: correct existing file time operator tests, add a few

more, add all of them to the plan

Files:

• t/operators/filetest.t (modified) (2 diffs)

t/operators/filetest.t

@@ -9 +9 @@
 =cut
 
-plan 41;
+plan 50;
 
 #if $*OS eq any <MSWin32 mingw msys cygwin> {
@@ -118 +118 @@
 my $fh = open("test_file", :w);
 close $fh;
-ok (-M "test_file") > 0,      "-M works";
-ok (-C "test_file") > 0,      "-C works";
-ok (-A "test_file") > 0,      "-A works";
+sleep 1; # just to make sure
+ok (-M "test_file") < 0,      "-M works on new file";
+ok (-C "test_file") < 0,      "-C works on new file";
+ok (-A "test_file") < 0,      "-A works on new file";
 unlink "test_file";
 
+if (! -f "README") {
+  skip 3, "no file README";
+} else {
+  ok (-M "README") > 0, "-M works on existing file";
+  ok (-C "README") > 0, "-C works on existing file";
+  ok (-A "README") > 0, "-A works on existing file";
+}
+
+ok not -M "xyzzy", "-M returns undef when no file";
+ok not -C "xyzzy", "-C returns undef when no file";
+ok not -A "xyzzy", "-A returns undef when no file";