diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/spec/lux/world/shell.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/spec/lux/world/shell.lux b/stdlib/source/spec/lux/world/shell.lux index 935bd3ab3..1a9d649b8 100644 --- a/stdlib/source/spec/lux/world/shell.lux +++ b/stdlib/source/spec/lux/world/shell.lux @@ -34,20 +34,20 @@ [sleep! "sleep" Nat %.nat] ) -(def: (read-test expected process) +(def: (read_test expected process) (-> Text (/.Process Promise) _.Assertion) (do promise.monad [?read (!.use (\ process read) []) ?await (!.use (\ process await) [])] ($_ _.and' - (_.cover' [/.Can-Read] + (_.cover' [/.Can_Read] (case ?read (#try.Success actual) (text\= expected actual) (#try.Failure error) false)) - (_.cover' [/.Can-Wait /.Exit /.normal] + (_.cover' [/.Can_Wait /.Exit /.normal] (case ?await (#try.Success exit) (i.= /.normal exit) @@ -56,12 +56,12 @@ false)) ))) -(def: (destroy-test process) +(def: (destroy_test process) (-> (/.Process Promise) _.Assertion) (do promise.monad [?destroy (!.use (\ process destroy) []) ?await (!.use (\ process await) [])] - (_.cover' [/.Can-Destroy] + (_.cover' [/.Can_Destroy] (and (case ?destroy (#try.Success _) true @@ -75,7 +75,7 @@ (#try.Failure error) true))))) -(with-expansions [<shell-coverage> (as-is [/.Can-Execute /.Command /.Argument])] +(with_expansions [<shell_coverage> (as_is [/.Can_Execute /.Command /.Argument])] (def: #export (spec shell) (-> (/.Shell Promise) Test) (<| (_.for [/.Shell /.Process]) @@ -88,11 +88,11 @@ (case [?echo ?sleep] [(#try.Success echo) (#try.Success sleep)] ($_ _.and' - (_.cover' <shell-coverage> + (_.cover' <shell_coverage> true) - (..read-test message echo) - (..destroy-test sleep)) + (..read_test message echo) + (..destroy_test sleep)) _ - (_.cover' <shell-coverage> + (_.cover' <shell_coverage> false)))))))) |