diff options
Diffstat (limited to 'stdlib/source/test/lux/control/concurrency/stm.lux')
-rw-r--r-- | stdlib/source/test/lux/control/concurrency/stm.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/lux/control/concurrency/stm.lux b/stdlib/source/test/lux/control/concurrency/stm.lux index 8039bf039..103476455 100644 --- a/stdlib/source/test/lux/control/concurrency/stm.lux +++ b/stdlib/source/test/lux/control/concurrency/stm.lux @@ -13,7 +13,7 @@ [data ["[0]" product] [collection - ["[0]" list ("[1]\[0]" functor)]]] + ["[0]" list ("[1]#[0]" functor)]]] [math ["[0]" random] [number @@ -27,7 +27,7 @@ (def: injection (Injection /.STM) - (\ /.monad in)) + (# /.monad in)) (def: comparison (Comparison /.STM) @@ -41,7 +41,7 @@ (do [! random.monad] [dummy random.nat expected random.nat - iterations_per_process (|> random.nat (\ ! each (n.% 100)))] + iterations_per_process (|> random.nat (# ! each (n.% 100)))] ($_ _.and (_.for [/.functor] ($functor.spec ..injection ..comparison /.functor)) @@ -51,7 +51,7 @@ ($monad.spec ..injection ..comparison /.monad)) (in (do async.monad - [actual (/.commit! (\ /.monad in expected))] + [actual (/.commit! (# /.monad in expected))] (_.cover' [/.commit!] (n.= expected actual)))) (in (do async.monad @@ -84,17 +84,17 @@ [follower sink] (io.run! (/.follow! box))] _ (/.commit! (/.write expected box)) _ (/.commit! (/.update (n.* 2) box)) - _ (async.future (\ sink close)) + _ (async.future (# sink close)) _ (/.commit! (/.update (n.* 3) box)) changes (frp.list follower)] (_.cover' [/.follow!] - (\ (list.equivalence n.equivalence) = + (# (list.equivalence n.equivalence) = (list expected (n.* 2 expected)) changes)))) (in (let [var (/.var 0)] (do [! async.monad] [_ (|> (list.repeated iterations_per_process []) - (list\each (function (_ _) (/.commit! (/.update ++ var)))) + (list#each (function (_ _) (/.commit! (/.update ++ var)))) (monad.all !)) cummulative (/.commit! (/.read var))] (_.cover' [/.STM] |