diff options
| author | Eduardo Julian | 2021-09-08 23:14:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-08 23:14:59 -0400 |
| commit | 085c9a6ef151531cb01b842ed2f4366a49b78367 (patch) | |
| tree | 01d5671061f1c688fe74319196f8da0e8aa95e4c /stdlib/source/test/lux.lux | |
| parent | 54ab659064990ff37a9234c9792102a3b88277d6 (diff) | |
De-bracing | part 2
Diffstat (limited to 'stdlib/source/test/lux.lux')
| -rw-r--r-- | stdlib/source/test/lux.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 238bf666d..d40709cf6 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -1,5 +1,5 @@ -(.with_expansions [<target>' (.for {"{old}" (.as_is ["[1]/[0]" jvm]) - "JVM" (.as_is ["[1]/[0]" jvm])} +(.with_expansions [<target>' (.for ["{old}" (.as_is ["[1]/[0]" jvm]) + "JVM" (.as_is ["[1]/[0]" jvm])] (.as_is)) <target> <target>'] (.module: @@ -78,10 +78,10 @@ (def: sub_tests Test (with_expansions [... TODO: Update & expand tests for this - <target> (for {@.jvm (~~ (as_is /target/jvm.test)) - @.old (~~ (as_is /target/jvm.test))} + <target> (for [@.jvm (~~ (as_is /target/jvm.test)) + @.old (~~ (as_is /target/jvm.test))] (~~ (as_is))) - <extension> (for {@.old (~~ (as_is))} + <extension> (for [@.old (~~ (as_is))] (~~ (as_is /extension.test)))] (`` (_.in_parallel (list /abstract.test /control.test @@ -443,7 +443,7 @@ (#.Right [lux (list)])))] (do random.monad [expected random.nat] - (with_expansions [<found_crosshair?> (for {@.old (~~ (as_is))} + (with_expansions [<found_crosshair?> (for [@.old (~~ (as_is))] (_.cover [/.Source] (..found_crosshair?)))] (`` ($_ _.and @@ -807,16 +807,16 @@ (~~ (/.comment dummy)))))) (_.cover [/.for] (and (n.= expected - (/.for {"fake host" dummy} + (/.for ["fake host" dummy] expected)) (n.= expected - (/.for {@.old expected + (/.for [@.old expected @.jvm expected @.js expected @.python expected @.lua expected @.ruby expected - @.php expected} + @.php expected] dummy)))) ))) @@ -1109,7 +1109,7 @@ (bit\= /.private /.local))) )) -(for {@.old (as_is)} +(for [@.old (as_is)] (as_is (syntax: (for_bindings|test [fn/0 <code>.local_identifier var/0 <code>.local_identifier let/0 <code>.local_identifier @@ -1193,7 +1193,7 @@ Test (<| (_.covering /._) (with_expansions - [<for_bindings> (for {@.old (~~ (as_is))} + [<for_bindings> (for [@.old (~~ (as_is))] (~~ (as_is ..for_bindings)))] (`` ($_ _.and ..for_bit @@ -1224,12 +1224,12 @@ ))))) (program: args - (let [times (for {@.old 100 + (let [times (for [@.old 100 @.jvm 100 @.js 10 @.python 1 @.lua 1 - @.ruby 1} + @.ruby 1] 100)] (<| io.io _.run! |