diff options
author | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
commit | 94e5802f594a73245fce0fbd885103b8bf210d57 (patch) | |
tree | 65e5799c0be40f5f015b39bfa6c87c9c27fd9424 /stdlib/source/test/aedifex/hash.lux | |
parent | b491dfff00219d5206075ea65468e00ab657075d (diff) |
Added some simple time-series handling machinery.
Diffstat (limited to 'stdlib/source/test/aedifex/hash.lux')
-rw-r--r-- | stdlib/source/test/aedifex/hash.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/aedifex/hash.lux b/stdlib/source/test/aedifex/hash.lux index ea6d6435e..36326a58f 100644 --- a/stdlib/source/test/aedifex/hash.lux +++ b/stdlib/source/test/aedifex/hash.lux @@ -31,8 +31,8 @@ (-> (-> Binary (/.Hash h)) (Random (/.Hash h)))) (do [! random.monad] - [size (at ! each (n.% 100) random.nat)] - (at ! each hash (_binary.random size)))) + [size (of ! each (n.% 100) random.nat)] + (of ! each hash (_binary.random size)))) (def .public test Test @@ -52,11 +52,11 @@ (_.coverage [<hash> <constructor> <exception>] (and (when (<constructor> (/.data expected)) {try.#Success actual} - (at /.equivalence = expected actual) + (of /.equivalence = expected actual) {try.#Failure error} false) - (when (<constructor> (at binary.monoid composite + (when (<constructor> (of binary.monoid composite (/.data expected) (/.data expected))) {try.#Success actual} @@ -81,8 +81,8 @@ [(do random.monad [expected (..random <hash>)] (_.coverage [<codec>] - (when (at <codec> decoded - (format (at <codec> encoded expected) + (when (of <codec> decoded + (format (of <codec> encoded expected) "AABBCC")) {try.#Success actual} false |