aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/abstract/comonad.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/lux/abstract/comonad.lux')
-rw-r--r--stdlib/source/test/lux/abstract/comonad.lux34
1 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/test/lux/abstract/comonad.lux b/stdlib/source/test/lux/abstract/comonad.lux
index 2fb455145..5d5cb6857 100644
--- a/stdlib/source/test/lux/abstract/comonad.lux
+++ b/stdlib/source/test/lux/abstract/comonad.lux
@@ -1,17 +1,17 @@
(.using
- [library
- [lux "*"
- [abstract
- [monad {"+" do}]]
- [data
- ["[0]" identity {"+" Identity}]]
- [math
- ["[0]" random]
- [number
- ["n" nat]]]
- ["_" test {"+" Test}]]]
- [\\library
- ["[0]" /]])
+ [library
+ [lux "*"
+ [abstract
+ [monad {"+" do}]]
+ [data
+ ["[0]" identity {"+" Identity}]]
+ [math
+ ["[0]" random]
+ [number
+ ["n" nat]]]
+ ["_" test {"+" Test}]]]
+ [\\library
+ ["[0]" /]])
(def: .public test
Test
@@ -21,8 +21,8 @@
($_ _.and
(_.cover [/.be]
(n.= (++ sample)
- (: (Identity Nat)
- (/.be identity.comonad
- [value (out sample)]
- (out (++ value))))))
+ (is (Identity Nat)
+ (/.be identity.comonad
+ [value (out sample)]
+ (out (++ value))))))
))))