diff options
author | Eduardo Julian | 2021-06-29 00:54:13 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-06-29 00:54:13 -0400 |
commit | 6633cd42f2892ea71530ddeeb93a7e7c0b59faa3 (patch) | |
tree | aef31dba019fe7bc5141084ab8c25369bd7e83ca /stdlib/source/test/lux.lux | |
parent | db3e864ae66da7f7d1034ae95967605144d5ec47 (diff) |
Some updates for the new compilers.
Diffstat (limited to 'stdlib/source/test/lux.lux')
-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))) |