diff options
| author | Eduardo Julian | 2019-04-28 01:48:04 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-04-28 01:48:04 -0400 |
| commit | 41b83b7a2d3be8f454f780dca497c4eeed900bbf (patch) | |
| tree | 8b5eadd88e0f51a2d0e891e5c0708f0fa9b740fb /stdlib/source/test | |
| parent | 78044833d179b8dd168c665f9616ce78901f0ff4 (diff) | |
Turned all "lux frac ???" extensions to "lux f64 ???".
Diffstat (limited to 'stdlib/source/test')
| -rw-r--r-- | stdlib/source/test/lux/tool/compiler/phase/extension/analysis/common.lux | 26 |
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 |