diff options
Diffstat (limited to 'stdlib/source/test/lux/world/console.lux')
| -rw-r--r-- | stdlib/source/test/lux/world/console.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux index e7fd9f42b..c007b3ea8 100644 --- a/stdlib/source/test/lux/world/console.lux +++ b/stdlib/source/test/lux/world/console.lux @@ -28,24 +28,24 @@ [char (try.of_maybe (text.nth 0 content)) [_ content] (try.of_maybe (text.split 1 content))] (if dead? - (exception.throw ..dead []) - (wrap [[dead? content] char])))) + (exception.except ..dead []) + (in [[dead? content] char])))) (def: (on_read_line [dead? content]) (do try.monad [[line content] (try.of_maybe (text.split_with text.new_line content))] (if dead? - (exception.throw ..dead []) - (wrap [[dead? content] line])))) + (exception.except ..dead []) + (in [[dead? content] line])))) (def: (on_write message [dead? content]) (if dead? - (exception.throw ..dead []) + (exception.except ..dead []) (#try.Success [dead? (format content message)]))) (def: (on_close [dead? content]) (if dead? - (exception.throw ..dead []) + (exception.except ..dead []) (#try.Success [true content]))))) (def: #export test @@ -62,9 +62,9 @@ (do io.monad [?_ (/.write_line expected console) ?actual (\ console read_line [])] - (wrap (<| (try.default false) - (do try.monad - [_ ?_ - actual ?actual] - (wrap (text\= expected actual))))))))) + (in (<| (try.default false) + (do try.monad + [_ ?_ + actual ?actual] + (in (text\= expected actual))))))))) ))) |