aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source
diff options
context:
space:
mode:
authorEduardo Julian2019-04-26 22:28:25 -0400
committerEduardo Julian2019-04-26 22:28:25 -0400
commit28bdf77ac0619ee8a21d94d6039b1d7483cac37f (patch)
treed7040bc82a1ea878f2bcd9756675c0a7b8bb419c /new-luxc/source
parent084e3c400410e954b633a07c98f32ecfa62f1ec8 (diff)
- Ported pattern-matching tests.
- Ported function tests.
Diffstat (limited to 'new-luxc/source')
-rw-r--r--new-luxc/source/test/program.lux11
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