diff options
| author | Eduardo Julian | 2019-03-22 21:38:04 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-03-22 21:38:04 -0400 |
| commit | a14cef9af5ddd60034152f94adad28352135350d (patch) | |
| tree | cd0fc5bbd9b99ee308c6d04b9a559167ffc47454 /stdlib/source/test/lux.lux | |
| parent | 36c09baf6d977d6bcb712459325b9c5c3e7589ae (diff) | |
Ported tests for number-related modules.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux.lux | 10 |
1 files changed, 3 insertions, 7 deletions
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" |