diff options
Diffstat (limited to 'stdlib/source/test/lux/world/file.lux')
| -rw-r--r-- | stdlib/source/test/lux/world/file.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index b72e8be82..c0c3f7d18 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -1,6 +1,6 @@ (.module: [lux #* - data/text/format + ["%" data/text/format (#+ format)] ["r" math/random (#+ Random) ("#@." monad)] ["_" test (#+ Test)] [abstract/monad (#+ do)] @@ -34,7 +34,7 @@ (def: (creation-and-deletion number) (-> Nat Test) (r@wrap (do promise.monad - [#let [path (format "temp_file_" (%n number))] + [#let [path (format "temp_file_" (%.nat number))] result (promise.future (do (error.with io.monad) [#let [check-existence! (: (IO (Error Bit)) @@ -53,7 +53,7 @@ (def: (read-and-write number data) (-> Nat Binary Test) (r@wrap (do promise.monad - [#let [path (format "temp_file_" (%n number))] + [#let [path (format "temp_file_" (%.nat number))] result (promise.future (do (error.with io.monad) [file (!.use (:: /.system create-file) path) @@ -66,7 +66,7 @@ (def: #export test Test - (<| (_.context (%name (name-of /._))) + (<| (_.context (%.name (name-of /._))) (do r.monad [file-size (|> r.nat (:: @ map (|>> (n/% 100) (n/max 10)))) dataL (_binary.binary file-size) |