From 748c868680683df1949f62aac274040ac5bf43da Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 30 Jul 2018 23:40:48 -0400
Subject: Now implementing math functionality in stdlib instead of the
 compiler.

---
 .../test/test/luxc/lang/translation/common.lux     | 41 ----------------------
 1 file changed, 41 deletions(-)

(limited to 'new-luxc/test')

diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux
index 2641d8acd..9a2465ce3 100644
--- a/new-luxc/test/test/luxc/lang/translation/common.lux
+++ b/new-luxc/test/test/luxc/lang/translation/common.lux
@@ -327,46 +327,6 @@
                          #0)))
         )))
 
-(def: (math-spec run)
-  (-> Runner Test)
-  (do r.Monad<Random>
-    [subject r.frac
-     param r.frac]
-    (`` ($_ seq
-            (~~ (do-template [<name>]
-                  [(test (format "Can apply '" <name> "' procedure.")
-                         (|> (run (#synthesis.Extension <name> (list (synthesis.f64 subject))))
-                             (case> (#e.Success valueV)
-                                    #1
-
-                                    (#e.Error error)
-                                    (exec (log! error)
-                                      #0))))]
-
-                  ["lux math cos"]
-                  ["lux math sin"]
-                  ["lux math tan"]
-                  ["lux math acos"]
-                  ["lux math asin"]
-                  ["lux math atan"]
-                  ["lux math exp"]
-                  ["lux math log"]
-                  ["lux math ceil"]
-                  ["lux math floor"]))
-            (~~ (do-template [<name>]
-                  [(test (format "Can apply '" <name> "' procedure.")
-                         (|> (run (#synthesis.Extension <name> (list (synthesis.f64 subject)
-                                                                     (synthesis.f64 param))))
-                             (case> (#e.Success valueV)
-                                    #1
-
-                                    (#e.Error error)
-                                    (exec (log! error)
-                                      #0))))]
-
-                  ["lux math pow"]))
-            ))))
-
 (def: (io-spec run)
   (-> Runner Test)
   (do r.Monad<Random>
@@ -552,7 +512,6 @@
       (f64-spec run)
       (text-spec run)
       (array-spec run)
-      (math-spec run)
       (io-spec run)
       (atom-spec run)
       (box-spec run)
-- 
cgit v1.2.3