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