X-Git-Url: http://www.git.cypherpunks.ru/?p=goredo.git;a=blobdiff_plain;f=t%2Fapenwarr%2F101-atime%2Fatime2.do;fp=t%2Fapenwarr%2F101-atime%2Fatime2.do;h=f5ce80ec4264bb87d6fad44578a210f5af2a0943;hp=f77931eab7f0d26d0e9c4ea12503e573bf0e3032;hb=5a13299ef31c771042764491c6826b587274b169;hpb=6af0124dd6972d44d53290d65c868d14a5843fe0

diff --git a/t/apenwarr/101-atime/atime2.do b/t/apenwarr/101-atime/atime2.do
index f77931e..f5ce80e 100644
--- a/t/apenwarr/101-atime/atime2.do
+++ b/t/apenwarr/101-atime/atime2.do
@@ -1,6 +1,13 @@
 # make sure redo doesn't think merely *reading* the old file counts as
 # modifying it in-place.
 cat $1 >/dev/null 2>/dev/null || true
-${PYTHON:-python} tick.py
+perl -mTime::HiRes -e '
+    $t2 = 1 + int(Time::HiRes::time());
+    while (1) {
+        $t = Time::HiRes::time();
+        last if $t > $t2;
+        sleep($t2 - $t + 0.01);
+    };
+'
 cat $1 >/dev/null 2>/dev/null || true
 echo hello