diff options
| author | Eduardo Julian | 2018-07-13 20:17:21 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-07-13 20:17:21 -0400 |
| commit | 6acf4ffc362c0f8ef77d96f8cfe991adb2d9a0eb (patch) | |
| tree | 9346abfd3cca6e7ea9a97be4ba76a26e6d8b5c4f /stdlib/test | |
| parent | e8f99539a71febaca6013d72d30f6afc33059b4e (diff) | |
- Re-named "lux/data/bit" to "lux/data/number/i64".
Diffstat (limited to 'stdlib/test')
| -rw-r--r-- | stdlib/test/test/lux.lux | 5 | ||||
| -rw-r--r-- | stdlib/test/test/lux/data/number/i64.lux (renamed from stdlib/test/test/lux/data/bit.lux) | 4 | ||||
| -rw-r--r-- | stdlib/test/test/lux/world/blob.lux | 6 |
3 files changed, 8 insertions, 7 deletions
diff --git a/stdlib/test/test/lux.lux b/stdlib/test/test/lux.lux index 706e6e4bb..4f1a810c2 100644 --- a/stdlib/test/test/lux.lux +++ b/stdlib/test/test/lux.lux @@ -6,7 +6,8 @@ ["r" math/random] [data [maybe] - [bit] + [number + [i64]] [text ("text/" Equivalence<Text>) format]] ["." macro @@ -133,7 +134,7 @@ (def: frac-rev (r.Random Rev) (|> r.rev - (:: r.Functor<Random> map (|>> (bit.left-shift +11) (bit.logical-right-shift +11))))) + (:: r.Functor<Random> map (|>> (i64.left-shift +11) (i64.logical-right-shift +11))))) (do-template [category rand-gen -> <- = <cap>] [(context: (format "[" category "] " "Numeric conversions") diff --git a/stdlib/test/test/lux/data/bit.lux b/stdlib/test/test/lux/data/number/i64.lux index 6d76ac4e2..1dd9dd314 100644 --- a/stdlib/test/test/lux/data/bit.lux +++ b/stdlib/test/test/lux/data/number/i64.lux @@ -4,8 +4,8 @@ [control ["M" monad (#+ do Monad)]] [data - ["&" bit] - number] + [number #* + ["&" i64]]] [math ["r" random]]] lux/test) diff --git a/stdlib/test/test/lux/world/blob.lux b/stdlib/test/test/lux/world/blob.lux index 7bce91298..f93b4e5dd 100644 --- a/stdlib/test/test/lux/world/blob.lux +++ b/stdlib/test/test/lux/world/blob.lux @@ -5,9 +5,9 @@ [monad (#+ do)] [pipe]] [data - [bit] - [number] ["e" error] + ["." number + [i64]] [collection [list]]] [world ["/" blob]] @@ -43,7 +43,7 @@ (-> Nat (-> Nat /.Blob (e.Error Nat)) (-> Nat Nat /.Blob (e.Error Any)) Nat Bool) (let [blob (/.create +8) bits (n/* +8 bytes) - capped-value (|> +1 (bit.left-shift bits) dec (bit.and value))] + capped-value (|> +1 (i64.left-shift bits) dec (i64.and value))] (succeed (do e.Monad<Error> [_ (write +0 value blob) |