Tcl Source Code

Artifact [c7c81066b9]
Login

Artifact c7c81066b9c1d7966dc05abb987eb26a2b2d4ceb53f01665e2800ac2986e006c:

Attachment "timerate.diff" to ticket [1a3fa1232e] added by emiliano 2019-03-30 18:17:45. (unpublished)
Index: tests/cmdMZ.test
==================================================================
--- tests/cmdMZ.test
+++ tests/cmdMZ.test
@@ -359,11 +359,11 @@
 } {1 {expected floating-point number but got "b"}}
 test cmdMZ-6.4 {Tcl_TimeRateObjCmd: compile of script happens even with negative iteration counts} {
     list [catch {timerate "foreach a {c d e} \{" -12456} msg] $msg
 } {1 {missing close-brace}}
 test cmdMZ-6.5 {Tcl_TimeRateObjCmd: result format and one iteration} {
-    regexp {^\d+.\d+ \ws/# 1 # \d+ #/sec \d+.\d+ nett-ms$} [timerate {} 0]
+    regexp {^\d+.\d+ \ws/# 1 # \d+(.\d+)? #/sec \d+.\d+ nett-ms$} [timerate {} 0]
 } 1
 test cmdMZ-6.6 {Tcl_TimeRateObjCmd: slower commands take longer, but it remains almost the same time of measument} {
     set m1 [timerate {after 0} 20]
     set m2 [timerate {after 1} 20]
     list \