diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux.lux | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index de14f2dea..b2929de58 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -36,6 +36,7 @@ ["#." macro] ["#." math] ["#." meta] + ["#." program] ["#." time] ## ["#." tool] ## TODO: Update & expand tests for this ["#." type] @@ -220,13 +221,15 @@ /macro.test /math.test /meta.test + /program.test /time.test ## /tool.test /type.test /world.test /ffi.test <target> - <extension>))))) + <extension> + ))))) (def: test Test @@ -255,7 +258,21 @@ ))) (program: args - (<| io - _.run! - (_.times' (#.Some 2,000) 100) - ..test)) + (let [shift (for {@.jvm 1 + @.old 1 + @.js 2 + @.python 6} + 0) + time_out (|> 1 + (i64.left_shift shift) + (n.* 1,000)) + times (: (-> Test Test) + (for {@.js (_.times 10) + @.python (_.times 1) + @.lua (_.times 1) + @.ruby (_.times 1)} + (_.times' (#.Some time_out) 100)))] + (<| io + _.run! + times + ..test))) |