From a79927892174c3564c83a0e741e5cc0aaaeeb37c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 30 Jun 2017 18:43:07 -0400
Subject: - WIP: Added generation for common procedures.

---
 new-luxc/test/test/luxc/generator/primitive.lux | 3 ++-
 new-luxc/test/test/luxc/generator/structure.lux | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'new-luxc/test')

diff --git a/new-luxc/test/test/luxc/generator/primitive.lux b/new-luxc/test/test/luxc/generator/primitive.lux
index 53b455812..b1ea17f95 100644
--- a/new-luxc/test/test/luxc/generator/primitive.lux
+++ b/new-luxc/test/test/luxc/generator/primitive.lux
@@ -15,6 +15,7 @@
         [analyser]
         [synthesizer]
         (generator ["@" expr]
+                   ["@;" runtime]
                    ["@;" eval]
                    ["@;" common]))
   (test/luxc common))
@@ -50,7 +51,7 @@
               (|> (@eval;eval (@;generate #ls;Unit))
                   (macro;run (init-compiler []))
                   (case> (#R;Success valueG)
-                         (is @common;unit (:! Text valueG))
+                         (is @runtime;unit (:! Text valueG))
 
                          _
                          false)))
diff --git a/new-luxc/test/test/luxc/generator/structure.lux b/new-luxc/test/test/luxc/generator/structure.lux
index 817052eff..1fcba59d4 100644
--- a/new-luxc/test/test/luxc/generator/structure.lux
+++ b/new-luxc/test/test/luxc/generator/structure.lux
@@ -40,7 +40,7 @@
   (-> [ls;Synthesis Top] Bool)
   (case prediction
     #ls;Unit
-    (is @common;unit (:! Text sample))
+    (is @runtime;unit (:! Text sample))
 
     (^template [<tag> <type> <test>]
       (<tag> prediction')
-- 
cgit v1.2.3