mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-16 00:07:40 +00:00
Code Issues 1 Releases Wiki Activity

Fixed :cputime because msdn does not implement clock() properly

Browse Source
This commit is contained in:
Ico Doornekamp
2023-05-20 14:16:36 +02:00
parent 80db682109
commit 30c47d685d
2 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/suite0007.janet
View File

@@ -334,16 +334,16 @@
(assert (pos? (length (gensym))) "gensym not empty, regression #753")
# os/clock
# os/clock. These tests might prove fragile under CI because they
# rely on measured time. We'll see.
(defmacro measure-time [clocks & body]
(def t1 (gensym))
(def t2 (gensym))
(def [t1 t2] [(gensym) (gensym)])
~(do
(def ,t1 (map |(os/clock $) ,clocks))
,;body
(def ,t2 (map |(os/clock $) ,clocks))
(zipcoll ,clocks [ (- (,t2 0) (,t1 0)) (- (,t2 1) (,t1 1)) (- (,t2 2) (,t1 2))]))
(zipcoll ,clocks (map |(- ;$) (map tuple ,t2 ,t1))))
)
# Spin for 0.1 seconds