From 1d4ba47f2295136b34a1df03e6c1f37d4ae24c77 Mon Sep 17 00:00:00 2001 From: Martin Berends Date: Wed, 21 Jul 2010 22:15:18 +0100 Subject: [PATCH] [Test.pm] use pir::time__N for the fractional seconds removed from time --- Test.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Test.pm b/Test.pm index 65a42cd7416..ee2074a11e5 100644 --- 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";