diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/pom.lux')
-rw-r--r-- | stdlib/source/test/aedifex/command/pom.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux index 75509644d..278d91209 100644 --- a/stdlib/source/test/aedifex/command/pom.lux +++ b/stdlib/source/test/aedifex/command/pom.lux @@ -35,7 +35,7 @@ (<| (_.covering /._) (do random.monad [sample @profile.random - .let [fs (file.mock (# file.default separator))]] + .let [fs (file.mock (at file.default separator))]] (in (do [! async.monad] [.let [console (@version.echo "")] outcome (/.do! console fs sample)] @@ -44,14 +44,14 @@ (do ! [verdict (do ///action.monad [expected (|> (///pom.write sample) - (try#each (|>> (# xml.codec encoded) - (# utf8.codec encoded))) - (# ! in)) - actual (# fs read ///pom.file) + (try#each (|>> (at xml.codec encoded) + (at utf8.codec encoded))) + (at ! in)) + actual (at fs read ///pom.file) - logging! (# ///action.monad each - (text#= /.success) - (# console read_line [])) + logging! (at ///action.monad each + (text#= /.success) + (at console read_line [])) .let [expected_content! (binary#= expected actual)]] |