1 ## Test
for find .
-mtime
0
2 ## This detects Savannah bug #
22056, -Xtime tests are
off by one second
6 # Touch the file in the setup phase
, to make sure its mtime is as
8 proc prep
{} { exec touch tmp
/x
}
9 find_start p
{ tmp
-type f
-mtime
0 } "" "" prep