From 28bdf77ac0619ee8a21d94d6039b1d7483cac37f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 26 Apr 2019 22:28:25 -0400
Subject: - Ported pattern-matching tests. - Ported function tests.

---
 new-luxc/source/test/program.lux | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'new-luxc/source/test')

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
-- 
cgit v1.2.3