[Test.pm] use pir::time__N for the fractional seconds removed from time

rakudo · Jul 21, 2010 · 1d4ba47 · 1d4ba47
1 parent 528bf68
commit 1d4ba47
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Test.pm b/Test.pm
@@ -44,8 +44,8 @@ multi sub plan($number_of_tests) is export {
     }
     # Emit two successive timestamps to measure the measurment overhead,
     # and to eliminate cacheing bias, if it exists, from the first test.
-    say '# t=' ~ time if %*ENV{'PERL6_TEST_TIMES'};
-    say '# t=' ~ time if %*ENV{'PERL6_TEST_TIMES'};
+    say '# t=' ~ pir::time__N() if %*ENV{'PERL6_TEST_TIMES'};
+    say '# t=' ~ pir::time__N() if %*ENV{'PERL6_TEST_TIMES'};
 }
 
 multi sub pass($desc) is export {
@@ -229,7 +229,7 @@ sub proclaim($cond, $desc) {
         print $todo_reason;
     }
     print "\n";
-    say '# t=' ~ time if %*ENV{'PERL6_TEST_TIMES'};
+    say '# t=' ~ pir::time__N() if %*ENV{'PERL6_TEST_TIMES'};
 
     if !$cond && $die_on_fail && !$todo_reason {
         die "Test failed.  Stopping test";