aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test')
-rw-r--r--stdlib/source/test/lux/tool/compiler/phase/extension/analysis/common.lux26
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/test/lux/tool/compiler/phase/extension/analysis/common.lux b/stdlib/source/test/lux/tool/compiler/phase/extension/analysis/common.lux
index 7980118a0..b6f7fb10c 100644
--- a/stdlib/source/test/lux/tool/compiler/phase/extension/analysis/common.lux
+++ b/stdlib/source/test/lux/tool/compiler/phase/extension/analysis/common.lux
@@ -120,31 +120,31 @@
encodedC (|> r.safe-frac (:: @ map (|>> %f code.text)))]
($_ _.and
(_.test "Can add frac numbers."
- (check-success+ "lux frac +" (list paramC subjectC) Frac))
+ (check-success+ "lux f64 +" (list paramC subjectC) Frac))
(_.test "Can subtract frac numbers."
- (check-success+ "lux frac -" (list paramC subjectC) Frac))
+ (check-success+ "lux f64 -" (list paramC subjectC) Frac))
(_.test "Can multiply frac numbers."
- (check-success+ "lux frac *" (list paramC subjectC) Frac))
+ (check-success+ "lux f64 *" (list paramC subjectC) Frac))
(_.test "Can divide frac numbers."
- (check-success+ "lux frac /" (list paramC subjectC) Frac))
+ (check-success+ "lux f64 /" (list paramC subjectC) Frac))
(_.test "Can calculate remainder of frac numbers."
- (check-success+ "lux frac %" (list paramC subjectC) Frac))
+ (check-success+ "lux f64 %" (list paramC subjectC) Frac))
(_.test "Can test equivalence of frac numbers."
- (check-success+ "lux frac =" (list paramC subjectC) Bit))
+ (check-success+ "lux f64 =" (list paramC subjectC) Bit))
(_.test "Can compare frac numbers."
- (check-success+ "lux frac <" (list paramC subjectC) Bit))
+ (check-success+ "lux f64 <" (list paramC subjectC) Bit))
(_.test "Can obtain minimum frac number."
- (check-success+ "lux frac min" (list) Frac))
+ (check-success+ "lux f64 min" (list) Frac))
(_.test "Can obtain maximum frac number."
- (check-success+ "lux frac max" (list) Frac))
+ (check-success+ "lux f64 max" (list) Frac))
(_.test "Can obtain smallest frac number."
- (check-success+ "lux frac smallest" (list) Frac))
+ (check-success+ "lux f64 smallest" (list) Frac))
(_.test "Can convert frac number to integer."
- (check-success+ "lux frac int" (list subjectC) Int))
+ (check-success+ "lux f64 i64" (list subjectC) Int))
(_.test "Can convert frac number to text."
- (check-success+ "lux frac encode" (list subjectC) Text))
+ (check-success+ "lux f64 encode" (list subjectC) Text))
(_.test "Can convert text to frac number."
- (check-success+ "lux frac decode" (list encodedC) (type (Maybe Frac))))
+ (check-success+ "lux f64 decode" (list encodedC) (type (Maybe Frac))))
)))
(def: text