From 1651d847ba70ee36171f3809a25bece325fd5715 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 2 Dec 2017 12:49:25 -0400
Subject: - Added context-sensitive macro-expansion by means of "lux
 in-module", and removed all the (now unnecessary) #hidden tags. - Fixed a bug
 when loading the imports from the cache. - Added special notation for
 context-sensitive macro-expansion.

---
 stdlib/test/test/lux/concurrency/promise.lux | 2 +-
 stdlib/test/test/lux/data/number/ratio.lux   | 5 ++++-
 stdlib/test/tests.lux                        | 4 +++-
 3 files changed, 8 insertions(+), 3 deletions(-)

(limited to 'stdlib/test')

diff --git a/stdlib/test/test/lux/concurrency/promise.lux b/stdlib/test/test/lux/concurrency/promise.lux
index 3be2f03b5..37ba6f2e1 100644
--- a/stdlib/test/test/lux/concurrency/promise.lux
+++ b/stdlib/test/test/lux/concurrency/promise.lux
@@ -56,7 +56,7 @@
 
       (test "Cannot re-resolve a resolved promise."
             (and (not (io.run (&.resolve false (&/wrap true))))
-                 (io.run (&.resolve true (&.promise Bool)))))
+                 (io.run (&.resolve true (: (&.Promise Bool) (&.promise #.None))))))
 
       (wrap (do &.Monad<Promise>
               [?none (&.time-out +100 (&.delay +200 true))
diff --git a/stdlib/test/test/lux/data/number/ratio.lux b/stdlib/test/test/lux/data/number/ratio.lux
index 93081cd14..73e43e6c5 100644
--- a/stdlib/test/test/lux/data/number/ratio.lux
+++ b/stdlib/test/test/lux/data/number/ratio.lux
@@ -32,7 +32,10 @@
                          (&.ratio +0 denom2)))
 
             (test "All ratios are built normalized."
-                  (|> sample &.normalize (&.r/= sample)))
+                  (|> sample
+                      &.normalize
+                      ("lux in-module" "lux/data/number/ratio")
+                      (&.r/= sample)))
             ))))
 
 (context: "Arithmetic"
diff --git a/stdlib/test/tests.lux b/stdlib/test/tests.lux
index 2efff3c71..ad43cadfe 100644
--- a/stdlib/test/tests.lux
+++ b/stdlib/test/tests.lux
@@ -74,7 +74,8 @@
              (world ["_." blob]
                     ["_." file]
                     (net ["_." tcp]
-                         ["_." udp]))))
+                         ["_." udp]))
+             ))
   (lux (control [contract]
                 [concatenative])
        (concurrency [space])
@@ -88,6 +89,7 @@
              (coll (tree ["tree_." parser])))
        (math [random])
        [macro]
+       (macro (poly [json]))
        (type [unit])
        [world/env]
        [world/console])
-- 
cgit v1.2.3