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

Merge pull request #1146 from zevv/os-clock

Browse Source 
Add  clock sources to os/clock (:realtime, :monotonic, :cputime)
This commit is contained in:
Calvin Rose
2023-05-21 08:35:24 -05:00
committed by GitHub
parent c3fd71d643 30c47d685d
commit 8680aef42f
4 changed files with 113 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
test/suite0007.janet
View File

@@ -333,4 +333,29 @@
(assert (pos? (length (gensym))) "gensym not empty, regression #753")
# 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 t2] [(gensym) (gensym)])
~(do
(def ,t1 (map |(os/clock $) ,clocks))
,;body
(def ,t2 (map |(os/clock $) ,clocks))
(zipcoll ,clocks (map |(- ;$) (map tuple ,t2 ,t1))))
)
# Spin for 0.1 seconds
(def dt (measure-time [:realtime :monotonic :cputime]
(def t1 (os/clock :monotonic))
(while (< (- (os/clock :monotonic) t1) 0.1) true)))
(assert (> (dt :monotonic) 0.10))
(assert (> (dt :cputime) 0.05))
# Sleep for 0.1 seconds
(def dt (measure-time [:realtime :monotonic :cputime] (os/sleep 0.1)))
(assert (> (dt :monotonic) 0.10))
(assert (< (dt :cputime) 0.05))
(end-suite)