diff options
Diffstat (limited to 'stdlib/source/test/lux/type')
| -rw-r--r-- | stdlib/source/test/lux/type/check.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/lux/type/resource.lux | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/type/check.lux b/stdlib/source/test/lux/type/check.lux index 1807046e5..8ced5e3eb 100644 --- a/stdlib/source/test/lux/type/check.lux +++ b/stdlib/source/test/lux/type/check.lux @@ -121,10 +121,10 @@ ($_ _.and (do random.monad [expected (random.ascii/upper 10)] - (_.cover [/.fail] + (_.cover [/.failure] (case (/.run /.fresh_context (: (/.Check Any) - (/.fail expected))) + (/.failure expected))) (#try.Success _) false (#try.Failure actual) (is? expected actual)))) (do random.monad diff --git a/stdlib/source/test/lux/type/resource.lux b/stdlib/source/test/lux/type/resource.lux index 859e8ca3f..9e5da1d8a 100644 --- a/stdlib/source/test/lux/type/resource.lux +++ b/stdlib/source/test/lux/type/resource.lux @@ -11,7 +11,7 @@ ["." try] ["." exception (#+ Exception)] [concurrency - ["." promise]] + ["." async]] [parser ["<.>" code]]] [data @@ -114,7 +114,7 @@ (_.for [/.Linear /.async /.run_async] (`` ($_ _.and (~~ (template [<coverage> <bindings>] - [(wrap (monad.do promise.monad + [(wrap (monad.do async.monad [outcome (/.run_async (do /.async <bindings> @@ -143,8 +143,8 @@ right (/.read_async res|right) left (/.read_async res|left)]] [[/.lift_async] - [left (/.lift_async (promise.resolved pre)) - right (/.lift_async (promise.resolved post))]] + [left (/.lift_async (async.resolved pre)) + right (/.lift_async (async.resolved post))]] )) ))))) |