diff options
| author | Eduardo Julian | 2017-07-22 18:06:39 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-07-22 18:06:39 -0400 |
| commit | 607904a5238ecfcf7761143207ca41e082a12aa8 (patch) | |
| tree | 0143af0be315f8341548de7f77912c935ff438a5 /stdlib/test | |
| parent | 337158b78b5f42a6b9fc46ae367d3179a944d8bb (diff) | |
- Renamed Chan to Channel.
Diffstat (limited to 'stdlib/test')
| -rw-r--r-- | stdlib/test/test/lux/concurrency/frp.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/test/test/lux/concurrency/frp.lux b/stdlib/test/test/lux/concurrency/frp.lux index 3447a55b2..302a59d06 100644 --- a/stdlib/test/test/lux/concurrency/frp.lux +++ b/stdlib/test/test/lux/concurrency/frp.lux @@ -9,19 +9,19 @@ lux/test) (def: (to-channel values) - (-> (List Int) (&;Chan Int)) - (let [_chan (&;chan Int)] + (-> (List Int) (&;Channel Int)) + (let [_channel (&;channel Int)] (io;run (do Monad<IO> - [_ (mapM @ (function [value] (&;write value _chan)) + [_ (mapM @ (function [value] (&;write value _channel)) values) - _ (&;close _chan)] - (wrap _chan))))) + _ (&;close _channel)] + (wrap _channel))))) (context: "FRP" ($_ seq (do P;Monad<Promise> [elems (&;consume (to-channel (list 0 1 2 3 4 5)))] - (test "Can consume a chan into a list." + (test "Can consume a channel into a list." (case elems (^ (list 0 1 2 3 4 5)) true @@ -31,7 +31,7 @@ (do P;Monad<Promise> [elems (&;consume (let [input (to-channel (list 0 1 2 3 4 5)) - output (&;chan Int)] + output (&;channel Int)] (exec (&;pipe input output) output)))] (test "Can pipe one channel into another." @@ -89,7 +89,7 @@ false))) (do P;Monad<Promise> - [elems (&;consume (:: &;Functor<Chan> map i.inc (to-channel (list 0 1 2 3 4 5))))] + [elems (&;consume (:: &;Functor<Channel> map i.inc (to-channel (list 0 1 2 3 4 5))))] (test "Functor goes over every element in a channel." (case elems (^ (list 1 2 3 4 5 6)) @@ -99,7 +99,7 @@ false))) (do P;Monad<Promise> - [elems (&;consume (let [(^open) &;Applicative<Chan>] + [elems (&;consume (let [(^open) &;Applicative<Channel>] (apply (wrap i.inc) (wrap 12345))))] (test "Applicative works over all channel values." (case elems @@ -110,7 +110,7 @@ false))) (do P;Monad<Promise> - [elems (&;consume (do &;Monad<Chan> + [elems (&;consume (do &;Monad<Channel> [f (wrap i.inc) a (wrap 12345)] (wrap (f a))))] |