diff options
| author | Eduardo Julian | 2019-04-26 22:28:25 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-04-26 22:28:25 -0400 |
| commit | 28bdf77ac0619ee8a21d94d6039b1d7483cac37f (patch) | |
| tree | d7040bc82a1ea878f2bcd9756675c0a7b8bb419c /new-luxc/source/test/program.lux | |
| parent | 084e3c400410e954b633a07c98f32ecfa62f1ec8 (diff) | |
- Ported pattern-matching tests.
- Ported function tests.
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/test/program.lux | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/new-luxc/source/test/program.lux b/new-luxc/source/test/program.lux index 687c8ca2a..48cbd3aef 100644 --- a/new-luxc/source/test/program.lux +++ b/new-luxc/source/test/program.lux @@ -16,15 +16,15 @@ [generation ["." primitive] ["." structure] - ["." reference]]]] + ["." reference] + ["." case] + ["." function]]]] {1 ["." /]} ## [test ## [luxc ## [lang ## [translation - ## ## ["_.T" function] - ## ## ["_.T" case] ## ## ["_.T" common] ## ## ["_.T" jvm] ## ## ["_.T" js] @@ -44,12 +44,15 @@ (primitive.spec runner) (structure.spec runner) (reference.spec runner definer) + (case.spec runner) + (function.spec runner) )) (program: args (<| io.io _.run! - (_.times 100) + ## (_.times 100) + (_.seed 1985013625126912890) (do r.monad [_ (wrap []) #let [?runner,definer (io.run (do io.monad |