diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-09-18 04:02:02 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-18 19:23:22 +0000 |
| commit | a80d47c2f481402c370d7113267069d0c75ceeeb (patch) | |
| tree | 5aab7d4f538adc19ec5563cf70b08e125c7b7688 /t/op/stat.t | |
| parent | 29ddfe354327d85ef66e9723b006d41eb553cd25 (diff) | |
| download | perl-a80d47c2f481402c370d7113267069d0c75ceeeb.tar.gz | |
-M -A -C broken
Message-ID: <20030918180202.GA21949@math.berkeley.edu>
(use stat.t instead of time.t)
p4raw-id: //depot/perl@21277
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 69caf8c68a..b863f98c80 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -9,7 +9,7 @@ BEGIN { use Config; use File::Spec; -plan tests => 73; +plan tests => 78; my $Perl = which_perl(); @@ -427,6 +427,21 @@ SKIP: { unlink $linkname or print "# unlink $linkname failed: $!\n"; } +print "# Zzz...\n"; +sleep(3); +my $f = 'tstamp.tmp'; +unlink $f; +ok (open(S, "> $f"), 'can create tmp file'); +close S or die; +my @a = stat $f; +print "# time=$^T, stat=(@a)\n"; +my @b = (-M _, -A _, -C _); +print "# -MAC=(@b)\n"; +ok( (-M _) < 0, 'negative -M works'); +ok( (-A _) < 0, 'negative -A works'); +ok( (-C _) < 0, 'negative -C works'); +ok(unlink($f), 'unlink tmp file'); + END { 1 while unlink $tmpfile; } |