From a14cef9af5ddd60034152f94adad28352135350d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 22 Mar 2019 21:38:04 -0400
Subject: Ported tests for number-related modules.

---
 stdlib/source/test/lux.lux | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index bf1011080..6543576a2 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -119,10 +119,6 @@
     ## [data
     ##  [product (#+)]
     ##  [sum (#+)]
-    ##  [number (#+) ## TODO: FIX Specially troublesome...
-    ##   [i64 (#+)]
-    ##   [ratio (#+)]
-    ##   [complex (#+)]]
     ##  [text (#+)
     ##   ## [format (#+)]
     ##   [lexer (#+)]
@@ -388,11 +384,11 @@
                              (..conversion <gen> <forward> <backward> <=>))]
 
                         ["Int -> Nat"
-                         i/= .nat        .int        (r;map (i/%  +1,000,000) r.int)]
+                         i/= .nat        .int        (r;map (i/% +1,000,000) r.int)]
                         ["Nat -> Int"
-                         n/= .int        .nat        (r;map (n/% 1,000,000) r.nat)]
+                         n/= .int        .nat        (r;map (n/%  1,000,000) r.nat)]
                         ["Int -> Frac"
-                         i/= int-to-frac frac-to-int (r;map (i/%  +1,000,000) r.int)]
+                         i/= int-to-frac frac-to-int (r;map (i/% +1,000,000) r.int)]
                         ["Frac -> Int"
                          f/= frac-to-int int-to-frac (r;map math.floor r.frac)]
                         ["Rev -> Frac"
-- 
cgit v1.2.3