--- ./t/op/time.t-pre	Fri Aug  8 14:09:52 2003
+++ ./t/op/time.t	Thu Sep 18 10:58:18 2003
@@ -3,10 +3,10 @@
 # $RCSfile: time.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:32 $
 
 if ( $does_gmtime = gmtime(time) ) { 
-    print "1..7\n" 
+    print "1..12\n"
 }
 else { 
-    print "1..4\n" 
+    print "1..9\n" 
 }
 
 
@@ -53,6 +53,20 @@ ok(localtime() =~ /^(Sun|Mon|Tue|Wed|Thu
                   /x,
    'localtime(), scalar context'
   );
+
+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 -A works');
+ok(unlink($f), 'unlink tmp file');
 
 exit 0 unless $does_gmtime;
 
