From febfa99c2823219c2e76d2c73b1fd8db8f6c9918 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 7 May 2018 01:37:38 -0400
Subject: - Implemented Deg functionality in pure Lux.

---
 .../test/luxc/lang/analysis/procedure/common.lux   | 35 ----------------------
 .../test/test/luxc/lang/translation/common.lux     |  2 +-
 2 files changed, 1 insertion(+), 36 deletions(-)

(limited to 'new-luxc/test')

diff --git a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
index 632a798e3..a482c4265 100644
--- a/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
+++ b/new-luxc/test/test/luxc/lang/analysis/procedure/common.lux
@@ -112,39 +112,6 @@
                   (check-success+ "lux int char" (list subjectC) Text))
             ))))
 
-(context: "Deg procedures"
-  (<| (times +100)
-      (do @
-        [subjectC (|> r.deg (:: @ map code.deg))
-         paramC (|> r.deg (:: @ map code.deg))
-         natC (|> r.nat (:: @ map code.nat))]
-        ($_ seq
-            (test "Can add degrees."
-                  (check-success+ "lux deg +" (list subjectC paramC) Deg))
-            (test "Can subtract degrees."
-                  (check-success+ "lux deg -" (list subjectC paramC) Deg))
-            (test "Can multiply degrees."
-                  (check-success+ "lux deg *" (list subjectC paramC) Deg))
-            (test "Can divide degrees."
-                  (check-success+ "lux deg /" (list subjectC paramC) Deg))
-            (test "Can calculate remainder of degrees."
-                  (check-success+ "lux deg %" (list subjectC paramC) Deg))
-            (test "Can test equality of degrees."
-                  (check-success+ "lux deg =" (list subjectC paramC) Bool))
-            (test "Can compare degrees."
-                  (check-success+ "lux deg <" (list subjectC paramC) Bool))
-            (test "Can obtain minimum degree."
-                  (check-success+ "lux deg min" (list) Deg))
-            (test "Can obtain maximum degree."
-                  (check-success+ "lux deg max" (list) Deg))
-            (test "Can convert degree to frac number."
-                  (check-success+ "lux deg to-frac" (list subjectC) Frac))
-            (test "Can scale degree."
-                  (check-success+ "lux deg scale" (list subjectC natC) Deg))
-            (test "Can calculate the reciprocal of a natural number."
-                  (check-success+ "lux deg reciprocal" (list subjectC natC) Deg))
-            ))))
-
 (context: "Frac procedures"
   (<| (times +100)
       (do @
@@ -180,8 +147,6 @@
                   (check-success+ "lux frac negative-infinity" (list) Frac))
             (test "Can convert frac number to integer."
                   (check-success+ "lux frac to-int" (list subjectC) Int))
-            (test "Can convert frac number to degree."
-                  (check-success+ "lux frac to-deg" (list subjectC) Deg))
             (test "Can convert frac number to text."
                   (check-success+ "lux frac encode" (list subjectC) Text))
             (test "Can convert text to frac number."
diff --git a/new-luxc/test/test/luxc/lang/translation/common.lux b/new-luxc/test/test/luxc/lang/translation/common.lux
index 2da309f34..25d3c4dc9 100644
--- a/new-luxc/test/test/luxc/lang/translation/common.lux
+++ b/new-luxc/test/test/luxc/lang/translation/common.lux
@@ -8,7 +8,7 @@
              ["e" error]
              [bool "bool/" Eq<Bool>]
              [text "text/" Eq<Text>]
-             [number "nat/" Interval<Nat> "int/" Number<Int> Interval<Int> "frac/" Number<Frac> Interval<Frac> "deg/" Interval<Deg>]
+             [number "int/" Number<Int> Interval<Int> "frac/" Number<Frac> Interval<Frac>]
              (coll ["a" array]
                    [list]))
        ["r" math/random]
-- 
cgit v1.2.3