diff options
Diffstat (limited to 'stdlib/source/test')
215 files changed, 1783 insertions, 1783 deletions
diff --git a/stdlib/source/test/aedifex/artifact/snapshot.lux b/stdlib/source/test/aedifex/artifact/snapshot.lux index 5379dd8af..628412bee 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot.lux @@ -40,7 +40,7 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) $/build.test diff --git a/stdlib/source/test/aedifex/artifact/snapshot/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux index 2775467c9..71024f4d0 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/build.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux @@ -34,6 +34,6 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) )))) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux index e097f5420..ae1ffb7a5 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux @@ -41,6 +41,6 @@ (|> expected /.format (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) ))) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/time.lux b/stdlib/source/test/aedifex/artifact/snapshot/time.lux index 28dd249cc..d93d9070c 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/time.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/time.lux @@ -36,7 +36,7 @@ (|> expected /.format (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) )) ))) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux index 7ba555256..c5c8f0e71 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux @@ -43,7 +43,7 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) /value.test diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux index 366ec1955..56ffe1ea1 100644 --- a/stdlib/source/test/aedifex/artifact/time.lux +++ b/stdlib/source/test/aedifex/artifact/time.lux @@ -43,7 +43,7 @@ (|> expected /.format (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (do random.monad [expected ..random] @@ -51,7 +51,7 @@ (|> expected /.instant /.of_instant - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (_.coverage [/.epoch] (instant#= instant.epoch (/.instant /.epoch))) diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux index 12c4a0da1..ca23a1d2a 100644 --- a/stdlib/source/test/aedifex/artifact/time/date.lux +++ b/stdlib/source/test/aedifex/artifact/time/date.lux @@ -49,13 +49,13 @@ (|> expected /.format (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.value /.date] (|> expected /.value /.date - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.year_is_out_of_range] (case (/.date candidate) diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux index c3b866451..a242ae3a4 100644 --- a/stdlib/source/test/aedifex/artifact/time/time.lux +++ b/stdlib/source/test/aedifex/artifact/time/time.lux @@ -35,6 +35,6 @@ (|> expected /.format (<text>.result /.parser) - (try#each (# time.equivalence = expected)) + (try#each (at time.equivalence = expected)) (try.else false)))) ))) diff --git a/stdlib/source/test/aedifex/artifact/versioning.lux b/stdlib/source/test/aedifex/artifact/versioning.lux index 006ec6566..d1efdb17f 100644 --- a/stdlib/source/test/aedifex/artifact/versioning.lux +++ b/stdlib/source/test/aedifex/artifact/versioning.lux @@ -42,13 +42,13 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (_.coverage [/.init] (|> /.init /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = /.init)) + (try#each (at /.equivalence = /.init)) (try.else false))) ))) diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux index de334b03d..b9762e9ee 100644 --- a/stdlib/source/test/aedifex/cache.lux +++ b/stdlib/source/test/aedifex/cache.lux @@ -64,7 +64,7 @@ (def: content (Random Binary) (do [! random.monad] - [content_size (# ! each (n.% 100) random.nat)] + [content_size (at ! each (n.% 100) random.nat)] (_binary.random content_size))) (def: package @@ -82,7 +82,7 @@ (do [! random.monad] [[main_dependency main_package] ..package dependencies (|> (//package.dependencies main_package) - (# try.monad each set.list) + (at try.monad each set.list) (try.else (list)) (monad.each ! (function (_ dependency) (do ! @@ -105,7 +105,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [fs (is (file.System Async) - (file.mock (# file.default separator))) + (file.mock (at file.default separator))) program (program.async (program.mock environment.empty home working_directory))]] (in (do async.monad [wrote! (/.write_one program fs dependency expected_package) @@ -115,9 +115,9 @@ (do try.monad [_ wrote! actual_package read!] - (in (# //package.equivalence = - (has //package.#origin {//repository/origin.#Local ""} expected_package) - actual_package))))))))) + (in (at //package.equivalence = + (has //package.#origin {//repository/origin.#Local ""} expected_package) + actual_package))))))))) (def: plural Test @@ -126,7 +126,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [fs (is (file.System Async) - (file.mock (# file.default separator))) + (file.mock (at file.default separator))) program (program.async (program.mock environment.empty home working_directory))]] (in (do async.monad [wrote! (/.write_all program fs expected) @@ -136,11 +136,11 @@ (do try.monad [_ wrote! actual read!] - (in (# //dependency/resolution.equivalence = - (# dictionary.functor each - (has //package.#origin {//repository/origin.#Local ""}) - expected) - actual))))))))) + (in (at //dependency/resolution.equivalence = + (at dictionary.functor each + (has //package.#origin {//repository/origin.#Local ""}) + expected) + actual))))))))) (def: .public test Test diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux index 9cc571bbe..fe15d204e 100644 --- a/stdlib/source/test/aedifex/cli.lux +++ b/stdlib/source/test/aedifex/cli.lux @@ -78,8 +78,8 @@ (cli.result /.command) (pipe.case {try.#Success [names actual]} - (and (# (list.equivalence text.equivalence) = (list //.default) names) - (# /.equivalence = expected actual)) + (and (at (list.equivalence text.equivalence) = (list //.default) names) + (at /.equivalence = expected actual)) {try.#Failure error} false))))) @@ -96,8 +96,8 @@ (cli.result /.command) (pipe.case {try.#Success [actual_profile actual_command]} - (and (# (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile) - (# /.equivalence = expected_command actual_command)) + (and (at (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile) + (at /.equivalence = expected_command actual_command)) {try.#Failure error} false))))) diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux index c057d173d..b483ecd2c 100644 --- a/stdlib/source/test/aedifex/command/auto.lux +++ b/stdlib/source/test/aedifex/command/auto.lux @@ -57,8 +57,8 @@ (if (n.= expected_runs actual_runs) (in {try.#Failure end_signal}) (do (try.with !) - [_ (# fs write dummy_file (# utf8.codec encoded (%.nat actual_runs))) - _ (# fs modify dummy_file (|> actual_runs .int instant.of_millis))] + [_ (at fs write dummy_file (at utf8.codec encoded (%.nat actual_runs))) + _ (at fs modify dummy_file (|> actual_runs .int instant.of_millis))] (in [shell.normal []])))))])) (def: .public test @@ -66,14 +66,14 @@ (<| (_.covering /._) (do [! random.monad] [end_signal (random.alphabetic 5) - .let [/ (# file.default separator) + .let [/ (at file.default separator) [fs watcher] (watch.mock /)] program (random.alphabetic 5) target (random.alphabetic 5) source (random.alphabetic 5) .let [empty_profile (is Profile - (# ///.monoid identity)) + (at ///.monoid identity)) with_target (is (-> Profile Profile) (has ///.#target target)) with_program (is (-> Profile Profile) @@ -87,18 +87,18 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) - expected_runs (# ! each (|>> (n.% 10) (n.max 2)) random.nat) - dummy_path (# ! each (|>> (format source /)) (random.alphabetic 5)) + expected_runs (at ! each (|>> (n.% 10) (n.max 2)) random.nat) + dummy_path (at ! each (|>> (format source /)) (random.alphabetic 5)) [compiler resolution] $build.resolution] (all _.and (_.coverage [/.delay] (n.> 0 /.delay)) (in (do async.monad [verdict (do ///action.monad - [_ (# fs make_directory source) - _ (# fs write dummy_path (binary.empty 0)) + [_ (at fs make_directory source) + _ (at fs write dummy_path (binary.empty 0)) .let [[@runs command] (..command expected_runs end_signal fs dummy_path)] - _ (# watcher poll [])] + _ (at watcher poll [])] (do [! async.monad] [no_dangling_process! (|> profile (has ///.#lux compiler) @@ -108,16 +108,16 @@ fs (shell.async ($build.good_shell [])) resolution) - (# ! each (|>> (pipe.case - {try.#Failure error} - (same? end_signal error) + (at ! each (|>> (pipe.case + {try.#Failure error} + (same? end_signal error) - {try.#Success _} - false)))) + {try.#Success _} + false)))) correct_number_of_runs! (|> @runs atom.read! async.future - (# ! each (n.= expected_runs)))] + (at ! each (n.= expected_runs)))] (in {try.#Success (and correct_number_of_runs! no_dangling_process!)})))] (_.coverage' [/.do!] diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux index 1bb77d307..25302fa71 100644 --- a/stdlib/source/test/aedifex/command/build.lux +++ b/stdlib/source/test/aedifex/command/build.lux @@ -142,14 +142,14 @@ (do [! random.monad] [last_read (random.alphabetic 5) last_error (random.alphabetic 5) - .let [fs (file.mock (# file.default separator)) + .let [fs (file.mock (at file.default separator)) shell (shell.async (..good_shell []))] program (random.alphabetic 5) target (random.alphabetic 5) home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [empty_profile (is Profile - (# ///.monoid identity)) + (at ///.monoid identity)) with_target (is (-> Profile Profile) (has ///.#target target)) with_program (is (-> Profile Profile) @@ -186,8 +186,8 @@ [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs shell resolution (has ///.#lux compiler profile)) - start (# console read_line []) - end (# console read_line [])] + start (at console read_line []) + end (at console read_line [])] (in (and (text#= /.start start) (text#= /.success end))))] (_.coverage' [/.do! @@ -208,8 +208,8 @@ [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async (..bad_shell [])) resolution (has ///.#lux compiler profile)) - start (# console read_line []) - end (# console read_line [])] + start (at console read_line []) + end (at console read_line [])] (in (and (text#= /.start start) (text#= /.failure end))))] (_.coverage' [/.failure] @@ -228,17 +228,17 @@ [verdict (do ///action.monad [process (shell [environment.empty working_directory "" (list "")]) _ (<log!> console process) - actual/0 (# console read_line []) - actual/1 (# console read_line []) - actual/2 (# console read_line []) - end! (|> (# console read_line []) - (# ! each (|>> (pipe.case - {try.#Failure error} - true - - {try.#Success _} - false) - {try.#Success})))] + actual/0 (at console read_line []) + actual/1 (at console read_line []) + actual/2 (at console read_line []) + end! (|> (at console read_line []) + (at ! each (|>> (pipe.case + {try.#Failure error} + true + + {try.#Success _} + false) + {try.#Success})))] (in (and (text#= expected/0 actual/0) (text#= expected/1 actual/1) (text#= expected/2 actual/2) diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux index e7bf81855..4ead63063 100644 --- a/stdlib/source/test/aedifex/command/clean.lux +++ b/stdlib/source/test/aedifex/command/clean.lux @@ -43,7 +43,7 @@ (def: (files prefix) (-> Path (Random (List [Path Binary]))) (do [! random.monad] - [count (# ! each (n.% 10) random.nat) + [count (at ! each (n.% 10) random.nat) names (random.set text.hash count ..node_name) contents (random.list count ($binary.random 100))] (in (list.zipped_2 (list#each (|>> (format prefix)) (set.list names)) @@ -51,7 +51,7 @@ (def: (create_file! fs [path content]) (-> (file.System Async) [Path Binary] (Async (Try Any))) - (# fs write path content)) + (at fs write path content)) (def: (create_directory! fs path files) (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any))) @@ -63,11 +63,11 @@ (def: (directory_exists? fs) (-> (file.System Async) Path (Async (Try Bit))) - (|>> (# fs directory?) (try.lifted async.monad))) + (|>> (at fs directory?) (try.lifted async.monad))) (def: (file_exists? fs) (-> (file.System Async) Path (Async (Try Bit))) - (|>> (# fs file?) (try.lifted async.monad))) + (|>> (at fs file?) (try.lifted async.monad))) (def: (assets_exist? fs directory_path files) (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit))) @@ -87,8 +87,8 @@ [context ..node_name target ..node_name sub ..node_name - .let [fs (file.mock (# file.default separator)) - / (# fs separator) + .let [fs (file.mock (at file.default separator)) + / (at fs separator) target_path (format context / target) sub_path (format target_path / sub)] direct_files (..files (format target_path /)) @@ -107,7 +107,7 @@ context_exists!/post (..directory_exists? fs context) target_exists!/post (..assets_exist? fs target_path direct_files) sub_exists!/post (..assets_exist? fs sub_path sub_files) - logging (# console read_line [])] + logging (at console read_line [])] (in (and (and context_exists!/pre context_exists!/post) (and target_exists!/pre diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 0a4e08166..d62e027dd 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -62,7 +62,7 @@ shell (shell.async ($build.bad_shell []))] _ ($install.make_sources! fs (the ///.#sources profile)) _ (/.do! program shell console local remote fs artifact profile)] - (# console read_line []))) + (at console read_line []))) (def: .public test Test @@ -78,7 +78,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) - .let [fs (file.mock (# file.default separator)) + .let [fs (file.mock (at file.default separator)) program (program.async (program.mock environment.empty home working_directory)) local (///repository/local.repository program fs) remote (///repository.mock $repository.mock @@ -90,20 +90,20 @@ (the ///.#sources) set.list (export.library fs) - (# ! each (format.result tar.writer))) + (at ! each (format.result tar.writer))) - actual_pom (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom)) - actual_library (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library)) - actual_sha-1 (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1))) - actual_sha-1 (# async.monad in - (do try.monad - [actual_sha-1 (# utf8.codec decoded actual_sha-1)] - (# ///hash.sha-1_codec decoded actual_sha-1))) - actual_md5 (# remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5))) - actual_md5 (# async.monad in - (do try.monad - [actual_md5 (# utf8.codec decoded actual_md5)] - (# ///hash.md5_codec decoded actual_md5))) + actual_pom (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.pom)) + actual_library (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact ///artifact/extension.lux_library)) + actual_sha-1 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1))) + actual_sha-1 (at async.monad in + (do try.monad + [actual_sha-1 (at utf8.codec decoded actual_sha-1)] + (at ///hash.sha-1_codec decoded actual_sha-1))) + actual_md5 (at remote download (///repository/remote.uri (the ///artifact.#version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5))) + actual_md5 (at async.monad in + (do try.monad + [actual_md5 (at utf8.codec decoded actual_md5)] + (at ///hash.md5_codec decoded actual_md5))) .let [succeeded! (text#= /.success logging) @@ -113,18 +113,18 @@ actual_library) deployed_pom! - (binary#= (|> expected_pom (# xml.codec encoded) (# utf8.codec encoded)) + (binary#= (|> expected_pom (at xml.codec encoded) (at utf8.codec encoded)) actual_pom) deployed_sha-1! - (# ///hash.equivalence = - (///hash.sha-1 expected_library) - actual_sha-1) + (at ///hash.equivalence = + (///hash.sha-1 expected_library) + actual_sha-1) deployed_md5! - (# ///hash.equivalence = - (///hash.md5 expected_library) - actual_md5)]] + (at ///hash.equivalence = + (///hash.md5 expected_library) + actual_md5)]] (in (and succeeded! deployed_library! deployed_pom! diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux index c5e496e29..d9af2990b 100644 --- a/stdlib/source/test/aedifex/command/deps.lux +++ b/stdlib/source/test/aedifex/command/deps.lux @@ -61,7 +61,7 @@ dependee_artifact $///artifact.random depender_artifact (random.only (predicate.complement - (# ///artifact.equivalence = dependee_artifact)) + (at ///artifact.equivalence = dependee_artifact)) $///artifact.random) [_ dependee_package] $///package.random @@ -72,11 +72,11 @@ depender [///dependency.#artifact depender_artifact ///dependency.#type ///artifact/type.lux_library] - dependee_pom (|> (# ///.monoid identity) + dependee_pom (|> (at ///.monoid identity) (has ///.#identity {.#Some dependee_artifact}) ///pom.write try.trusted) - depender_pom (|> (# ///.monoid identity) + depender_pom (|> (at ///.monoid identity) (has ///.#identity {.#Some depender_artifact}) (has ///.#dependencies (set.of_list ///dependency.hash (list dependee))) ///pom.write @@ -85,15 +85,15 @@ dependee_package (|> dependee_package (has ///package.#origin {///repository/origin.#Remote ""}) (has ///package.#pom [dependee_pom - (|> dependee_pom (# xml.codec encoded) (# utf8.codec encoded)) + (|> dependee_pom (at xml.codec encoded) (at utf8.codec encoded)) {///dependency/status.#Unverified}])) depender_package (|> depender_package (has ///package.#origin {///repository/origin.#Remote ""}) (has ///package.#pom [depender_pom - (|> depender_pom (# xml.codec encoded) (# utf8.codec encoded)) + (|> depender_pom (at xml.codec encoded) (at utf8.codec encoded)) {///dependency/status.#Unverified}])) - fs (file.mock (# file.default separator)) + fs (file.mock (at file.default separator)) program (program.async (program.mock environment.empty home working_directory))]] (in (do async.monad [verdict (do ///action.monad @@ -102,7 +102,7 @@ pre (|> ///dependency/resolution.empty (dictionary.has dependee dependee_package) (///dependency/deployment.all local)) - post (|> (# ///.monoid identity) + post (|> (at ///.monoid identity) (has ///.#dependencies (set.of_list ///dependency.hash (list dependee depender))) (/.do! console local (list (///repository.mock ($///dependency/resolution.single depender_artifact depender_package) diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux index 4de5c5226..55bb762d0 100644 --- a/stdlib/source/test/aedifex/command/install.lux +++ b/stdlib/source/test/aedifex/command/install.lux @@ -40,7 +40,7 @@ (def: .public (make_sources! fs sources) (-> (file.System Async) (Set file.Path) (Action (List Any))) - (let [/ (# fs separator) + (let [/ (at fs separator) ! ///action.monad] (|> sources set.list @@ -57,18 +57,18 @@ [.let [console ($version.echo "")] _ (..make_sources! fs (the ///.#sources sample)) _ (/.do! console fs (///repository/local.repository program fs) sample)] - (# console read_line []))) + (at console read_line []))) (def: .public test Test (<| (_.covering /._) (do [! random.monad] [identity $artifact.random - sample (# ! each (has ///.#identity {.#Some identity}) - $profile.random) + sample (at ! each (has ///.#identity {.#Some identity}) + $profile.random) home (random.alphabetic 5) working_directory (random.alphabetic 5) - .let [/ (# file.default separator)]] + .let [/ (at file.default separator)]] (all _.and (in (do [! async.monad] [.let [fs (file.mock /) @@ -78,16 +78,16 @@ library_path (format artifact_path ///artifact/extension.lux_library) pom_path (format artifact_path ///artifact/extension.pom)] verdict (do [! ///action.monad] - [succeeded! (# ! each (text#= /.success) - (..execute! program fs sample)) + [succeeded! (at ! each (text#= /.success) + (..execute! program fs sample)) library_exists! (|> library_path (format home /) - (# fs file?) - (# async.monad each (|>> {try.#Success}))) + (at fs file?) + (at async.monad each (|>> {try.#Success}))) pom_exists! (|> pom_path (format home /) - (# fs file?) - (# async.monad each (|>> {try.#Success})))] + (at fs file?) + (at async.monad each (|>> {try.#Success})))] (in (and succeeded! library_exists! pom_exists!)))] 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)]] diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux index 50bd8e183..9b01c2feb 100644 --- a/stdlib/source/test/aedifex/command/test.lux +++ b/stdlib/source/test/aedifex/command/test.lux @@ -48,7 +48,7 @@ home (random.alphabetic 5) working_directory (random.alphabetic 5) .let [empty_profile (is Profile - (# ///.monoid identity)) + (at ///.monoid identity)) with_target (is (-> Profile Profile) (has ///.#target target)) with_test (is (-> Profile Profile) @@ -59,17 +59,17 @@ with_target)] [compiler resolution] @build.resolution] (all _.and - (let [fs (file.mock (# file.default separator)) + (let [fs (file.mock (at file.default separator)) console (@version.echo "")] (in (do async.monad [verdict (do ///action.monad [_ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async (@build.good_shell [])) resolution (has ///.#lux compiler profile)) - build_start (# console read_line []) - build_end (# console read_line []) - test_start (# console read_line []) - test_end (# console read_line [])] + build_start (at console read_line []) + build_end (at console read_line []) + test_start (at console read_line []) + test_end (at console read_line [])] (in (and (and (text#= //build.start build_start) (text#= //build.success build_end)) (and (text#= /.start test_start) @@ -77,7 +77,7 @@ (_.coverage' [/.do! /.start /.success] (try.else false verdict))))) - (let [fs (file.mock (# file.default separator)) + (let [fs (file.mock (at file.default separator)) console (@version.echo "")] (in (do async.monad [verdict (do ///action.monad @@ -102,10 +102,10 @@ _ (/.do! console (program.async (program.mock environment.empty home working_directory)) fs (shell.async bad_shell) resolution (has ///.#lux compiler profile)) - build_start (# console read_line []) - build_end (# console read_line []) - test_start (# console read_line []) - test_end (# console read_line [])] + build_start (at console read_line []) + build_end (at console read_line []) + test_start (at console read_line []) + test_end (at console read_line [])] (in (and (and (text#= //build.start build_start) (text#= //build.success build_end)) (and (text#= /.start test_start) diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux index fbd864d4b..bb92fadfb 100644 --- a/stdlib/source/test/aedifex/command/version.lux +++ b/stdlib/source/test/aedifex/command/version.lux @@ -71,7 +71,7 @@ [.let [console (..echo "")] verdict (do (try.with async.monad) [_ (/.do! console profile) - logging (# console read_line [])] + logging (at console read_line [])] (in (text#= (version.format lux_version.latest) logging)))] (_.coverage' [/.do!] diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index ab15af81c..794464839 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -147,8 +147,8 @@ Test (<| (_.covering /._) (do [! random.monad] - [address (# ! each (text.suffix uri.separator) - (random.upper_case 10))] + [address (at ! each (text.suffix uri.separator) + (random.upper_case 10))] (all _.and (do [! random.monad] [[dependency expected_artifact package] ..bundle @@ -165,12 +165,12 @@ (try.else false)))))) (do [! random.monad] [.let [hash (is (Hash [Dependency Artifact Package]) - (# hash.functor each (|>> product.right product.left product.left) - text.hash))] - num_bundles (# ! each (n.% 10) random.nat) + (at hash.functor each (|>> product.right product.left product.left) + text.hash))] + num_bundles (at ! each (n.% 10) random.nat) bundles (|> ..bundle (random.set hash num_bundles) - (# ! each set.list)) + (at ! each set.list)) .let [resolution (list#mix (function (_ [dependency expected_artifact package] resolution) (dictionary.has dependency package resolution)) resolution.empty diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux index eaec8b475..aeeb49cb2 100644 --- a/stdlib/source/test/aedifex/dependency/resolution.lux +++ b/stdlib/source/test/aedifex/dependency/resolution.lux @@ -77,14 +77,14 @@ (def: sha-1 (-> Binary Binary) (|>> ///hash.sha-1 - (# ///hash.sha-1_codec encoded) - (# utf8.codec encoded))) + (at ///hash.sha-1_codec encoded) + (at utf8.codec encoded))) (def: md5 (-> Binary Binary) (|>> ///hash.md5 - (# ///hash.md5_codec encoded) - (# utf8.codec encoded))) + (at ///hash.md5_codec encoded) + (at utf8.codec encoded))) (def: .public nope (Mock Any) @@ -112,8 +112,8 @@ (|> package (the ///package.#pom) product.left - (# xml.codec encoded) - (# utf8.codec encoded)))] + (at xml.codec encoded) + (at utf8.codec encoded)))] (cond (text.ends_with? ///artifact/extension.lux_library uri) {try.#Success [state library]} @@ -166,23 +166,23 @@ {try.#Success [state (|> expected_package (the ///package.#pom) product.left - (# xml.codec encoded) - (# utf8.codec encoded))]} + (at xml.codec encoded) + (at utf8.codec encoded))]} (text.ends_with? ..pom_sha-1 uri) {try.#Success [state (|> dummy_package (the ///package.#pom) product.left - (# xml.codec encoded) - (# utf8.codec encoded) + (at xml.codec encoded) + (at utf8.codec encoded) ..sha-1)]} (text.ends_with? ..pom_md5 uri) {try.#Success [state (|> expected_package (the ///package.#pom) product.left - (# xml.codec encoded) - (# utf8.codec encoded) + (at xml.codec encoded) + (at utf8.codec encoded) ..md5)]} ... else @@ -219,23 +219,23 @@ {try.#Success [state (|> expected_package (the ///package.#pom) product.left - (# xml.codec encoded) - (# utf8.codec encoded))]} + (at xml.codec encoded) + (at utf8.codec encoded))]} (text.ends_with? ..pom_sha-1 uri) {try.#Success [state (|> expected_package (the ///package.#pom) product.left - (# xml.codec encoded) - (# utf8.codec encoded) + (at xml.codec encoded) + (at utf8.codec encoded) ..sha-1)]} (text.ends_with? ..pom_md5 uri) {try.#Success [state (|> dummy_package (the ///package.#pom) product.left - (# xml.codec encoded) - (# utf8.codec encoded) + (at xml.codec encoded) + (at utf8.codec encoded) ..md5)]} ... else @@ -251,7 +251,7 @@ [_ expected_package] $///package.random [_ dummy_package] (random.only (|>> product.right (has ///package.#pom (the ///package.#pom expected_package)) - (# ///package.equivalence = expected_package) + (at ///package.equivalence = expected_package) not) $///package.random) .let [good (..single expected_artifact expected_package) @@ -265,9 +265,9 @@ (_.coverage' [/.one] (case actual_package {try.#Success actual_package} - (# ///package.equivalence = - (has ///package.#origin {///repository/origin.#Remote ""} expected_package) - actual_package) + (at ///package.equivalence = + (has ///package.#origin {///repository/origin.#Remote ""} expected_package) + actual_package) {try.#Failure _} false)))) @@ -296,7 +296,7 @@ [_ expected_package] $///package.random [_ dummy_package] (random.only (|>> product.right (has ///package.#pom (the ///package.#pom expected_package)) - (# ///package.equivalence = expected_package) + (at ///package.equivalence = expected_package) not) $///package.random) .let [good (..single expected_artifact expected_package) @@ -314,9 +314,9 @@ (_.coverage' [/.any] (case actual_package {try.#Success actual_package} - (# ///package.equivalence = - (has ///package.#origin {///repository/origin.#Remote ""} expected_package) - actual_package) + (at ///package.equivalence = + (has ///package.#origin {///repository/origin.#Remote ""} expected_package) + actual_package) {try.#Failure _} false)))) @@ -341,11 +341,11 @@ (do random.monad [dependee_artifact $///artifact.random depender_artifact (random.only (predicate.complement - (# ///artifact.equivalence = dependee_artifact)) + (at ///artifact.equivalence = dependee_artifact)) $///artifact.random) ignored_artifact (random.only (predicate.complement - (predicate.and (# ///artifact.equivalence = dependee_artifact) - (# ///artifact.equivalence = depender_artifact))) + (predicate.and (at ///artifact.equivalence = dependee_artifact) + (at ///artifact.equivalence = depender_artifact))) $///artifact.random)] (in [dependee_artifact depender_artifact ignored_artifact]))) @@ -365,33 +365,33 @@ ignored [///dependency.#artifact ignored_artifact ///dependency.#type ///artifact/type.lux_library] - dependee_pom (|> (# ///.monoid identity) + dependee_pom (|> (at ///.monoid identity) (has ///.#identity {.#Some dependee_artifact}) ///pom.write try.trusted) - depender_pom (|> (# ///.monoid identity) + depender_pom (|> (at ///.monoid identity) (has ///.#identity {.#Some depender_artifact}) (has ///.#dependencies (set.of_list ///dependency.hash (list dependee))) ///pom.write try.trusted) - ignored_pom (|> (# ///.monoid identity) + ignored_pom (|> (at ///.monoid identity) (has ///.#identity {.#Some ignored_artifact}) ///pom.write try.trusted) dependee_package (has ///package.#pom [dependee_pom - (|> dependee_pom (# xml.codec encoded) (# utf8.codec encoded)) + (|> dependee_pom (at xml.codec encoded) (at utf8.codec encoded)) {///dependency/status.#Unverified}] dependee_package) depender_package (has ///package.#pom [depender_pom - (|> depender_pom (# xml.codec encoded) (# utf8.codec encoded)) + (|> depender_pom (at xml.codec encoded) (at utf8.codec encoded)) {///dependency/status.#Unverified}] depender_package) ignored_package (has ///package.#pom [ignored_pom - (|> ignored_pom (# xml.codec encoded) (# utf8.codec encoded)) + (|> ignored_pom (at xml.codec encoded) (at utf8.codec encoded)) {///dependency/status.#Unverified}] ignored_package)]] (in [[dependee depender ignored] diff --git a/stdlib/source/test/aedifex/hash.lux b/stdlib/source/test/aedifex/hash.lux index a8b2e0d80..dfa36217b 100644 --- a/stdlib/source/test/aedifex/hash.lux +++ b/stdlib/source/test/aedifex/hash.lux @@ -30,8 +30,8 @@ (-> (-> Binary (/.Hash h)) (Random (/.Hash h)))) (do [! random.monad] - [size (# ! each (n.% 100) random.nat)] - (# ! each hash (_binary.random size)))) + [size (at ! each (n.% 100) random.nat)] + (at ! each hash (_binary.random size)))) (def: .public test Test @@ -51,13 +51,13 @@ (_.coverage [<hash> <constructor> <exception>] (and (case (<constructor> (/.data expected)) {try.#Success actual} - (# /.equivalence = expected actual) + (at /.equivalence = expected actual) {try.#Failure error} false) - (case (<constructor> (# binary.monoid composite - (/.data expected) - (/.data expected))) + (case (<constructor> (at binary.monoid composite + (/.data expected) + (/.data expected))) {try.#Success actual} false @@ -80,9 +80,9 @@ [(do random.monad [expected (..random <hash>)] (_.coverage [<codec>] - (case (# <codec> decoded - (format (# <codec> encoded expected) - "AABBCC")) + (case (at <codec> decoded + (format (at <codec> encoded expected) + "AABBCC")) {try.#Success actual} false diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index 16c91c69a..874170bc2 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -45,23 +45,23 @@ Test (<| (_.covering /._) (do [! random.monad] - [expected (# ! each (has //.#parents (list)) $profile.random) + [expected (at ! each (has //.#parents (list)) $profile.random) .let [fs (is (file.System Async) - (file.mock (# file.default separator)))]] + (file.mock (at file.default separator)))]] (in (do async.monad [verdict (do //action.monad [.let [profile (|> expected (//project.project //.default) //format.project %.code - (# utf8.codec encoded))] - _ (# fs write //project.file profile) + (at utf8.codec encoded))] + _ (at fs write //project.file profile) actual (is (Async (Try Profile)) (/.read async.monad fs (list //.default)))] - (in (# //.equivalence = - (|> expected - (revised //.#sources ..with_default_source) - (revised //.#repositories ..with_default_repository)) - actual)))] + (in (at //.equivalence = + (|> expected + (revised //.#sources ..with_default_source) + (revised //.#repositories ..with_default_repository)) + actual)))] (_.coverage' [/.read] (try.else false verdict))))))) diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux index 34869e646..041bad539 100644 --- a/stdlib/source/test/aedifex/metadata/artifact.lux +++ b/stdlib/source/test/aedifex/metadata/artifact.lux @@ -48,12 +48,12 @@ (random.alphabetic 5) (random.list 5 (random.alphabetic 5)) (do [! random.monad] - [year (# ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) - month (# ! each (|>> (n.% 12) (n.+ 1)) random.nat) - day_of_month (# ! each (|>> (n.% 28) (n.+ 1)) random.nat) - hour (# ! each (n.% 24) random.nat) - minute (# ! each (n.% 60) random.nat) - second (# ! each (n.% 60) random.nat)] + [year (at ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) + month (at ! each (|>> (n.% 12) (n.+ 1)) random.nat) + day_of_month (at ! each (|>> (n.% 28) (n.+ 1)) random.nat) + hour (at ! each (n.% 24) random.nat) + minute (at ! each (n.% 60) random.nat) + second (at ! each (n.% 60) random.nat)] (in (try.trusted (do try.monad [year (year.year year) @@ -89,7 +89,7 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (_.coverage [/.uri] (text#= (//.remote_project_uri artifact) @@ -98,7 +98,7 @@ [home (random.lower_case 5) working_directory (random.lower_case 5) .let [program (program.async (program.mock environment.empty home working_directory)) - fs (file.mock (# file.default separator)) + fs (file.mock (at file.default separator)) repository (///repository/local.repository program fs)]] (in (do async.monad [wrote? (/.write repository artifact expected) @@ -109,7 +109,7 @@ {try.#Failure _} false) (case actual {try.#Success actual} - (# /.equivalence = expected actual) + (at /.equivalence = expected actual) {try.#Failure _} false)))))) diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux index c45b817cd..7cff9954a 100644 --- a/stdlib/source/test/aedifex/metadata/snapshot.lux +++ b/stdlib/source/test/aedifex/metadata/snapshot.lux @@ -52,12 +52,12 @@ (def: random_instant (Random Instant) (do [! random.monad] - [year (# ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) - month (# ! each (|>> (n.% 12) (n.+ 1)) random.nat) - day_of_month (# ! each (|>> (n.% 28) (n.+ 1)) random.nat) - hour (# ! each (n.% 24) random.nat) - minute (# ! each (n.% 60) random.nat) - second (# ! each (n.% 60) random.nat)] + [year (at ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) + month (at ! each (|>> (n.% 12) (n.+ 1)) random.nat) + day_of_month (at ! each (|>> (n.% 28) (n.+ 1)) random.nat) + hour (at ! each (n.% 24) random.nat) + minute (at ! each (n.% 60) random.nat) + second (at ! each (n.% 60) random.nat)] (in (try.trusted (do try.monad [year (year.year year) @@ -101,7 +101,7 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.uri] (text#= (//.remote_artifact_uri artifact) @@ -110,7 +110,7 @@ [home (random.lower_case 5) working_directory (random.lower_case 5) .let [program (program.async (program.mock environment.empty home working_directory)) - fs (file.mock (# file.default separator)) + fs (file.mock (at file.default separator)) repository (///repository/local.repository program fs)]] (in (do async.monad [wrote? (/.write repository artifact expected) @@ -121,7 +121,7 @@ {try.#Failure _} false) (case actual {try.#Success actual} - (# /.equivalence = expected actual) + (at /.equivalence = expected actual) {try.#Failure _} false)))))) diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux index 6a7f0a960..2e669228a 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -43,7 +43,7 @@ (def: .public random (Random [//.Profile /.Package]) (do [! random.monad] - [content_size (# ! each (n.% 100) random.nat) + [content_size (at ! each (n.% 100) random.nat) content ($binary.random content_size) [profile pom] (random.one (function (_ profile) (try.maybe @@ -61,7 +61,7 @@ [[profile package] ..random] (all _.and (_.for [/.equivalence] - ($equivalence.spec /.equivalence (# ! each product.right ..random))) + ($equivalence.spec /.equivalence (at ! each product.right ..random))) (_.coverage [/.local?] (/.local? (has /.#origin {//origin.#Local "~/yolo"} package))) @@ -92,9 +92,9 @@ expected_md5 (//hash.md5 binary_pom)] (and (same? expected_pom actual_pom) (|> (do try.monad - [xml_pom (# utf8.codec decoded binary_pom) - decoded_pom (# xml.codec decoded xml_pom)] - (in (# xml.equivalence = actual_pom decoded_pom))) + [xml_pom (at utf8.codec decoded binary_pom) + decoded_pom (at xml.codec decoded xml_pom)] + (in (at xml.equivalence = actual_pom decoded_pom))) (try.else false)) (case pom_status {//status.#Verified actual_sha1 expected_md5} @@ -107,7 +107,7 @@ (let [expected (the //.#dependencies profile)] (case (/.dependencies package) {try.#Success actual} - (# set.equivalence = expected actual) + (at set.equivalence = expected actual) {try.#Failure error} false))) @@ -115,7 +115,7 @@ (let [expected (the //.#repositories profile)] (case (/.repositories package) {try.#Success actual} - (# set.equivalence = expected actual) + (at set.equivalence = expected actual) {try.#Failure error} false))) diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index 050d3daef..945576470 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -40,14 +40,14 @@ (def: (list_of random) (All (_ a) (-> (Random a) (Random (List a)))) (do [! random.monad] - [size (# ! each (n.% 5) random.nat)] + [size (at ! each (n.% 5) random.nat)] (random.list size random))) (def: (dictionary_of key_hash key_random value_random) (All (_ k v) (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v)))) - (# random.functor each - (dictionary.of_list key_hash) - (..list_of (random.and key_random value_random)))) + (at random.functor each + (dictionary.of_list key_hash) + (..list_of (random.and key_random value_random)))) (def: random (Random Project) @@ -69,7 +69,7 @@ (def: (with_empty_profile project) (-> Project Project) (if (dictionary.empty? project) - (//project.project //.default (# //.monoid identity)) + (//project.project //.default (at //.monoid identity)) project)) (def: .public test @@ -94,7 +94,7 @@ ..with_default_sources ..with_default_repository)])) (dictionary.of_list text.hash) - (# //project.equivalence = actual)) + (at //project.equivalence = actual)) {try.#Failure error} false)))))) diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux index 3a58b340c..ab19c1c7f 100644 --- a/stdlib/source/test/aedifex/pom.lux +++ b/stdlib/source/test/aedifex/pom.lux @@ -39,11 +39,11 @@ {.#Some _}] (case (<xml>.result /.parser (list pom)) {try.#Success actual} - (# //.equivalence = - (|> (# //.monoid identity) - (has //.#dependencies (the //.#dependencies expected)) - (has //.#repositories (the //.#repositories expected))) - actual) + (at //.equivalence = + (|> (at //.monoid identity) + (has //.#dependencies (the //.#dependencies expected)) + (has //.#repositories (the //.#repositories expected))) + actual) {try.#Failure error} false) diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux index d45ac5fa9..5a040973e 100644 --- a/stdlib/source/test/aedifex/profile.lux +++ b/stdlib/source/test/aedifex/profile.lux @@ -79,20 +79,20 @@ (def: (list_of random) (All (_ a) (-> (Random a) (Random (List a)))) (do [! random.monad] - [size (# ! each (n.% 5) random.nat)] + [size (at ! each (n.% 5) random.nat)] (random.list size random))) (def: (set_of hash random) (All (_ a) (-> (Hash a) (Random a) (Random (Set a)))) - (# random.functor each - (set.of_list hash) - (..list_of random))) + (at random.functor each + (set.of_list hash) + (..list_of random))) (def: (dictionary_of key_hash key_random value_random) (All (_ k v) (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v)))) - (# random.functor each - (dictionary.of_list key_hash) - (..list_of (random.and key_random value_random)))) + (at random.functor each + (dictionary.of_list key_hash) + (..list_of (random.and key_random value_random)))) (def: info (Random /.Info) @@ -162,11 +162,11 @@ (_.coverage [/.default] (text#= "" /.default)) (_.coverage [/.default_lux] - (|> (# /.monoid identity) + (|> (at /.monoid identity) (the /.#lux) (same? /.default_lux))) (_.coverage [/.default_target] - (|> (# /.monoid identity) + (|> (at /.monoid identity) (the /.#target) (same? /.default_target))) ))))) diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux index 61afbc9da..d0f658040 100644 --- a/stdlib/source/test/aedifex/project.lux +++ b/stdlib/source/test/aedifex/project.lux @@ -63,24 +63,24 @@ (not (text#= dummy_name name)) (not (text#= sub_name name)))) (random.alphabetic 1)) - .let [project (all (# /.monoid composite) + .let [project (all (at /.monoid composite) (/.project super_name super_profile) (/.project dummy_name dummy_profile) (/.project sub_name (has //.#parents (list super_name) sub_profile))) - circular (all (# /.monoid composite) + circular (all (at /.monoid composite) (/.project super_name (has //.#parents (list sub_name) super_profile)) (/.project dummy_name dummy_profile) (/.project sub_name (has //.#parents (list super_name) sub_profile)))]] (all _.and (_.coverage [/.profile] (and (|> (/.profile project super_name) - (try#each (# //.equivalence = super_profile)) + (try#each (at //.equivalence = super_profile)) (try.else false)) (|> (/.profile project dummy_name) - (try#each (# //.equivalence = dummy_profile)) + (try#each (at //.equivalence = dummy_profile)) (try.else false)) (|> (/.profile project sub_name) - (try#each (# //.equivalence = (# //.monoid composite sub_profile super_profile))) + (try#each (at //.equivalence = (at //.monoid composite sub_profile super_profile))) (try.else false)))) (_.coverage [/.unknown_profile] (case (/.profile project fake_name) diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux index 160410bc4..93bb28f1d 100644 --- a/stdlib/source/test/aedifex/repository/local.lux +++ b/stdlib/source/test/aedifex/repository/local.lux @@ -35,13 +35,13 @@ repo (/.repository program fs)] uri (random.lower_case 10) - expected (# ! each (# utf8.codec encoded) - (random.lower_case 10))] + expected (at ! each (at utf8.codec encoded) + (random.lower_case 10))] (all _.and (in (do async.monad - [before_upload (# repo download uri) - _ (# repo upload uri expected) - actual (# repo download uri)] + [before_upload (at repo download uri) + _ (at repo upload uri expected) + actual (at repo download uri)] (_.coverage' [/.repository] (and (case before_upload {try.#Success _} false diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux index 50ae42a09..440a74ac5 100644 --- a/stdlib/source/test/aedifex/repository/remote.lux +++ b/stdlib/source/test/aedifex/repository/remote.lux @@ -33,7 +33,7 @@ (def: (url_body url) (-> URL (@http.Body IO)) - (let [url (# utf8.codec encoded url)] + (let [url (at utf8.codec encoded url)] (function (_ _) (io.io {try.#Success [(binary.size url) url]})))) @@ -90,21 +90,21 @@ user (random.lower_case 10) password (random.lower_case 10) - content (# ! each (# utf8.codec encoded) - (random.lower_case 10))] + content (at ! each (at utf8.codec encoded) + (random.lower_case 10))] (all _.and (_.coverage [/.repository /.user_agent /.Address] (let [repo (/.repository (..good_http user password) {.#Some [//identity.#user user //identity.#password password]} address)] - (and (|> (# repo download uri) + (and (|> (at repo download uri) io.run! - (try#each (# utf8.codec decoded)) + (try#each (at utf8.codec decoded)) try#conjoint (try#each (text#= (format address uri))) (try.else false)) - (|> (# repo upload uri content) + (|> (at repo upload uri content) io.run! (try#each (function.constant true)) (try.else false))))) @@ -112,7 +112,7 @@ (let [repo (/.repository (..good_http user password) {.#None} address)] - (case (io.run! (# repo upload uri content)) + (case (io.run! (at repo upload uri content)) {try.#Failure error} (exception.match? /.upload_failure error) @@ -122,7 +122,7 @@ (let [repo (/.repository ..bad_http {.#None} address)] - (case (io.run! (# repo download uri)) + (case (io.run! (at repo download uri)) {try.#Failure error} (exception.match? /.download_failure error) diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index 9fed6be1a..ac59df0cc 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -216,16 +216,16 @@ (_.for [/.Interface] (all _.and (_.coverage [/.implementation:] - (n.= expected (# (global_returner expected) return []))) + (n.= expected (at (global_returner expected) return []))) (_.coverage [/.implementation] - (n.= expected (# local_returner return []))) + (n.= expected (at local_returner return []))) (_.coverage [/.open:] (n.= static_return (global#return []))) (_.coverage [/.open] (let [(/.open "local#[0]") local_returner] (n.= expected (local#return [])))) - (_.coverage [/.#] - (n.= expected (/.# local_returner return []))) + (_.coverage [/.at] + (n.= expected (/.at local_returner return []))) )))) (def: for_module @@ -361,7 +361,7 @@ (def: for_code Test (do [! random.monad] - [example (# ! each code.nat random.nat)] + [example (at ! each code.nat random.nat)] (all _.and (_.for [/.Code /.Code'] (all _.and @@ -376,7 +376,7 @@ ))) (/.macro: (identity_macro tokens) - (# meta.monad in tokens)) + (at meta.monad in tokens)) (def: crosshair "This is an arbitrary text whose only purpose is to be found, somewhere, in the source-code.") @@ -557,7 +557,7 @@ expected_left random.nat expected_right random.nat - .let [existential_type (# ! each (|>> {.#Ex}) random.nat)] + .let [existential_type (at ! each (|>> {.#Ex}) random.nat)] expected/0 existential_type expected/1 existential_type] (<| (_.for [/.Type]) @@ -970,8 +970,8 @@ (def: for_case Test (do [! random.monad] - [expected_nat (# ! each (n.% 1) random.nat) - expected_int (# ! each (i.% +1) random.int) + [expected_nat (at ! each (n.% 1) random.nat) + expected_int (at ! each (i.% +1) random.int) expected_rev (random.either (in .5) (in .25)) expected_frac (random.either (in +0.5) diff --git a/stdlib/source/test/lux/abstract/apply.lux b/stdlib/source/test/lux/abstract/apply.lux index 8eacc827a..d7845ae47 100644 --- a/stdlib/source/test/lux/abstract/apply.lux +++ b/stdlib/source/test/lux/abstract/apply.lux @@ -25,9 +25,9 @@ (all _.and (_.coverage [/.composite] (let [expected (n.+ left right)] - (case (# (/.composite maybe.monad maybe.apply list.apply) on - {.#Some (list right)} - {.#Some (list (n.+ left))}) + (case (at (/.composite maybe.monad maybe.apply list.apply) on + {.#Some (list right)} + {.#Some (list (n.+ left))}) (pattern {.#Some (list actual)}) (n.= expected actual) diff --git a/stdlib/source/test/lux/abstract/codec.lux b/stdlib/source/test/lux/abstract/codec.lux index 970045e7c..6169669c5 100644 --- a/stdlib/source/test/lux/abstract/codec.lux +++ b/stdlib/source/test/lux/abstract/codec.lux @@ -39,7 +39,7 @@ [expected random.bit] (<| (_.covering /._) (_.coverage [/.composite] - (case (|> expected (# ..codec encoded) (# ..codec decoded)) + (case (|> expected (at ..codec encoded) (at ..codec decoded)) {try.#Success actual} (bit#= expected actual) diff --git a/stdlib/source/test/lux/abstract/comonad/cofree.lux b/stdlib/source/test/lux/abstract/comonad/cofree.lux index 8e8c2998d..2f2b7569b 100644 --- a/stdlib/source/test/lux/abstract/comonad/cofree.lux +++ b/stdlib/source/test/lux/abstract/comonad/cofree.lux @@ -26,16 +26,16 @@ (def: (interpret [head tail]) (All (_ a) (-> (/.CoFree Stream a) (Stream a))) (|> tail - (stream#each (# (/.comonad stream.functor) out)) + (stream#each (at (/.comonad stream.functor) out)) [head] //.pending)) (def: comparison (Comparison (/.CoFree Stream)) (function (_ == left right) - (# (list.equivalence ==) = - (stream.first 100 (..interpret left)) - (stream.first 100 (..interpret right))))) + (at (list.equivalence ==) = + (stream.first 100 (..interpret left)) + (stream.first 100 (..interpret right))))) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/enum.lux b/stdlib/source/test/lux/abstract/enum.lux index d33a9aee8..9848653ba 100644 --- a/stdlib/source/test/lux/abstract/enum.lux +++ b/stdlib/source/test/lux/abstract/enum.lux @@ -20,7 +20,7 @@ (def: .public test Test (let [limit (is (Random Nat) - (# random.monad each (n.% 20) random.nat))] + (at random.monad each (n.% 20) random.nat))] (do random.monad [start limit end limit @@ -34,14 +34,14 @@ (let [expected_size (|> end (n.- start) ++) expected_start? (|> range list.head (maybe#each (n.= start)) (maybe.else false)) expected_end? (|> range list.last (maybe#each (n.= end)) (maybe.else false)) - can_be_backwards? (# (list.equivalence n.equivalence) = - (/.range n.enum start end) - (list.reversed (/.range n.enum end start))) + can_be_backwards? (at (list.equivalence n.equivalence) = + (/.range n.enum start end) + (list.reversed (/.range n.enum end start))) every_element_is_a_successor? (case range {.#Item head tail} (|> (list#mix (function (_ next [verdict prev]) [(and verdict - (n.= next (# n.enum succ prev))) + (n.= next (at n.enum succ prev))) next]) [true head] tail) diff --git a/stdlib/source/test/lux/abstract/equivalence.lux b/stdlib/source/test/lux/abstract/equivalence.lux index 2ca34e885..f3be4cd4a 100644 --- a/stdlib/source/test/lux/abstract/equivalence.lux +++ b/stdlib/source/test/lux/abstract/equivalence.lux @@ -29,12 +29,12 @@ .let [equivalence (is (Equivalence (Equivalence Nat)) (implementation (def: (= left right) - (and (bit#= (# left = leftN leftN) - (# right = leftN leftN)) - (bit#= (# left = rightN rightN) - (# right = rightN rightN)) - (bit#= (# left = leftN rightN) - (# right = leftN rightN))))))]] + (and (bit#= (at left = leftN leftN) + (at right = leftN leftN)) + (bit#= (at left = rightN rightN) + (at right = rightN rightN)) + (bit#= (at left = leftN rightN) + (at right = leftN rightN))))))]] (<| (_.covering /._) (all _.and (_.for [/.functor] @@ -50,11 +50,11 @@ [{.#Item leftH lefT} {.#Item rightH rightT}] (and (n.= leftH rightH) - (# equivalence = lefT rightT)) + (at equivalence = lefT rightT)) _ false))))))] - (and (# equivalence = (list sample sample) (list sample sample)) - (not (# equivalence = (list sample sample) (list sample))) - (not (# equivalence = (list sample sample) (list different different)))))) + (and (at equivalence = (list sample sample) (list sample sample)) + (not (at equivalence = (list sample sample) (list sample))) + (not (at equivalence = (list sample sample) (list different different)))))) )))) diff --git a/stdlib/source/test/lux/abstract/functor.lux b/stdlib/source/test/lux/abstract/functor.lux index cf44e7b12..9249ba171 100644 --- a/stdlib/source/test/lux/abstract/functor.lux +++ b/stdlib/source/test/lux/abstract/functor.lux @@ -25,26 +25,26 @@ (<| (_.covering /._) (all _.and (_.coverage [/.Or /.sum] - (and (case (# (/.sum maybe.functor list.functor) each - (n.+ shift) - {.#Left {.#Some left}}) + (and (case (at (/.sum maybe.functor list.functor) each + (n.+ shift) + {.#Left {.#Some left}}) {.#Left {.#Some actual}} (n.= (n.+ shift left) actual) _ false) - (case (# (/.sum maybe.functor list.functor) each - (n.+ shift) - {.#Right (list right)}) + (case (at (/.sum maybe.functor list.functor) each + (n.+ shift) + {.#Right (list right)}) (pattern {.#Right (list actual)}) (n.= (n.+ shift right) actual) _ false))) (_.coverage [/.And /.product] - (case (# (/.product maybe.functor list.functor) each - (n.+ shift) - [{.#Some left} (list right)]) + (case (at (/.product maybe.functor list.functor) each + (n.+ shift) + [{.#Some left} (list right)]) (pattern [{.#Some actualL} (list actualR)]) (and (n.= (n.+ shift left) actualL) (n.= (n.+ shift right) actualR)) @@ -52,9 +52,9 @@ _ false)) (_.coverage [/.Then /.composite] - (case (# (/.composite maybe.functor list.functor) each - (n.+ shift) - {.#Some (list left)}) + (case (at (/.composite maybe.functor list.functor) each + (n.+ shift) + {.#Some (list left)}) (pattern {.#Some (list actual)}) (n.= (n.+ shift left) actual) diff --git a/stdlib/source/test/lux/abstract/interval.lux b/stdlib/source/test/lux/abstract/interval.lux index 74579b53a..18387288e 100644 --- a/stdlib/source/test/lux/abstract/interval.lux +++ b/stdlib/source/test/lux/abstract/interval.lux @@ -139,14 +139,14 @@ Test (do [! random.monad] [[l m r] (|> (random.set n.hash 3 random.nat) - (# ! each (|>> set.list - (list.sorted n.<) - (pipe.case - (pattern (list b t1 t2)) - [b t1 t2] + (at ! each (|>> set.list + (list.sorted n.<) + (pipe.case + (pattern (list b t1 t2)) + [b t1 t2] - _ - (undefined))))) + _ + (undefined))))) .let [left (/.singleton n.enum l) right (/.singleton n.enum r)]] (all _.and @@ -162,14 +162,14 @@ Test (do [! random.monad] [[b t1 t2] (|> (random.set n.hash 3 random.nat) - (# ! each (|>> set.list - (list.sorted n.<) - (pipe.case - (pattern (list b t1 t2)) - [b t1 t2] + (at ! each (|>> set.list + (list.sorted n.<) + (pipe.case + (pattern (list b t1 t2)) + [b t1 t2] - _ - (undefined))))) + _ + (undefined))))) .let [int_left (/.between n.enum t1 t2) int_right (/.between n.enum b t1)]] (all _.and @@ -190,14 +190,14 @@ (do [! random.monad] [some_interval ..interval [x0 x1 x2 x3] (|> (random.set n.hash 4 random.nat) - (# ! each (|>> set.list - (list.sorted n.<) - (pipe.case - (pattern (list x0 x1 x2 x3)) - [x0 x1 x2 x3] + (at ! each (|>> set.list + (list.sorted n.<) + (pipe.case + (pattern (list x0 x1 x2 x3)) + [x0 x1 x2 x3] - _ - (undefined)))))] + _ + (undefined)))))] (all _.and (_.property "Every interval is nested into itself." (/.nested? some_interval some_interval)) @@ -224,14 +224,14 @@ (do [! random.monad] [some_interval ..interval [x0 x1 x2 x3] (|> (random.set n.hash 4 random.nat) - (# ! each (|>> set.list - (list.sorted n.<) - (pipe.case - (pattern (list x0 x1 x2 x3)) - [x0 x1 x2 x3] + (at ! each (|>> set.list + (list.sorted n.<) + (pipe.case + (pattern (list x0 x1 x2 x3)) + [x0 x1 x2 x3] - _ - (undefined)))))] + _ + (undefined)))))] (all _.and (_.property "No interval overlaps with itself." (not (/.overlaps? some_interval some_interval))) diff --git a/stdlib/source/test/lux/abstract/mix.lux b/stdlib/source/test/lux/abstract/mix.lux index 8d46273b8..42fba9a6c 100644 --- a/stdlib/source/test/lux/abstract/mix.lux +++ b/stdlib/source/test/lux/abstract/mix.lux @@ -21,6 +21,6 @@ (<| (_.covering /._) (all _.and (_.coverage [/.with_monoid] - (n.= (# list.mix mix (# n.addition composite) (# n.addition identity) samples) + (n.= (at list.mix mix (at n.addition composite) (at n.addition identity) samples) (/.with_monoid n.addition list.mix samples))) )))) diff --git a/stdlib/source/test/lux/abstract/monad.lux b/stdlib/source/test/lux/abstract/monad.lux index b0dc3f1cc..7ea1093aa 100644 --- a/stdlib/source/test/lux/abstract/monad.lux +++ b/stdlib/source/test/lux/abstract/monad.lux @@ -30,35 +30,35 @@ (n.= (++ mono) (is (Identity Nat) (/.then identity.monad - (|>> ++ (# identity.monad in)) - (# identity.monad in mono))))) + (|>> ++ (at identity.monad in)) + (at identity.monad in mono))))) (_.coverage [/.all] - (# (list.equivalence n.equivalence) = - (list#each ++ poly) - (|> poly - (list#each (|>> ++ (# identity.monad in))) - (is (List (Identity Nat))) - (/.all identity.monad) - (is (Identity (List Nat)))))) + (at (list.equivalence n.equivalence) = + (list#each ++ poly) + (|> poly + (list#each (|>> ++ (at identity.monad in))) + (is (List (Identity Nat))) + (/.all identity.monad) + (is (Identity (List Nat)))))) (_.coverage [/.each] - (# (list.equivalence n.equivalence) = - (list#each ++ poly) - (|> poly - (/.each identity.monad (|>> ++ (# identity.monad in))) - (is (Identity (List Nat)))))) + (at (list.equivalence n.equivalence) = + (list#each ++ poly) + (|> poly + (/.each identity.monad (|>> ++ (at identity.monad in))) + (is (Identity (List Nat)))))) (_.coverage [/.only] - (# (list.equivalence n.equivalence) = - (list.only n.even? poly) - (|> poly - (/.only identity.monad (|>> n.even? (# identity.monad in))) - (is (Identity (List Nat)))))) + (at (list.equivalence n.equivalence) = + (list.only n.even? poly) + (|> poly + (/.only identity.monad (|>> n.even? (at identity.monad in))) + (is (Identity (List Nat)))))) (_.coverage [/.mix] (n.= (list#mix n.+ 0 poly) (|> poly (/.mix identity.monad (function (_ part whole) - (# identity.monad in - (n.+ part whole))) + (at identity.monad in + (n.+ part whole))) 0) (is (Identity Nat))))) )))) diff --git a/stdlib/source/test/lux/abstract/monad/free.lux b/stdlib/source/test/lux/abstract/monad/free.lux index 9d9329a6c..d98fb1cbd 100644 --- a/stdlib/source/test/lux/abstract/monad/free.lux +++ b/stdlib/source/test/lux/abstract/monad/free.lux @@ -36,9 +36,9 @@ (def: comparison (Comparison (/.Free List)) (function (_ == left right) - (# (list.equivalence ==) = - (..interpret left) - (..interpret right)))) + (at (list.equivalence ==) = + (..interpret left) + (..interpret right)))) (def: .public test Test diff --git a/stdlib/source/test/lux/abstract/monoid.lux b/stdlib/source/test/lux/abstract/monoid.lux index 3525de5bc..0b30b882c 100644 --- a/stdlib/source/test/lux/abstract/monoid.lux +++ b/stdlib/source/test/lux/abstract/monoid.lux @@ -24,10 +24,10 @@ (<| (_.covering /._) (all _.and (_.coverage [/.and] - (let [[natLR intLR] (# (/.and nat.addition int.multiplication) composite - [natL intL] [natR intR])] - (and (nat.= (# nat.addition composite natL natR) + (let [[natLR intLR] (at (/.and nat.addition int.multiplication) composite + [natL intL] [natR intR])] + (and (nat.= (at nat.addition composite natL natR) natLR) - (int.= (# int.multiplication composite intL intR) + (int.= (at int.multiplication composite intL intR) intLR)))) )))) diff --git a/stdlib/source/test/lux/abstract/order.lux b/stdlib/source/test/lux/abstract/order.lux index 68eedeeba..d8792eafa 100644 --- a/stdlib/source/test/lux/abstract/order.lux +++ b/stdlib/source/test/lux/abstract/order.lux @@ -27,12 +27,12 @@ .let [equivalence (is (Equivalence (/.Order Nat)) (implementation (def: (= leftO rightO) - (and (bit#= (# leftO < left left) - (# rightO < left left)) - (bit#= (# leftO < right right) - (# rightO < right right)) - (bit#= (# leftO < left right) - (# rightO < left right))))))]]) + (and (bit#= (at leftO < left left) + (at rightO < left left)) + (bit#= (at leftO < right right) + (at rightO < right right)) + (bit#= (at leftO < left right) + (at rightO < left right))))))]]) (all _.and (_.for [/.functor] ($contravariant.spec equivalence n.order /.functor)) @@ -45,7 +45,7 @@ (_.coverage [/.<=] (and (/.<= n.order left left) (/.<= n.order right right) - (bit#= (# n.order < left right) + (bit#= (at n.order < left right) (/.<= n.order left right)))) (_.coverage [/.>=] (and (/.>= n.order left left) diff --git a/stdlib/source/test/lux/abstract/predicate.lux b/stdlib/source/test/lux/abstract/predicate.lux index 46c44ceea..9fb8bd1a5 100644 --- a/stdlib/source/test/lux/abstract/predicate.lux +++ b/stdlib/source/test/lux/abstract/predicate.lux @@ -46,7 +46,7 @@ (let [generator (is (Random (/.Predicate Nat)) (|> random.nat (random.only (|>> (n.= 0) not)) - (# ! each multiple?)))] + (at ! each multiple?)))] (all _.and (_.for [/.union] ($monoid.spec equivalence /.union generator)) diff --git a/stdlib/source/test/lux/control/concurrency/actor.lux b/stdlib/source/test/lux/control/concurrency/actor.lux index 5713f1599..3149e3873 100644 --- a/stdlib/source/test/lux/control/concurrency/actor.lux +++ b/stdlib/source/test/lux/control/concurrency/actor.lux @@ -198,9 +198,9 @@ verdict))) (do ! - [num_events (# ! each (|>> (n.% 10) ++) random.nat) + [num_events (at ! each (|>> (n.% 10) ++) random.nat) events (random.list num_events random.nat) - num_observations (# ! each (n.% num_events) random.nat) + num_observations (at ! each (n.% num_events) random.nat) .let [expected (list.first num_observations events) sink (is (Atom (Sequence Nat)) (atom.atom sequence.empty))]] @@ -224,5 +224,5 @@ _ (/.obituary agent) actual (async.future (atom.read! sink))] (_.coverage' [/.Stop /.observe! /.obituary] - (# (list.equivalence n.equivalence) = expected (sequence.list actual)))))) + (at (list.equivalence n.equivalence) = expected (sequence.list actual)))))) )))) diff --git a/stdlib/source/test/lux/control/concurrency/async.lux b/stdlib/source/test/lux/control/concurrency/async.lux index 95647d607..1e343c32d 100644 --- a/stdlib/source/test/lux/control/concurrency/async.lux +++ b/stdlib/source/test/lux/control/concurrency/async.lux @@ -52,7 +52,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [waiting_time (|> random.nat (# ! each (|>> (n.% ..delay) (n.+ ..delay)))) + [waiting_time (|> random.nat (at ! each (|>> (n.% ..delay) (n.+ ..delay)))) expected random.nat dummy random.nat .let [not_dummy (|> random.nat (random.only (|>> (n.= dummy) not)))] diff --git a/stdlib/source/test/lux/control/concurrency/frp.lux b/stdlib/source/test/lux/control/concurrency/frp.lux index 79d2fe727..004659886 100644 --- a/stdlib/source/test/lux/control/concurrency/frp.lux +++ b/stdlib/source/test/lux/control/concurrency/frp.lux @@ -52,7 +52,7 @@ (All (_ a) (-> Nat [(/.Channel a) (/.Sink a)] (Async (List a)))) (case amount_of_polls 0 (do async.monad - [_ (async.future (# sink close))] + [_ (async.future (at sink close))] (in {.#End})) _ (do [! async.monad] [event channel] @@ -61,8 +61,8 @@ (in {.#End}) {.#Some [head tail]} - (# ! each (|>> {.#Item (variance.read head)}) - (take_amount (-- amount_of_polls) [channel sink])))))) + (at ! each (|>> {.#Item (variance.read head)}) + (take_amount (-- amount_of_polls) [channel sink])))))) (def: .public test Test @@ -90,8 +90,8 @@ (do (try.with io.monad) [.let [[channel sink] (is [(/.Channel Nat) (/.Sink Nat)] (/.channel []))] - _ (# sink feed sample) - _ (# sink close)] + _ (at sink feed sample) + _ (at sink close)] (in channel))) {try.#Success channel} (io.run! @@ -111,8 +111,8 @@ (do (try.with io.monad) [.let [[channel sink] (is [(/.Channel Nat) (/.Sink Nat)] (/.channel []))] - _ (# sink close)] - (# sink feed sample))) + _ (at sink close)] + (at sink feed sample))) {try.#Success _} false @@ -161,7 +161,7 @@ listened (|> sink atom.read! async.future - (# ! each sequence.list))] + (at ! each sequence.list))] (_.coverage' [/.Subscriber /.subscribe!] (list#= inputs listened)))) (in (do async.monad @@ -193,8 +193,8 @@ (list#= (list distinct/0 distinct/1 distinct/2) actual)))) (do ! - [polling_delay (# ! each (|>> (n.% 10) ++) random.nat) - amount_of_polls (# ! each (|>> (n.% 10) ++) random.nat)] + [polling_delay (at ! each (|>> (n.% 10) ++) random.nat) + amount_of_polls (at ! each (|>> (n.% 10) ++) random.nat)] (all _.and (in (do [! async.monad] [actual (..take_amount amount_of_polls (/.poll polling_delay (is (IO Nat) (io.io sample)))) diff --git a/stdlib/source/test/lux/control/concurrency/semaphore.lux b/stdlib/source/test/lux/control/concurrency/semaphore.lux index 1df21f823..64a5cd067 100644 --- a/stdlib/source/test/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/test/lux/control/concurrency/semaphore.lux @@ -38,7 +38,7 @@ (_.for [/.Semaphore] (all _.and (do [! random.monad] - [initial_open_positions (|> random.nat (# ! each (|>> (n.% 10) (n.max 1)))) + [initial_open_positions (|> random.nat (at ! each (|>> (n.% 10) (n.max 1)))) .let [semaphore (/.semaphore initial_open_positions)]] (in (do async.monad [result (async.within ..delay (/.wait! semaphore))] @@ -50,7 +50,7 @@ {.#None} false))))) (do [! random.monad] - [initial_open_positions (|> random.nat (# ! each (|>> (n.% 10) (n.max 1)))) + [initial_open_positions (|> random.nat (at ! each (|>> (n.% 10) (n.max 1)))) .let [semaphore (/.semaphore initial_open_positions)]] (in (do [! async.monad] [_ (monad.each ! /.wait! (list.repeated initial_open_positions semaphore)) @@ -63,7 +63,7 @@ {.#None} true))))) (do [! random.monad] - [initial_open_positions (|> random.nat (# ! each (|>> (n.% 10) (n.max 1)))) + [initial_open_positions (|> random.nat (at ! each (|>> (n.% 10) (n.max 1)))) .let [semaphore (/.semaphore initial_open_positions)]] (in (do [! async.monad] [_ (monad.each ! /.wait! (list.repeated initial_open_positions semaphore)) @@ -79,7 +79,7 @@ _ false))))) (do [! random.monad] - [initial_open_positions (|> random.nat (# ! each (|>> (n.% 10) (n.max 1)))) + [initial_open_positions (|> random.nat (at ! each (|>> (n.% 10) (n.max 1)))) .let [semaphore (/.semaphore initial_open_positions)]] (in (do async.monad [outcome (/.signal! semaphore)] @@ -97,7 +97,7 @@ (_.for [/.Mutex] (all _.and (do [! random.monad] - [repetitions (|> random.nat (# ! each (|>> (n.% 100) (n.max 10)))) + [repetitions (|> random.nat (at ! each (|>> (n.% 100) (n.max 10)))) .let [resource (atom.atom "") expected_As (text.together (list.repeated repetitions "A")) expected_Bs (text.together (list.repeated repetitions "B")) @@ -154,7 +154,7 @@ _ false))) (do [! random.monad] - [limit (# ! each (|>> (n.% 9) ++) random.nat) + [limit (at ! each (|>> (n.% 9) ++) random.nat) .let [barrier (/.barrier (maybe.trusted (/.limit limit))) resource (atom.atom "")]] (in (do [! async.monad] diff --git a/stdlib/source/test/lux/control/concurrency/stm.lux b/stdlib/source/test/lux/control/concurrency/stm.lux index 05d6f33da..a06248ba1 100644 --- a/stdlib/source/test/lux/control/concurrency/stm.lux +++ b/stdlib/source/test/lux/control/concurrency/stm.lux @@ -27,7 +27,7 @@ (def: injection (Injection /.STM) - (# /.monad in)) + (at /.monad in)) (def: comparison (Comparison /.STM) @@ -41,7 +41,7 @@ (do [! random.monad] [dummy random.nat expected random.nat - iterations_per_process (|> random.nat (# ! each (n.% 100)))] + iterations_per_process (|> random.nat (at ! each (n.% 100)))] (all _.and (_.for [/.functor] ($functor.spec ..injection ..comparison /.functor)) @@ -51,7 +51,7 @@ ($monad.spec ..injection ..comparison /.monad)) (in (do async.monad - [actual (/.commit! (# /.monad in expected))] + [actual (/.commit! (at /.monad in expected))] (_.coverage' [/.commit!] (n.= expected actual)))) (in (do async.monad @@ -84,13 +84,13 @@ [follower sink] (io.run! (/.changes box))] _ (/.commit! (/.write expected box)) _ (/.commit! (/.update (n.* 2) box)) - _ (async.future (# sink close)) + _ (async.future (at sink close)) _ (/.commit! (/.update (n.* 3) box)) changes (frp.list follower)] (_.coverage' [/.changes] - (# (list.equivalence n.equivalence) = - (list expected (n.* 2 expected)) - changes)))) + (at (list.equivalence n.equivalence) = + (list expected (n.* 2 expected)) + changes)))) (in (let [var (/.var 0)] (do [! async.monad] [_ (|> (list.repeated iterations_per_process []) diff --git a/stdlib/source/test/lux/control/concurrency/thread.lux b/stdlib/source/test/lux/control/concurrency/thread.lux index 9f9611c42..7ed7aff8c 100644 --- a/stdlib/source/test/lux/control/concurrency/thread.lux +++ b/stdlib/source/test/lux/control/concurrency/thread.lux @@ -26,8 +26,8 @@ (do [! random.monad] [dummy random.nat expected random.nat - delay (# ! each (|>> (n.% 5) (n.+ 5)) - random.nat)] + delay (at ! each (|>> (n.% 5) (n.+ 5)) + random.nat)] (all _.and (_.coverage [/.parallelism] (n.> 0 /.parallelism)) diff --git a/stdlib/source/test/lux/control/exception.lux b/stdlib/source/test/lux/control/exception.lux index 459e7101a..34756195a 100644 --- a/stdlib/source/test/lux/control/exception.lux +++ b/stdlib/source/test/lux/control/exception.lux @@ -29,7 +29,7 @@ [expected random.nat wrong (|> random.nat (random.only (|>> (n.= expected) not))) assertion_succeeded? random.bit - .let [report_element (# ! each %.nat random.nat)] + .let [report_element (at ! each %.nat random.nat)] field0 report_element value0 report_element field1 report_element diff --git a/stdlib/source/test/lux/control/function.lux b/stdlib/source/test/lux/control/function.lux index d122bbd39..4a95a0065 100644 --- a/stdlib/source/test/lux/control/function.lux +++ b/stdlib/source/test/lux/control/function.lux @@ -24,8 +24,8 @@ Test (do [! random.monad] [expected random.nat - f0 (# ! each n.+ random.nat) - f1 (# ! each n.* random.nat) + f0 (at ! each n.+ random.nat) + f1 (at ! each n.* random.nat) dummy random.nat extra (|> random.nat (random.only (|>> (n.= expected) not)))] (<| (_.covering /._) @@ -36,7 +36,7 @@ (n.= (left extra) (right extra))))) generator (is (Random (-> Nat Nat)) - (# ! each n.- random.nat))] + (at ! each n.- random.nat))] (_.for [/.monoid] ($monoid.spec equivalence /.monoid generator))) diff --git a/stdlib/source/test/lux/control/function/inline.lux b/stdlib/source/test/lux/control/function/inline.lux index 67245f8cc..54cbeabc7 100644 --- a/stdlib/source/test/lux/control/function/inline.lux +++ b/stdlib/source/test/lux/control/function/inline.lux @@ -22,7 +22,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [.let [measurement (# ! each (i.% +1000) random.int)] + [.let [measurement (at ! each (i.% +1000) random.int)] m0 measurement m1 measurement]) (all _.and diff --git a/stdlib/source/test/lux/control/function/memo.lux b/stdlib/source/test/lux/control/function/memo.lux index b16902c88..3a74921cf 100644 --- a/stdlib/source/test/lux/control/function/memo.lux +++ b/stdlib/source/test/lux/control/function/memo.lux @@ -60,7 +60,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [input (|> random.nat (# ! each (|>> (n.% 5) (n.+ 21))))]) + [input (|> random.nat (at ! each (|>> (n.% 5) (n.+ 21))))]) (_.for [/.Memo]) (all _.and (_.coverage [/.closed /.none] @@ -108,7 +108,7 @@ (is (//.Mixin Nat (State (Dictionary Nat Nat) Nat)) (function (factorial delegate again input) (case input - (^.or 0 1) (# state.monad in 1) + (^.or 0 1) (at state.monad in 1) _ (do state.monad [output' (again (-- input))] (in (n.* input output'))))))) diff --git a/stdlib/source/test/lux/control/function/mixin.lux b/stdlib/source/test/lux/control/function/mixin.lux index c19295365..02ea34ad3 100644 --- a/stdlib/source/test/lux/control/function/mixin.lux +++ b/stdlib/source/test/lux/control/function/mixin.lux @@ -27,7 +27,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [input (|> random.nat (# ! each (|>> (n.% 6) (n.+ 20)))) + [input (|> random.nat (at ! each (|>> (n.% 6) (n.+ 20)))) dummy random.nat shift (|> random.nat (random.only (|>> (n.= dummy) not))) .let [equivalence (is (Equivalence (/.Mixin Nat Nat)) diff --git a/stdlib/source/test/lux/control/function/mutual.lux b/stdlib/source/test/lux/control/function/mutual.lux index 698685d0c..3d936c6dd 100644 --- a/stdlib/source/test/lux/control/function/mutual.lux +++ b/stdlib/source/test/lux/control/function/mutual.lux @@ -18,7 +18,7 @@ (def: test_let Test (do [! random.monad] - [sample (# ! each (n.% 10) random.nat) + [sample (at ! each (n.% 10) random.nat) .let [expected (n.even? sample)]] (<| (_.coverage [/.let]) (/.let [(even? number) @@ -51,7 +51,7 @@ (def: test_def Test (do [! random.monad] - [sample (# ! each (n.% 10) random.nat) + [sample (at ! each (n.% 10) random.nat) .let [expected (n.even? sample)]] (<| (_.coverage [/.def:]) (and (bit#= expected (..even? sample)) diff --git a/stdlib/source/test/lux/control/lazy.lux b/stdlib/source/test/lux/control/lazy.lux index d205eebb2..26e1baba6 100644 --- a/stdlib/source/test/lux/control/lazy.lux +++ b/stdlib/source/test/lux/control/lazy.lux @@ -25,11 +25,11 @@ (def: comparison (Comparison Lazy) (function (_ ==) - (# (/.equivalence ==) =))) + (at (/.equivalence ==) =))) (def: .public lazy (All (_ a) (-> (Random a) (Random (Lazy a)))) - (# random.functor each (|>> /.lazy))) + (at random.functor each (|>> /.lazy))) (def: .public test Test diff --git a/stdlib/source/test/lux/control/maybe.lux b/stdlib/source/test/lux/control/maybe.lux index b986c2fbc..7b5c61659 100644 --- a/stdlib/source/test/lux/control/maybe.lux +++ b/stdlib/source/test/lux/control/maybe.lux @@ -34,7 +34,7 @@ ($equivalence.spec (/.equivalence n.equivalence) (random.maybe random.nat))) (_.for [/.hash] (|> random.nat - (# random.monad each (|>> {.#Some})) + (at random.monad each (|>> {.#Some})) ($hash.spec (/.hash n.hash)))) (_.for [/.monoid] ($monoid.spec (/.equivalence n.equivalence) /.monoid (random.maybe random.nat))) @@ -78,9 +78,9 @@ (do random.monad [value random.nat] (_.coverage [/.list] - (# (list.equivalence n.equivalence) = - (list value) - (/.list {.#Some value})))) + (at (list.equivalence n.equivalence) = + (list value) + (/.list {.#Some value})))) (do random.monad [expected random.nat .let [(open "/#[0]") (/.equivalence n.equivalence)]] diff --git a/stdlib/source/test/lux/control/parser.lux b/stdlib/source/test/lux/control/parser.lux index c5fdb888a..c0f1d05f6 100644 --- a/stdlib/source/test/lux/control/parser.lux +++ b/stdlib/source/test/lux/control/parser.lux @@ -90,7 +90,7 @@ Test (do [! random.monad] [expected0 random.nat - variadic (# ! each (|>> (n.max 1) (n.min 20)) random.nat) + variadic (at ! each (|>> (n.max 1) (n.min 20)) random.nat) expected+ (random.list variadic random.nat) even0 (random.only n.even? random.nat) odd0 (random.only n.odd? random.nat) @@ -109,7 +109,7 @@ (and (|> (list#each code.nat expected+) (/.result (/.some <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = expected+ actual))) + (at (list.equivalence n.equivalence) = expected+ actual))) (|> (list#each (|>> .int code.int) expected+) (/.result (/.some <code>.nat)) (match {.#End} @@ -118,7 +118,7 @@ (and (|> (list#each code.nat expected+) (/.result (/.many <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = expected+ actual))) + (at (list.equivalence n.equivalence) = expected+ actual))) (|> (list (code.nat expected0)) (/.result (/.many <code>.nat)) (match (list actual) @@ -180,8 +180,8 @@ (def: combinators_1 Test (do [! random.monad] - [variadic (# ! each (|>> (n.max 1) (n.min 20)) random.nat) - times (# ! each (n.% variadic) random.nat) + [variadic (at ! each (|>> (n.max 1) (n.min 20)) random.nat) + times (at ! each (n.% variadic) random.nat) expected random.nat wrong (|> random.nat (random.only (|>> (n.= expected) not))) expected+ (random.list variadic random.nat) @@ -191,9 +191,9 @@ (and (|> (list#each code.nat expected+) (/.result (/.exactly times <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = - (list.first times expected+) - actual))) + (at (list.equivalence n.equivalence) = + (list.first times expected+) + actual))) (|> (list#each code.nat expected+) (/.result (/.exactly (++ variadic) <code>.nat)) fails?))) @@ -201,9 +201,9 @@ (and (|> (list#each code.nat expected+) (/.result (/.at_least times <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = - expected+ - actual))) + (at (list.equivalence n.equivalence) = + expected+ + actual))) (|> (list#each code.nat expected+) (/.result (/.at_least (++ variadic) <code>.nat)) fails?))) @@ -211,44 +211,44 @@ (and (|> (list#each code.nat expected+) (/.result (/.at_most times <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = - (list.first times expected+) - actual))) + (at (list.equivalence n.equivalence) = + (list.first times expected+) + actual))) (|> (list#each code.nat expected+) (/.result (/.at_most (++ variadic) <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = - expected+ - actual))))) + (at (list.equivalence n.equivalence) = + expected+ + actual))))) (_.coverage [/.between] (and (|> (list#each code.nat expected+) (/.result (/.between times (n.- times variadic) <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = - expected+ - actual))) + (at (list.equivalence n.equivalence) = + expected+ + actual))) (|> (list#each code.nat (list.first times expected+)) (/.result (/.between times (n.- times variadic) <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = - (list.first times expected+) - actual))))) + (at (list.equivalence n.equivalence) = + (list.first times expected+) + actual))))) (_.coverage [/.separated_by] (|> (list.interposed (code.text separator) (list#each code.nat expected+)) (/.result (/.separated_by (<code>.this (code.text separator)) <code>.nat)) (match actual - (# (list.equivalence n.equivalence) = - expected+ - actual)))) + (at (list.equivalence n.equivalence) = + expected+ + actual)))) (_.coverage [/.remaining] (|> (list#each code.nat expected+) (/.result /.remaining) (match actual - (# (list.equivalence code.equivalence) = - (list#each code.nat expected+) - actual)))) + (at (list.equivalence code.equivalence) = + (list#each code.nat expected+) + actual)))) (_.coverage [/.else] - (and (|> (/.result (/.else wrong (# /.monad in expected)) (list)) + (and (|> (/.result (/.else wrong (at /.monad in expected)) (list)) (match actual (n.= expected actual))) (|> (/.result (/.else expected (/.failure "yolo")) (list)) @@ -332,7 +332,7 @@ (def: injection (Injection (All (_ a i) (Parser i a))) - (# /.monad in)) + (at /.monad in)) (def: comparison (Comparison (All (_ a i) (Parser i a))) @@ -361,7 +361,7 @@ ($monad.spec ..injection ..comparison /.monad)) (_.coverage [/.result] - (|> (/.result (# /.monad in expected) (list)) + (|> (/.result (at /.monad in expected) (list)) (match actual (n.= expected actual)))) (_.coverage [/.failure] (|> (list) diff --git a/stdlib/source/test/lux/control/parser/analysis.lux b/stdlib/source/test/lux/control/parser/analysis.lux index 1e1a288b2..6f79c1dcb 100644 --- a/stdlib/source/test/lux/control/parser/analysis.lux +++ b/stdlib/source/test/lux/control/parser/analysis.lux @@ -54,13 +54,13 @@ [] (`` (all _.and (do [! random.monad] - [expected (# ! each (|>> analysis.bit) random.bit)] + [expected (at ! each (|>> analysis.bit) random.bit)] (_.coverage [/.result /.any] (|> (list expected) (/.result /.any) (pipe.case {try.#Success actual} - (# analysis.equivalence = expected actual) + (at analysis.equivalence = expected actual) {try.#Failure _} false)))) diff --git a/stdlib/source/test/lux/control/parser/binary.lux b/stdlib/source/test/lux/control/parser/binary.lux index 41d2cec10..f2198c2d5 100644 --- a/stdlib/source/test/lux/control/parser/binary.lux +++ b/stdlib/source/test/lux/control/parser/binary.lux @@ -56,8 +56,8 @@ (def: (utf8_conversion_does_not_alter? value) (Predicate Text) (|> value - (# utf8.codec encoded) - (# utf8.codec decoded) + (at utf8.codec encoded) + (at utf8.codec decoded) (pipe.case {try.#Success converted} (text#= value converted) @@ -95,7 +95,7 @@ (random.rec (function (_ again) (let [random_sequence (do [! random.monad] - [size (# ! each (n.% 2) random.nat)] + [size (at ! each (n.% 2) random.nat)] (random.list size again))] (all random.and ..random_location @@ -128,8 +128,8 @@ (`` (all _.and (~~ (template [<size> <parser> <format>] [(do [! random.monad] - [expected (# ! each (i64.and (i64.mask <size>)) - random.nat)] + [expected (at ! each (i64.and (i64.mask <size>)) + random.nat)] (_.coverage [<size> <parser> <format>] (|> (format.result <format> expected) (/.result <parser>) @@ -148,12 +148,12 @@ (`` (all _.and (~~ (template [<parser> <format>] [(do [! random.monad] - [expected (# ! each (# utf8.codec encoded) (random.ascii ..segment_size))] + [expected (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] (_.coverage [<parser> <format>] (|> (format.result <format> expected) (/.result <parser>) (!expect (^.multi {try.#Success actual} - (# binary.equivalence = expected actual))))))] + (at binary.equivalence = expected actual))))))] [/.binary_8 format.binary_8] [/.binary_16 format.binary_16] @@ -171,7 +171,7 @@ (|> (format.result <format> expected) (/.result <parser>) (!expect (^.multi {try.#Success actual} - (# text.equivalence = expected actual))))))] + (at text.equivalence = expected actual))))))] [/.utf8_8 format.utf8_8] [/.utf8_16 format.utf8_16] @@ -191,7 +191,7 @@ (format.result (<format> format.nat)) (/.result (<parser> /.nat)) (!expect (^.multi {try.#Success actual} - (# (sequence.equivalence n.equivalence) = expected actual))))))] + (at (sequence.equivalence n.equivalence) = expected actual))))))] [/.sequence_8 format.sequence_8] [/.sequence_16 format.sequence_16] @@ -210,7 +210,7 @@ (format.result <format>) (/.result <parser>) (!expect (^.multi {try.#Success actual} - (# <equivalence> = expected actual))))))] + (at <equivalence> = expected actual))))))] [/.bit format.bit random.bit bit.equivalence] [/.nat format.nat random.nat n.equivalence] @@ -223,13 +223,13 @@ (format.result format.frac) (/.result /.frac) (!expect (^.multi {try.#Success actual} - (or (# frac.equivalence = expected actual) + (or (at frac.equivalence = expected actual) (and (frac.not_a_number? expected) (frac.not_a_number? actual)))))))) (do [! random.monad] - [expected (# ! each (|>> (i64.and (i64.mask /.size_8)) - (n.max 2)) - random.nat)] + [expected (at ! each (|>> (i64.and (i64.mask /.size_8)) + (n.max 2)) + random.nat)] (_.coverage [/.not_a_bit] (|> expected (format.result format.bits_8) @@ -249,7 +249,7 @@ (format.result <format>) (/.result <parser>) (!expect (^.multi {try.#Success actual} - (# <equivalence> = expected actual))))))] + (at <equivalence> = expected actual))))))] [/.location format.location random_location location_equivalence] [/.code format.code random_code code.equivalence] @@ -263,14 +263,14 @@ (format.result <format>) (/.result <parser>) (!expect (^.multi {try.#Success actual} - (# <equivalence> = expected actual))))))] + (at <equivalence> = expected actual))))))] [/.maybe (/.maybe /.nat) format.maybe (format.maybe format.nat) (random.maybe random.nat) (maybe.equivalence n.equivalence)] [/.list (/.list /.nat) format.list (format.list format.nat) (random.list ..segment_size random.nat) (list.equivalence n.equivalence)] [/.set (/.set n.hash /.nat) format.set (format.set format.nat) (random.set n.hash ..segment_size random.nat) set.equivalence] [/.symbol /.symbol format.symbol format.symbol ..random_symbol symbol.equivalence])) (do [! random.monad] - [expected (# ! each (list.repeated ..segment_size) random.nat)] + [expected (at ! each (list.repeated ..segment_size) random.nat)] (_.coverage [/.set_elements_are_not_unique] (|> expected (format.result (format.list format.nat)) @@ -285,13 +285,13 @@ (/.result (is (/.Parser (Either Bit Nat)) (/.or /.bit /.nat))) (!expect (^.multi {try.#Success actual} - (# (sum.equivalence bit.equivalence n.equivalence) = - expected - actual)))))) + (at (sum.equivalence bit.equivalence n.equivalence) = + expected + actual)))))) (do [! random.monad] - [tag (# ! each (|>> (i64.and (i64.mask /.size_8)) - (n.max 2)) - random.nat) + [tag (at ! each (|>> (i64.and (i64.mask /.size_8)) + (n.max 2)) + random.nat) value random.bit] (_.coverage [/.invalid_tag] (|> [tag value] @@ -313,9 +313,9 @@ (<>.and /.nat again)))))) (!expect (^.multi {try.#Success actual} - (# (list.equivalence n.equivalence) = - expected - actual)))))) + (at (list.equivalence n.equivalence) = + expected + actual)))))) ))) (def: .public test @@ -329,22 +329,22 @@ (/.result /.any) (!expect {try.#Success _}))) (do [! random.monad] - [data (# ! each (# utf8.codec encoded) (random.ascii ..segment_size))] + [data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] (_.coverage [/.binary_was_not_fully_read] (|> data (/.result /.any) (!expect (^.multi {try.#Failure error} (exception.match? /.binary_was_not_fully_read error)))))) (do [! random.monad] - [expected (# ! each (# utf8.codec encoded) (random.ascii ..segment_size))] + [expected (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] (_.coverage [/.segment format.segment format.result] (|> expected (format.result (format.segment ..segment_size)) (/.result (/.segment ..segment_size)) (!expect (^.multi {try.#Success actual} - (# binary.equivalence = expected actual)))))) + (at binary.equivalence = expected actual)))))) (do [! random.monad] - [data (# ! each (# utf8.codec encoded) (random.ascii ..segment_size))] + [data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] (_.coverage [/.end?] (|> data (/.result (do <>.monad @@ -355,8 +355,8 @@ post)))) (!expect {try.#Success #1})))) (do [! random.monad] - [to_read (# ! each (n.% (++ ..segment_size)) random.nat) - data (# ! each (# utf8.codec encoded) (random.ascii ..segment_size))] + [to_read (at ! each (n.% (++ ..segment_size)) random.nat) + data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] (_.coverage [/.Offset /.offset] (|> data (/.result (do <>.monad @@ -370,8 +370,8 @@ (n.= ..segment_size nothing_left))))) (!expect {try.#Success #1})))) (do [! random.monad] - [to_read (# ! each (n.% (++ ..segment_size)) random.nat) - data (# ! each (# utf8.codec encoded) (random.ascii ..segment_size))] + [to_read (at ! each (n.% (++ ..segment_size)) random.nat) + data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] (_.coverage [/.remaining] (|> data (/.result (do <>.monad diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux index 28e5fb4a2..9e12a51aa 100644 --- a/stdlib/source/test/lux/control/parser/cli.lux +++ b/stdlib/source/test/lux/control/parser/cli.lux @@ -33,7 +33,7 @@ (<| (_.covering /._) (_.for [/.Parser]) (do [! random.monad] - [expected (# ! each n#encoded random.nat) + [expected (at ! each n#encoded random.nat) .let [random_dummy (random.only (|>> (text#= expected) not) (random.unicode 5))] dummy random_dummy diff --git a/stdlib/source/test/lux/control/parser/code.lux b/stdlib/source/test/lux/control/parser/code.lux index ad59d2ba3..01837874f 100644 --- a/stdlib/source/test/lux/control/parser/code.lux +++ b/stdlib/source/test/lux/control/parser/code.lux @@ -61,7 +61,7 @@ (_.for [/.Parser]) (`` (all _.and (do [! random.monad] - [expected (# ! each code.bit random.bit)] + [expected (at ! each code.bit random.bit)] (_.coverage [/.result] (and (|> (/.result /.any (list expected)) (!expect {try.#Success _})) @@ -70,12 +70,12 @@ (~~ (template [<query> <check> <random> <code> <equivalence>] [(do [! random.monad] [expected <random> - dummy (|> <random> (random.only (|>> (# <equivalence> = expected) not)))] + dummy (|> <random> (random.only (|>> (at <equivalence> = expected) not)))] (all _.and (_.coverage [<query>] (|> (/.result <query> (list (<code> expected))) (!expect (^.multi {try.#Success actual} - (# <equivalence> = expected actual))))) + (at <equivalence> = expected actual))))) (_.coverage [<check>] (and (|> (/.result (<check> expected) (list (<code> expected))) (!expect {try.#Success []})) @@ -83,7 +83,7 @@ (!expect {try.#Failure _})))) ))] - [/.any /.this (# ! each code.bit random.bit) function.identity code.equivalence] + [/.any /.this (at ! each code.bit random.bit) function.identity code.equivalence] [/.bit /.this_bit random.bit code.bit bit.equivalence] [/.nat /.this_nat random.nat code.nat nat.equivalence] [/.int /.this_int random.int code.int int.equivalence] @@ -103,8 +103,8 @@ (list (<code> (list (code.nat expected_left) (code.int expected_right))))) (!expect (^.multi {try.#Success [actual_left actual_right]} - (and (# nat.equivalence = expected_left actual_left) - (# int.equivalence = expected_right actual_right)))))))] + (and (at nat.equivalence = expected_left actual_left) + (at int.equivalence = expected_right actual_right)))))))] [/.form code.form] [/.variant code.variant] @@ -118,10 +118,10 @@ /.int) (list (code.int expected_global))) (!expect (^.multi {try.#Success [actual_local actual_global]} - (and (# nat.equivalence = expected_local actual_local) - (# int.equivalence = expected_global actual_global))))))) + (and (at nat.equivalence = expected_local actual_local) + (at int.equivalence = expected_global actual_global))))))) (do [! random.monad] - [dummy (# ! each code.bit random.bit)] + [dummy (at ! each code.bit random.bit)] (_.coverage [/.end?] (|> (/.result (do <>.monad [pre /.end? @@ -133,14 +133,14 @@ (!expect (^.multi {try.#Success verdict} verdict))))) (do [! random.monad] - [dummy (# ! each code.bit random.bit)] + [dummy (at ! each code.bit random.bit)] (_.coverage [/.end] (and (|> (/.result /.end (list)) (!expect {try.#Success []})) (|> (/.result /.end (list dummy)) (!expect {try.#Failure _}))))) (do [! random.monad] - [expected (# ! each code.bit random.bit)] + [expected (at ! each code.bit random.bit)] (_.coverage [/.next] (|> (/.result (do <>.monad [pre /.next @@ -150,7 +150,7 @@ (list expected)) (!expect {try.#Success _})))) (do [! random.monad] - [expected (# ! each code.bit random.bit)] + [expected (at ! each code.bit random.bit)] (_.coverage [/.not] (and (|> (/.result (/.not /.nat) (list expected)) (!expect (^.multi {try.#Success actual} diff --git a/stdlib/source/test/lux/control/parser/environment.lux b/stdlib/source/test/lux/control/parser/environment.lux index 9b098cf1a..d009918c4 100644 --- a/stdlib/source/test/lux/control/parser/environment.lux +++ b/stdlib/source/test/lux/control/parser/environment.lux @@ -30,7 +30,7 @@ [expected random.nat] (_.coverage [/.result] (|> (/.result (//#in expected) /.empty) - (# try.functor each (n.= expected)) + (at try.functor each (n.= expected)) (try.else false)))) (do random.monad [property (random.alphabetic 1) @@ -39,7 +39,7 @@ (|> /.empty (dictionary.has property expected) (/.result (/.property property)) - (# try.functor each (text#= expected)) + (at try.functor each (text#= expected)) (try.else false)))) (do random.monad [property (random.alphabetic 1)] diff --git a/stdlib/source/test/lux/control/parser/json.lux b/stdlib/source/test/lux/control/parser/json.lux index 75a817481..6c2a0753a 100644 --- a/stdlib/source/test/lux/control/parser/json.lux +++ b/stdlib/source/test/lux/control/parser/json.lux @@ -48,23 +48,23 @@ (_.for [/.Parser]) (`` (all _.and (do [! random.monad] - [expected (# ! each (|>> {json.#String}) (random.unicode 1))] + [expected (at ! each (|>> {json.#String}) (random.unicode 1))] (_.coverage [/.result /.any] (|> (/.result /.any expected) (!expect (^.multi {try.#Success actual} - (# json.equivalence = expected actual)))))) + (at json.equivalence = expected actual)))))) (_.coverage [/.null] (|> (/.result /.null {json.#Null}) (!expect {try.#Success _}))) (~~ (template [<query> <test> <check> <random> <json> <equivalence>] [(do [! random.monad] [expected <random> - dummy (|> <random> (random.only (|>> (# <equivalence> = expected) not)))] + dummy (|> <random> (random.only (|>> (at <equivalence> = expected) not)))] (all _.and (_.coverage [<query>] (|> (/.result <query> {<json> expected}) (!expect (^.multi {try.#Success actual} - (# <equivalence> = expected actual))))) + (at <equivalence> = expected actual))))) (_.coverage [<test>] (and (|> (/.result (<test> expected) {<json> expected}) (!expect {try.#Success #1})) @@ -89,7 +89,7 @@ (exception.match? /.unexpected_value error)))))) (do [! random.monad] [expected (random.unicode 1) - dummy (|> (random.unicode 1) (random.only (|>> (# text.equivalence = expected) not)))] + dummy (|> (random.unicode 1) (random.only (|>> (at text.equivalence = expected) not)))] (_.coverage [/.value_mismatch] (|> (/.result (/.this_string expected) {json.#String dummy}) (!expect (^.multi {try.#Failure error} @@ -99,22 +99,22 @@ (_.coverage [/.nullable] (and (|> (/.result (/.nullable /.string) {json.#Null}) (!expect (^.multi {try.#Success actual} - (# (maybe.equivalence text.equivalence) = {.#None} actual)))) + (at (maybe.equivalence text.equivalence) = {.#None} actual)))) (|> (/.result (/.nullable /.string) {json.#String expected}) (!expect (^.multi {try.#Success actual} - (# (maybe.equivalence text.equivalence) = {.#Some expected} actual))))))) + (at (maybe.equivalence text.equivalence) = {.#Some expected} actual))))))) (do [! random.monad] - [size (# ! each (n.% 10) random.nat) + [size (at ! each (n.% 10) random.nat) expected (|> (random.unicode 1) (random.list size) - (# ! each sequence.of_list))] + (at ! each sequence.of_list))] (_.coverage [/.array] (|> (/.result (/.array (<>.some /.string)) {json.#Array (sequence#each (|>> {json.#String}) expected)}) (!expect (^.multi {try.#Success actual} - (# (sequence.equivalence text.equivalence) = expected (sequence.of_list actual))))))) + (at (sequence.equivalence text.equivalence) = expected (sequence.of_list actual))))))) (do [! random.monad] - [expected (# ! each (|>> {json.#String}) (random.unicode 1))] + [expected (at ! each (|>> {json.#String}) (random.unicode 1))] (_.coverage [/.unconsumed_input] (|> (/.result (/.array /.any) {json.#Array (sequence expected expected)}) (!expect (^.multi {try.#Failure error} @@ -128,13 +128,13 @@ expected_number ..safe_frac expected_string (random.unicode 1) [boolean_field number_field string_field] (|> (random.set text.hash 3 (random.unicode 3)) - (# ! each (|>> set.list - (pipe.case - (pattern (list boolean_field number_field string_field)) - [boolean_field number_field string_field] + (at ! each (|>> set.list + (pipe.case + (pattern (list boolean_field number_field string_field)) + [boolean_field number_field string_field] - _ - (undefined)))))] + _ + (undefined)))))] (_.coverage [/.object /.field] (|> (/.result (/.object (all <>.and (/.field boolean_field /.boolean) @@ -146,11 +146,11 @@ [number_field {json.#Number expected_number}] [string_field {json.#String expected_string}]))}) (!expect (^.multi {try.#Success [actual_boolean actual_number actual_string]} - (and (# bit.equivalence = expected_boolean actual_boolean) - (# frac.equivalence = expected_number actual_number) - (# text.equivalence = expected_string actual_string))))))) + (and (at bit.equivalence = expected_boolean actual_boolean) + (at frac.equivalence = expected_number actual_number) + (at text.equivalence = expected_string actual_string))))))) (do [! random.monad] - [size (# ! each (n.% 10) random.nat) + [size (at ! each (n.% 10) random.nat) keys (random.list size (random.unicode 1)) values (random.list size (random.unicode 1)) .let [expected (dictionary.of_list text.hash (list.zipped_2 keys values))]] @@ -162,5 +162,5 @@ (list.zipped_2 keys) (dictionary.of_list text.hash))}) (!expect (^.multi {try.#Success actual} - (# (dictionary.equivalence text.equivalence) = expected actual)))))) + (at (dictionary.equivalence text.equivalence) = expected actual)))))) )))) diff --git a/stdlib/source/test/lux/control/parser/synthesis.lux b/stdlib/source/test/lux/control/parser/synthesis.lux index 8e974ad33..7046d5d1d 100644 --- a/stdlib/source/test/lux/control/parser/synthesis.lux +++ b/stdlib/source/test/lux/control/parser/synthesis.lux @@ -55,9 +55,9 @@ (def: random_environment (Random (Environment Synthesis)) (do [! random.monad] - [size (# ! each (n.% 5) random.nat)] + [size (at ! each (n.% 5) random.nat)] (|> ..random_variable - (# ! each (|>> synthesis.variable)) + (at ! each (|>> synthesis.variable)) (random.list size)))) (def: simple @@ -66,12 +66,12 @@ (~~ (template [<query> <check> <random> <synthesis> <equivalence>] [(do [! random.monad] [expected <random> - dummy (|> <random> (random.only (|>> (# <equivalence> = expected) not)))] + dummy (|> <random> (random.only (|>> (at <equivalence> = expected) not)))] (all _.and (_.coverage [<query>] (|> (/.result <query> (list (<synthesis> expected))) (!expect (^.multi {try.#Success actual} - (# <equivalence> = expected actual))))) + (at <equivalence> = expected actual))))) (_.coverage [<check>] (and (|> (/.result (<check> expected) (list (<synthesis> expected))) (!expect {try.#Success _})) @@ -105,10 +105,10 @@ (synthesis.f64 expected_f64) (synthesis.text expected_text))))) (!expect (^.multi {try.#Success [actual_bit actual_i64 actual_f64 actual_text]} - (and (# bit.equivalence = expected_bit actual_bit) - (# i64.equivalence = expected_i64 actual_i64) - (# frac.equivalence = expected_f64 actual_f64) - (# text.equivalence = expected_text actual_text))))) + (and (at bit.equivalence = expected_bit actual_bit) + (at i64.equivalence = expected_i64 actual_i64) + (at frac.equivalence = expected_f64 actual_f64) + (at text.equivalence = expected_text actual_text))))) (|> (/.result (/.tuple (all <>.and /.bit /.i64 /.f64 /.text)) (list (synthesis.text expected_text))) (!expect (^.multi {try.#Failure error} @@ -121,10 +121,10 @@ (and (|> (/.result (/.function arity /.text) (list (synthesis.function/abstraction [expected_environment arity (synthesis.text expected_body)]))) (!expect (^.multi {try.#Success [actual_environment actual_body]} - (and (# (list.equivalence synthesis.equivalence) = - expected_environment - actual_environment) - (# text.equivalence = expected_body actual_body))))) + (and (at (list.equivalence synthesis.equivalence) = + expected_environment + actual_environment) + (at text.equivalence = expected_body actual_body))))) (|> (/.result (/.function arity /.text) (list (synthesis.text expected_body))) (!expect (^.multi {try.#Failure error} @@ -139,7 +139,7 @@ (!expect (^.multi {try.#Failure error} (exception.match? /.wrong_arity error)))))) (do [! random.monad] - [arity (# ! each (|>> (n.% 10) ++) random.nat) + [arity (at ! each (|>> (n.% 10) ++) random.nat) expected_offset random.nat expected_inits (random.list arity random.bit) expected_body (random.unicode 1)] @@ -149,11 +149,11 @@ (list#each (|>> synthesis.bit) expected_inits) (synthesis.text expected_body)]))) (!expect (^.multi {try.#Success [actual_offset actual_inits actual_body]} - (and (# n.equivalence = expected_offset actual_offset) - (# (list.equivalence bit.equivalence) = - expected_inits - actual_inits) - (# text.equivalence = expected_body actual_body))))) + (and (at n.equivalence = expected_offset actual_offset) + (at (list.equivalence bit.equivalence) = + expected_inits + actual_inits) + (at text.equivalence = expected_body actual_body))))) (|> (/.result (/.loop (<>.many /.bit) /.text) (list (synthesis.text expected_body))) (!expect (^.multi {try.#Failure error} @@ -166,23 +166,23 @@ (_.for [/.Parser]) (all _.and (do [! random.monad] - [expected (# ! each (|>> synthesis.i64) random.i64)] + [expected (at ! each (|>> synthesis.i64) random.i64)] (_.coverage [/.result /.any] (|> (/.result /.any (list expected)) (!expect (^.multi {try.#Success actual} - (# synthesis.equivalence = expected actual)))))) + (at synthesis.equivalence = expected actual)))))) (_.coverage [/.empty_input] (|> (/.result /.any (list)) (!expect (^.multi {try.#Failure error} (exception.match? /.empty_input error))))) (do [! random.monad] - [expected (# ! each (|>> synthesis.i64) random.i64)] + [expected (at ! each (|>> synthesis.i64) random.i64)] (_.coverage [/.unconsumed_input] (|> (/.result /.any (list expected expected)) (!expect (^.multi {try.#Failure error} (exception.match? /.unconsumed_input error)))))) (do [! random.monad] - [dummy (# ! each (|>> synthesis.i64) random.i64)] + [dummy (at ! each (|>> synthesis.i64) random.i64)] (_.coverage [/.end /.expected_empty_input] (and (|> (/.result /.end (list)) (!expect {try.#Success _})) @@ -190,7 +190,7 @@ (!expect (^.multi {try.#Failure error} (exception.match? /.expected_empty_input error))))))) (do [! random.monad] - [dummy (# ! each (|>> synthesis.i64) random.i64)] + [dummy (at ! each (|>> synthesis.i64) random.i64)] (_.coverage [/.end?] (and (|> (/.result /.end? (list)) (!expect {try.#Success #1})) diff --git a/stdlib/source/test/lux/control/parser/text.lux b/stdlib/source/test/lux/control/parser/text.lux index af56ad878..55a334421 100644 --- a/stdlib/source/test/lux/control/parser/text.lux +++ b/stdlib/source/test/lux/control/parser/text.lux @@ -62,7 +62,7 @@ (-> Text (/.Parser Text) Bit) (|> expected (/.result parser) - (# try.functor each (text#= expected)) + (at try.functor each (text#= expected)) (try.else false))) (def: (should_pass! expected parser) @@ -73,13 +73,13 @@ Test (all _.and (do [! random.monad] - [offset (# ! each (n.% 50) random.nat) - range (# ! each (|>> (n.% 50) (n.+ 10)) random.nat) + [offset (at ! each (n.% 50) random.nat) + range (at ! each (|>> (n.% 50) (n.+ 10)) random.nat) .let [limit (n.+ offset range)] - expected (# ! each (|>> (n.% range) (n.+ offset) text.of_char) random.nat) + expected (at ! each (|>> (n.% range) (n.+ offset) text.of_char) random.nat) out_of_range (case offset - 0 (# ! each (|>> (n.% 10) ++ (n.+ limit) text.of_char) random.nat) - _ (# ! each (|>> (n.% offset) text.of_char) random.nat))] + 0 (at ! each (|>> (n.% 10) ++ (n.+ limit) text.of_char) random.nat) + _ (at ! each (|>> (n.% offset) text.of_char) random.nat))] (_.coverage [/.range] (and (..should_pass expected (/.range offset limit)) (..should_fail out_of_range (/.range offset limit))))) @@ -98,22 +98,22 @@ (and (..should_pass (text.of_char expected) /.lower) (..should_fail (text.of_char invalid) /.lower)))) (do [! random.monad] - [expected (# ! each (n.% 10) random.nat) + [expected (at ! each (n.% 10) random.nat) invalid (random.char (unicode.set [unicode/block.number_forms (list)]))] (_.coverage [/.decimal] - (and (..should_pass (# n.decimal encoded expected) /.decimal) + (and (..should_pass (at n.decimal encoded expected) /.decimal) (..should_fail (text.of_char invalid) /.decimal)))) (do [! random.monad] - [expected (# ! each (n.% 8) random.nat) + [expected (at ! each (n.% 8) random.nat) invalid (random.char (unicode.set [unicode/block.number_forms (list)]))] (_.coverage [/.octal] - (and (..should_pass (# n.octal encoded expected) /.octal) + (and (..should_pass (at n.octal encoded expected) /.octal) (..should_fail (text.of_char invalid) /.octal)))) (do [! random.monad] - [expected (# ! each (n.% 16) random.nat) + [expected (at ! each (n.% 16) random.nat) invalid (random.char (unicode.set [unicode/block.number_forms (list)]))] (_.coverage [/.hexadecimal] - (and (..should_pass (# n.hex encoded expected) /.hexadecimal) + (and (..should_pass (at n.hex encoded expected) /.hexadecimal) (..should_fail (text.of_char invalid) /.hexadecimal)))) (do [! random.monad] [expected (random.char unicode.alphabetic) @@ -156,14 +156,14 @@ [.let [num_options 3] options (|> (random.char unicode.character) (random.set n.hash num_options) - (# ! each (|>> set.list - (list#each text.of_char) - text.together))) - expected (# ! each (function (_ value) - (|> options - (text.char (n.% num_options value)) - maybe.trusted)) - random.nat) + (at ! each (|>> set.list + (list#each text.of_char) + text.together))) + expected (at ! each (function (_ value) + (|> options + (text.char (n.% num_options value)) + maybe.trusted)) + random.nat) invalid (random.only (function (_ char) (not (text.contains? (text.of_char char) options))) (random.char unicode.character))] @@ -182,14 +182,14 @@ [.let [num_options 3] options (|> (random.char unicode.character) (random.set n.hash num_options) - (# ! each (|>> set.list - (list#each text.of_char) - text.together))) - invalid (# ! each (function (_ value) - (|> options - (text.char (n.% num_options value)) - maybe.trusted)) - random.nat) + (at ! each (|>> set.list + (list#each text.of_char) + text.together))) + invalid (at ! each (function (_ value) + (|> options + (text.char (n.% num_options value)) + maybe.trusted)) + random.nat) expected (random.only (function (_ char) (not (text.contains? (text.of_char char) options))) (random.char unicode.character))] @@ -211,26 +211,26 @@ (let [octal! (/.one_of! "01234567")] (all _.and (do [! random.monad] - [left (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat) - right (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat) + [left (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat) + right (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat) .let [expected (format left right)] invalid (|> random.nat - (# ! each (n.% 16)) + (at ! each (n.% 16)) (random.only (n.>= 8)) - (# ! each (# n.hex encoded)))] + (at ! each (at n.hex encoded)))] (_.coverage [/.many /.many!] (and (..should_pass expected (/.many /.octal)) (..should_fail invalid (/.many /.octal)) (..should_pass! expected (/.many! octal!))))) (do [! random.monad] - [left (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat) - right (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat) + [left (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat) + right (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat) .let [expected (format left right)] invalid (|> random.nat - (# ! each (n.% 16)) + (at ! each (n.% 16)) (random.only (n.>= 8)) - (# ! each (# n.hex encoded)))] + (at ! each (at n.hex encoded)))] (_.coverage [/.some /.some!] (and (..should_pass expected (/.some /.octal)) (..should_pass "" (/.some /.octal)) @@ -239,7 +239,7 @@ (..should_pass! expected (/.some! octal!)) (..should_pass! "" (/.some! octal!))))) (do [! random.monad] - [.let [octal (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat)] + [.let [octal (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat)] first octal second octal third octal] @@ -252,7 +252,7 @@ (..should_fail (format first second third) (/.exactly! 2 octal!)) (..should_fail (format first) (/.exactly! 2 octal!))))) (do [! random.monad] - [.let [octal (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat)] + [.let [octal (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat)] first octal second octal third octal] @@ -265,7 +265,7 @@ (..should_pass! (format first) (/.at_most! 2 octal!)) (..should_fail (format first second third) (/.at_most! 2 octal!))))) (do [! random.monad] - [.let [octal (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat)] + [.let [octal (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat)] first octal second octal third octal] @@ -278,7 +278,7 @@ (..should_pass! (format first second third) (/.at_least! 2 octal!)) (..should_fail (format first) (/.at_least! 2 octal!))))) (do [! random.monad] - [.let [octal (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat)] + [.let [octal (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat)] first octal second octal third octal] @@ -390,7 +390,7 @@ (/.this output))) (!expect {try.#Success _})))) (do [! random.monad] - [expected (# ! each (|>> (n.% 8) (# n.octal encoded)) random.nat)] + [expected (at ! each (|>> (n.% 8) (at n.octal encoded)) random.nat)] (_.coverage [/.then] (|> (list (code.text expected)) (<c>.result (/.then /.octal <c>.text)) diff --git a/stdlib/source/test/lux/control/parser/type.lux b/stdlib/source/test/lux/control/parser/type.lux index 779c63cd2..2d871bdef 100644 --- a/stdlib/source/test/lux/control/parser/type.lux +++ b/stdlib/source/test/lux/control/parser/type.lux @@ -36,8 +36,8 @@ (def: primitive (Random Type) (|> (random.alpha_numeric 1) - (# random.monad each (function (_ name) - {.#Primitive name (list)})))) + (at random.monad each (function (_ name) + {.#Primitive name (list)})))) (def: test|matches Test @@ -144,14 +144,14 @@ (/.with_extension argument) /.any) not_parameter) - (!expect (^.multi {try.#Success [quantification##binding argument##binding actual]} + (!expect (^.multi {try.#Success [quantification::binding argument::binding actual]} (same? not_parameter actual))))) (_.coverage [/.parameter] (|> (/.result (<| (/.with_extension quantification) (/.with_extension argument) /.parameter) {.#Parameter 0}) - (!expect {try.#Success [quantification##binding argument##binding _]}))) + (!expect {try.#Success [quantification::binding argument::binding _]}))) (_.coverage [/.argument] (let [argument? (is (-> Nat Nat Bit) (function (_ @ expected) @@ -181,14 +181,14 @@ (/.with_extension argument) (/.this_parameter 0)) {.#Parameter 0}) - (!expect {try.#Success [quantification##binding argument##binding _]}))) + (!expect {try.#Success [quantification::binding argument::binding _]}))) ))) (def: test|polymorphic Test (do [! random.monad] [not_polymorphic ..primitive - expected_inputs (# ! each (|>> (n.% 10) ++) random.nat)] + expected_inputs (at ! each (|>> (n.% 10) ++) random.nat)] (all _.and (_.coverage [/.not_polymorphic] (and (|> (/.result (/.polymorphic /.any) diff --git a/stdlib/source/test/lux/control/parser/xml.lux b/stdlib/source/test/lux/control/parser/xml.lux index 95e6c3713..57833948e 100644 --- a/stdlib/source/test/lux/control/parser/xml.lux +++ b/stdlib/source/test/lux/control/parser/xml.lux @@ -71,7 +71,7 @@ [[(//#in expected) {xml.#Text expected}]]) (do [! random.monad] - [expected (# ! each (|>> {xml.#Text}) (random.alphabetic 1))] + [expected (at ! each (|>> {xml.#Text}) (random.alphabetic 1))] (_.coverage [/.any] (|> (/.result /.any (list expected)) (try#each (xml#= expected)) @@ -161,7 +161,7 @@ (//#in [])) _ (//.some /.any)] (in [])))] - repetitions (# ! each (n.% 10) random.nat)] + repetitions (at ! each (n.% 10) random.nat)] (all _.and (_.coverage [/.somewhere] (|> (/.result parser diff --git a/stdlib/source/test/lux/control/region.lux b/stdlib/source/test/lux/control/region.lux index 458c74381..258436915 100644 --- a/stdlib/source/test/lux/control/region.lux +++ b/stdlib/source/test/lux/control/region.lux @@ -81,7 +81,7 @@ (<| (_.covering /._) (_.for [/.Region]) (do [! random.monad] - [expected_clean_ups (|> random.nat (# ! each (|>> (n.% 100) (n.max 1))))] + [expected_clean_ups (|> random.nat (at ! each (|>> (n.% 100) (n.max 1))))] (all _.and (_.for [/.functor] ($functor.spec ..injection ..comparison (is (All (_ ! r) diff --git a/stdlib/source/test/lux/control/security/policy.lux b/stdlib/source/test/lux/control/security/policy.lux index efd4a029c..8e188702b 100644 --- a/stdlib/source/test/lux/control/security/policy.lux +++ b/stdlib/source/test/lux/control/security/policy.lux @@ -61,7 +61,7 @@ (%#can_downgrade sample))))) (def: hash (|>> %#can_downgrade - (# text.hash hash))))) + (at text.hash hash))))) (def: password %#can_upgrade) @@ -77,24 +77,24 @@ (do random.monad [.let [policy_0 (policy [])] raw_password (random.ascii 10) - .let [password (# policy_0 password raw_password)]] + .let [password (at policy_0 password raw_password)]] (all _.and (_.for [/.Privacy /.Private /.Can_Conceal /.Can_Reveal /.Safety /.Safe /.Can_Trust /.Can_Distrust] (all _.and (_.for [/.functor] - ($functor.spec (..injection (# policy_0 #can_upgrade)) (..comparison (# policy_0 #can_downgrade)) /.functor)) + ($functor.spec (..injection (at policy_0 #can_upgrade)) (..comparison (at policy_0 #can_downgrade)) /.functor)) (_.for [/.apply] - ($apply.spec (..injection (# policy_0 #can_upgrade)) (..comparison (# policy_0 #can_downgrade)) /.apply)) + ($apply.spec (..injection (at policy_0 #can_upgrade)) (..comparison (at policy_0 #can_downgrade)) /.apply)) (_.for [/.monad] - ($monad.spec (..injection (# policy_0 #can_upgrade)) (..comparison (# policy_0 #can_downgrade)) /.monad)))) + ($monad.spec (..injection (at policy_0 #can_upgrade)) (..comparison (at policy_0 #can_downgrade)) /.monad)))) (_.coverage [/.Privilege /.Context /.with_policy] - (and (# policy_0 = password password) - (n.= (# text.hash hash raw_password) - (# policy_0 hash password)))) + (and (at policy_0 = password password) + (n.= (at text.hash hash raw_password) + (at policy_0 hash password)))) (let [policy_1 (policy []) - delegate (/.delegation (# policy_0 #can_downgrade) (# policy_1 #can_upgrade))] + delegate (/.delegation (at policy_0 #can_downgrade) (at policy_1 #can_upgrade))] (_.coverage [/.Delegation /.delegation] - (# policy_1 = (delegate password) (delegate password)))) + (at policy_1 = (delegate password) (delegate password)))) )))) diff --git a/stdlib/source/test/lux/control/state.lux b/stdlib/source/test/lux/control/state.lux index 8fa9abe69..81c10a970 100644 --- a/stdlib/source/test/lux/control/state.lux +++ b/stdlib/source/test/lux/control/state.lux @@ -81,7 +81,7 @@ (def: loops Test (do [! random.monad] - [limit (|> random.nat (# ! each (n.% 10))) + [limit (|> random.nat (at ! each (n.% 10))) .let [condition (do /.monad [state /.get] (in (n.< limit state)))]] diff --git a/stdlib/source/test/lux/control/thread.lux b/stdlib/source/test/lux/control/thread.lux index a4c2622dc..7d7e9ae43 100644 --- a/stdlib/source/test/lux/control/thread.lux +++ b/stdlib/source/test/lux/control/thread.lux @@ -19,7 +19,7 @@ (def: (injection value) (Injection (All (_ a !) (Thread ! a))) - (# /.monad in value)) + (at /.monad in value)) (def: comparison (Comparison (All (_ a !) (Thread ! a))) @@ -38,12 +38,12 @@ (_.coverage [/.result] (n.= sample (|> sample - (# /.monad in) + (at /.monad in) /.result))) (_.coverage [/.io] (n.= sample (|> sample - (# /.monad in) + (at /.monad in) /.io io.run!))) diff --git a/stdlib/source/test/lux/control/try.lux b/stdlib/source/test/lux/control/try.lux index 043890c39..d448bedc2 100644 --- a/stdlib/source/test/lux/control/try.lux +++ b/stdlib/source/test/lux/control/try.lux @@ -28,7 +28,7 @@ (def: comparison (Comparison Try) (function (_ ==) - (# (/.equivalence ==) =))) + (at (/.equivalence ==) =))) (def: .public (attempt element) (All (_ a) (-> (Random a) (Random (Try a)))) diff --git a/stdlib/source/test/lux/control/writer.lux b/stdlib/source/test/lux/control/writer.lux index 78d475ce1..986ffa366 100644 --- a/stdlib/source/test/lux/control/writer.lux +++ b/stdlib/source/test/lux/control/writer.lux @@ -24,7 +24,7 @@ (def: (injection monoid value) (All (_ w) (-> (Monoid w) (Injection (Writer w)))) - [(# monoid identity) value]) + [(at monoid identity) value]) (def: comparison (All (_ w) (Comparison (Writer w))) diff --git a/stdlib/source/test/lux/data/binary.lux b/stdlib/source/test/lux/data/binary.lux index 15df63e2e..b0eea56fa 100644 --- a/stdlib/source/test/lux/data/binary.lux +++ b/stdlib/source/test/lux/data/binary.lux @@ -44,7 +44,7 @@ [byte random.nat] (exec (try.trusted (/.has_8! idx byte output)) (again (++ idx)))) - (# random.monad in output))))) + (at random.monad in output))))) (def: (throws? exception try) (All (_ e a) (-> (Exception e) (Try a) Bit)) @@ -84,13 +84,13 @@ (<| (_.covering !._) (_.for [!.Binary]) (do [! random.monad] - [.let [gen_size (|> random.nat (# ! each (|>> (n.% 100) (n.max 8))))] + [.let [gen_size (|> random.nat (at ! each (|>> (n.% 100) (n.max 8))))] size gen_size sample (..random size) value random.nat - .let [gen_idx (|> random.nat (# ! each (n.% size)))] + .let [gen_idx (|> random.nat (at ! each (n.% size)))] offset gen_idx - length (# ! each (n.% (n.- offset size)) random.nat)] + length (at ! each (n.% (n.- offset size)) random.nat)] (`` (all _.and (_.for [!.=] ($equivalence.spec (function (_ left right) @@ -128,9 +128,9 @@ reader (function (_ binary idx) (!.bits_8 idx binary))] (and (n.= length (!.size random_slice)) - (# (list.equivalence n.equivalence) = - (list#each (|>> (n.+ offset) (reader sample)) idxs) - (list#each (reader random_slice) idxs))))) + (at (list.equivalence n.equivalence) = + (list#each (|>> (n.+ offset) (reader sample)) idxs) + (list#each (reader random_slice) idxs))))) (_.coverage [!.copy!] (and (let [it (!.copy! size 0 sample 0 (!.empty size))] (and (not (same? sample it)) @@ -148,26 +148,26 @@ (<| (_.covering /._) (_.for [/.Binary]) (do [! random.monad] - [.let [gen_size (|> random.nat (# ! each (|>> (n.% 100) (n.max 8))))] + [.let [gen_size (|> random.nat (at ! each (|>> (n.% 100) (n.max 8))))] size gen_size sample (..random size) value random.nat - .let [gen_idx (|> random.nat (# ! each (n.% size)))] - offset (# ! each (n.max 1) gen_idx) - length (# ! each (n.% (n.- offset size)) random.nat)] + .let [gen_idx (|> random.nat (at ! each (n.% size)))] + offset (at ! each (n.max 1) gen_idx) + length (at ! each (n.% (n.- offset size)) random.nat)] (all _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence (..random size))) (_.for [/.monoid] ($monoid.spec /.equivalence /.monoid (..random size))) (_.coverage [/.mix] - (n.= (# list.mix mix n.+ 0 (..as_list sample)) + (n.= (at list.mix mix n.+ 0 (..as_list sample)) (/.mix n.+ 0 sample))) (_.coverage [/.empty] - (# /.equivalence = - (/.empty size) - (/.empty size))) + (at /.equivalence = + (/.empty size) + (/.empty size))) (_.coverage [/.size] (|> (/.empty size) /.size (n.= size))) (_.for [/.index_out_of_bounds] @@ -192,7 +192,7 @@ (case [(monad.each try.monad (|>> (n.+ offset) (reader sample)) idxs) (monad.each try.monad (reader random_slice) idxs)] [{try.#Success binary_vals} {try.#Success slice_vals}] - (# (list.equivalence n.equivalence) = binary_vals slice_vals) + (at (list.equivalence n.equivalence) = binary_vals slice_vals) _ #0)))) @@ -203,8 +203,8 @@ 0 (not verdict) _ verdict)))) (_.coverage [/.after] - (and (# /.equivalence = sample (/.after 0 sample)) - (# /.equivalence = (/.empty 0) (/.after size sample)) + (and (at /.equivalence = sample (/.after 0 sample)) + (at /.equivalence = (/.empty 0) (/.after size sample)) (n.= (n.- offset size) (/.size (/.after offset sample))) (case (list.reversed (..as_list sample)) {.#End} @@ -217,7 +217,7 @@ (and (case (/.copy! size 0 sample 0 (/.empty size)) {try.#Success output} (and (not (same? sample output)) - (# /.equivalence = sample output)) + (at /.equivalence = sample output)) {try.#Failure _} false) diff --git a/stdlib/source/test/lux/data/bit.lux b/stdlib/source/test/lux/data/bit.lux index 3ce9f5223..868c673f6 100644 --- a/stdlib/source/test/lux/data/bit.lux +++ b/stdlib/source/test/lux/data/bit.lux @@ -34,12 +34,12 @@ ($codec.spec /.equivalence /.codec random.bit)) (_.coverage [/.no /.yes] - (and (# /.equivalence = false /.no) - (# /.equivalence = true /.yes))) + (and (at /.equivalence = false /.no) + (at /.equivalence = true /.yes))) (_.coverage [/.off /.on] - (and (# /.equivalence = false /.off) - (# /.equivalence = true /.on))) + (and (at /.equivalence = false /.off) + (at /.equivalence = true /.on))) (_.coverage [/.complement] - (and (not (# /.equivalence = value ((/.complement function.identity) value))) - (# /.equivalence = value ((/.complement not) value)))) + (and (not (at /.equivalence = value ((/.complement function.identity) value))) + (at /.equivalence = value ((/.complement not) value)))) )))) diff --git a/stdlib/source/test/lux/data/collection/array.lux b/stdlib/source/test/lux/data/collection/array.lux index ee06a8073..d62e20981 100644 --- a/stdlib/source/test/lux/data/collection/array.lux +++ b/stdlib/source/test/lux/data/collection/array.lux @@ -34,8 +34,8 @@ (def: bounded_size (Random Nat) - (# random.monad each (|>> (n.% 20) ++) - random.nat)) + (at random.monad each (|>> (n.% 20) ++) + random.nat)) (def: structures Test @@ -66,11 +66,11 @@ choose (is (-> Nat (Maybe Text)) (function (_ value) (if (n.even? value) - {.#Some (# n.decimal encoded value)} + {.#Some (at n.decimal encoded value)} {.#None})))] (_.coverage [/.one] (case [(|> evens - (/#each (# n.decimal encoded)) + (/#each (at n.decimal encoded)) (/.item 0)) (/.one choose evens)] [{.#Some expected} {.#Some actual}] @@ -82,9 +82,9 @@ _ false))) (_.coverage [/.example] - (# (maybe.equivalence n.equivalence) = - (/.example n.even? the_array) - (list.example n.even? (/.list {.#None} the_array)))) + (at (maybe.equivalence n.equivalence) = + (/.example n.even? the_array) + (list.example n.even? (/.list {.#None} the_array)))) (_.coverage [/.example'] (case [(/.example n.even? the_array) (/.example' (function (_ idx member) @@ -105,13 +105,13 @@ _ false)) (_.coverage [/.every?] - (# bit.equivalence = - (list.every? n.even? (/.list {.#None} the_array)) - (/.every? n.even? the_array))) + (at bit.equivalence = + (list.every? n.even? (/.list {.#None} the_array)) + (/.every? n.even? the_array))) (_.coverage [/.any?] - (# bit.equivalence = - (list.any? n.even? (/.list {.#None} the_array)) - (/.any? n.even? the_array))) + (at bit.equivalence = + (list.any? n.even? (/.list {.#None} the_array)) + (/.any? n.even? the_array))) ))) (def: test|unsafe @@ -209,7 +209,7 @@ (and (n.= expected (!.item 0 the_array)) (n.= expected (!.item 1 the_array))))) (do ! - [occupancy (# ! each (n.% (++ size)) random.nat)] + [occupancy (at ! each (n.% (++ size)) random.nat)] (_.coverage [!.occupancy !.vacancy] (let [the_array (loop (again [output (is (Array Nat) (!.empty size)) @@ -231,7 +231,7 @@ random.nat)] (_.coverage [!.of_list !.list] (and (|> the_list !.of_list (!.list {.#None}) - (# (list.equivalence n.equivalence) = the_list)) + (at (list.equivalence n.equivalence) = the_list)) (|> the_array (!.list {.#None}) !.of_list (!.= n.equivalence the_array)) (exec @@ -241,14 +241,14 @@ (same? default value))) (!.list {.#Some default} the_array)))))) (do ! - [amount (# ! each (n.% (++ size)) random.nat)] + [amount (at ! each (n.% (++ size)) random.nat)] (_.coverage [!.copy!] (let [copy (is (Array Nat) (!.empty size))] (exec (!.copy! amount 0 the_array 0 copy) - (# (list.equivalence n.equivalence) = - (list.first amount (!.list {.#None} the_array)) - (!.list {.#None} copy)))))) + (at (list.equivalence n.equivalence) = + (list.first amount (!.list {.#None} the_array)) + (!.list {.#None} copy)))))) (_.coverage [!.clone] (let [clone (!.clone the_array)] (and (not (same? the_array clone)) @@ -262,23 +262,23 @@ (n.= (list.size odds) (!.vacancy the_array)) (|> the_array (!.list {.#None}) - (# (list.equivalence n.equivalence) = evens)))))) + (at (list.equivalence n.equivalence) = evens)))))) (let [choose (is (-> Nat (Maybe Text)) (function (_ value) (if (n.even? value) - {.#Some (# n.decimal encoded value)} + {.#Some (at n.decimal encoded value)} {.#None})))] (_.coverage [!.one] (|> evens (!.one choose) (maybe#each (text#= (|> evens - (!.each (# n.decimal encoded)) + (!.each (at n.decimal encoded)) (!.item 0)))) (maybe.else false)))) (_.coverage [!.example] - (# (maybe.equivalence n.equivalence) = - (!.example n.even? the_array) - (list.example n.even? (!.list {.#None} the_array)))) + (at (maybe.equivalence n.equivalence) = + (!.example n.even? the_array) + (list.example n.even? (!.list {.#None} the_array)))) (_.coverage [!.example'] (case [(!.example n.even? the_array) (!.example' (function (_ idx member) @@ -295,13 +295,13 @@ _ false)) (_.coverage [!.every?] - (# bit.equivalence = - (list.every? n.even? (!.list {.#None} the_array)) - (!.every? n.even? the_array))) + (at bit.equivalence = + (list.every? n.even? (!.list {.#None} the_array)) + (!.every? n.even? the_array))) (_.coverage [!.any?] - (# bit.equivalence = - (list.any? n.even? (!.list {.#None} the_array)) - (!.any? n.even? the_array))) + (at bit.equivalence = + (list.any? n.even? (!.list {.#None} the_array)) + (!.any? n.even? the_array))) ))))) (def: .public test @@ -392,7 +392,7 @@ _ false))) (do ! - [occupancy (# ! each (n.% (++ size)) random.nat)] + [occupancy (at ! each (n.% (++ size)) random.nat)] (_.coverage [/.occupancy /.vacancy] (let [the_array (loop (again [output (is (Array Nat) (/.empty size)) @@ -414,9 +414,9 @@ random.nat)] (_.coverage [/.of_list /.list] (and (|> the_list /.of_list (/.list {.#None}) - (# (list.equivalence n.equivalence) = the_list)) + (at (list.equivalence n.equivalence) = the_list)) (|> the_array (/.list {.#None}) /.of_list - (# (/.equivalence n.equivalence) = the_array)) + (at (/.equivalence n.equivalence) = the_array)) (exec (/.only! n.even? the_array) (list.every? (function (_ value) @@ -424,18 +424,18 @@ (same? default value))) (/.list {.#Some default} the_array)))))) (do ! - [amount (# ! each (n.% (++ size)) random.nat)] + [amount (at ! each (n.% (++ size)) random.nat)] (_.coverage [/.copy!] (let [copy (is (Array Nat) (/.empty size))] (exec (/.copy! amount 0 the_array 0 copy) - (# (list.equivalence n.equivalence) = - (list.first amount (/.list {.#None} the_array)) - (/.list {.#None} copy)))))) + (at (list.equivalence n.equivalence) = + (list.first amount (/.list {.#None} the_array)) + (/.list {.#None} copy)))))) (_.coverage [/.clone] (let [clone (/.clone the_array)] (and (not (same? the_array clone)) - (# (/.equivalence n.equivalence) = the_array clone)))) + (at (/.equivalence n.equivalence) = the_array clone)))) (let [the_array (/.clone the_array) evens (|> the_array (/.list {.#None}) (list.only n.even?)) odds (|> the_array (/.list {.#None}) (list.only n.odd?))] @@ -443,7 +443,7 @@ (exec (/.only! n.even? the_array) (and (n.= (list.size evens) (/.occupancy the_array)) (n.= (list.size odds) (/.vacancy the_array)) - (|> the_array (/.list {.#None}) (# (list.equivalence n.equivalence) = evens)))))) + (|> the_array (/.list {.#None}) (at (list.equivalence n.equivalence) = evens)))))) ..test|unsafe )))) diff --git a/stdlib/source/test/lux/data/collection/bits.lux b/stdlib/source/test/lux/data/collection/bits.lux index b03ccee8c..72bd8a31f 100644 --- a/stdlib/source/test/lux/data/collection/bits.lux +++ b/stdlib/source/test/lux/data/collection/bits.lux @@ -17,16 +17,16 @@ (def: (size min max) (-> Nat Nat (Random Nat)) (|> random.nat - (# random.monad each (|>> (n.% (++ max)) (n.max min))))) + (at random.monad each (|>> (n.% (++ max)) (n.max min))))) (def: .public random (Random Bits) (do [! random.monad] - [size (# ! each (n.% 1,000) random.nat)] + [size (at ! each (n.% 1,000) random.nat)] (case size 0 (in /.empty) _ (do [! random.monad] - [idx (|> random.nat (# ! each (n.% size)))] + [idx (|> random.nat (at ! each (n.% size)))] (in (/.one idx /.empty)))))) (def: .public test @@ -47,8 +47,8 @@ (/.empty? /.empty)) (do [! random.monad] - [size (# ! each (|>> (n.% 1,000) ++) random.nat) - idx (# ! each (n.% size) random.nat) + [size (at ! each (|>> (n.% 1,000) ++) random.nat) + idx (at ! each (n.% size) random.nat) sample ..random] (all _.and (_.coverage [/.bit /.one] @@ -79,17 +79,17 @@ (_.coverage [/.not] (and (same? /.empty (/.not /.empty)) (or (same? /.empty sample) - (and (not (# /.equivalence = sample (/.not sample))) - (# /.equivalence = sample (/.not (/.not sample))))))) + (and (not (at /.equivalence = sample (/.not sample))) + (at /.equivalence = sample (/.not (/.not sample))))))) (_.coverage [/.xor] (and (same? /.empty (/.xor sample sample)) (n.= (/.size (/.xor sample (/.not sample))) (/.capacity sample)))) (_.coverage [/.or] - (and (# /.equivalence = sample (/.or sample sample)) + (and (at /.equivalence = sample (/.or sample sample)) (n.= (/.size (/.or sample (/.not sample))) (/.capacity sample)))) (_.coverage [/.and] - (and (# /.equivalence = sample (/.and sample sample)) + (and (at /.equivalence = sample (/.and sample sample)) (same? /.empty (/.and sample (/.not sample))))) ))))) diff --git a/stdlib/source/test/lux/data/collection/dictionary.lux b/stdlib/source/test/lux/data/collection/dictionary.lux index 11a4da3cb..f5c0b4c9d 100644 --- a/stdlib/source/test/lux/data/collection/dictionary.lux +++ b/stdlib/source/test/lux/data/collection/dictionary.lux @@ -31,7 +31,7 @@ (def: for_dictionaries Test (do [! random.monad] - [.let [capped_nat (# random.monad each (n.% 100) random.nat)] + [.let [capped_nat (at random.monad each (n.% 100) random.nat)] size capped_nat dict (random.dictionary n.hash size random.nat capped_nat) non_key (random.only (|>> (/.key? dict) not) @@ -133,7 +133,7 @@ (def: for_entries Test (do random.monad - [.let [capped_nat (# random.monad each (n.% 100) random.nat)] + [.let [capped_nat (at random.monad each (n.% 100) random.nat)] size capped_nat dict (random.dictionary n.hash size random.nat capped_nat) non_key (random.only (|>> (/.key? dict) not) @@ -253,7 +253,7 @@ (<| (_.covering /._) (_.for [/.Dictionary]) (do random.monad - [.let [capped_nat (# random.monad each (n.% 100) random.nat)] + [.let [capped_nat (at random.monad each (n.% 100) random.nat)] size capped_nat dict (random.dictionary n.hash size random.nat capped_nat) non_key (random.only (|>> (/.key? dict) not) diff --git a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux index 75e7a36e2..19454582a 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux @@ -43,7 +43,7 @@ (<| (_.covering /._) (_.for [/.Dictionary]) (do [! random.monad] - [size (# ! each (n.% 100) random.nat) + [size (at ! each (n.% 100) random.nat) keys (random.set n.hash size random.nat) values (random.set n.hash size random.nat) extra_key (random.only (|>> (set.member? keys) not) diff --git a/stdlib/source/test/lux/data/collection/dictionary/plist.lux b/stdlib/source/test/lux/data/collection/dictionary/plist.lux index 252ca9f85..7cd9ad3aa 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/plist.lux @@ -36,7 +36,7 @@ (_.for [/.PList]) (do [! random.monad] [.let [gen_key (random.alphabetic 10)] - size (# ! each (n.% 100) random.nat) + size (at ! each (n.% 100) random.nat) sample (..random size gen_key random.nat) .let [keys (|> sample /.keys (set.of_list text.hash))] @@ -61,10 +61,10 @@ (_.coverage [/.empty] (/.empty? /.empty)) (_.coverage [/.keys /.values] - (# (/.equivalence n.equivalence) = - sample - (list.zipped_2 (/.keys sample) - (/.values sample)))) + (at (/.equivalence n.equivalence) = + sample + (list.zipped_2 (/.keys sample) + (/.values sample)))) (_.coverage [/.contains?] (and (list.every? (function (_ key) (/.contains? key sample)) @@ -93,5 +93,5 @@ (|> sample (/.has extra_key extra_value) (/.lacks extra_key) - (# (/.equivalence n.equivalence) = sample))) + (at (/.equivalence n.equivalence) = sample))) )))) diff --git a/stdlib/source/test/lux/data/collection/list.lux b/stdlib/source/test/lux/data/collection/list.lux index 81e8d76dc..3e05ec3f4 100644 --- a/stdlib/source/test/lux/data/collection/list.lux +++ b/stdlib/source/test/lux/data/collection/list.lux @@ -34,8 +34,8 @@ (def: bounded_size (Random Nat) - (# random.monad each (n.% 100) - random.nat)) + (at random.monad each (n.% 100) + random.nat)) (def: random (Random (List Nat)) @@ -43,7 +43,7 @@ [size ..bounded_size] (|> random.nat (random.set n.hash size) - (# ! each set.list)))) + (at ! each set.list)))) (def: signatures Test @@ -52,7 +52,7 @@ ($equivalence.spec (/.equivalence n.equivalence) ..random)) (_.for [/.hash] (|> random.nat - (# random.monad each (|>> list)) + (at random.monad each (|>> list)) ($hash.spec (/.hash n.hash)))) (_.for [/.monoid] ($monoid.spec (/.equivalence n.equivalence) /.monoid ..random)) @@ -89,14 +89,14 @@ (do [! random.monad] [size ..bounded_size .let [(open "/#[0]") (/.equivalence n.equivalence)] - sample (# ! each set.list (random.set n.hash size random.nat))] + sample (at ! each set.list (random.set n.hash size random.nat))] (all _.and (_.coverage [/.size] (n.= size (/.size sample))) (_.coverage [/.empty?] - (# bit.equivalence = - (/.empty? sample) - (n.= 0 (/.size sample)))) + (at bit.equivalence = + (/.empty? sample) + (n.= 0 (/.size sample)))) (_.coverage [/.repeated] (n.= size (/.size (/.repeated size [])))) (_.coverage [/.reversed] @@ -178,7 +178,7 @@ (do ! [index (case size 0 random.nat - _ (# ! each (n.% size) random.nat)) + _ (at ! each (n.% size) random.nat)) .let [changed? (/#= sample (/.revised index ++ sample)) same? (/#= sample (/.revised size ++ sample))]] (_.coverage [/.revised] @@ -196,8 +196,8 @@ [sample (random.only (|>> /.size (n.> 0)) ..random) .let [size (/.size sample)] - idx (# ! each (n.% size) random.nat) - sub_size (# ! each (|>> (n.% size) ++) random.nat)] + idx (at ! each (n.% size) random.nat) + sub_size (at ! each (|>> (n.% size) ++) random.nat)] (all _.and (_.coverage [/.only] (let [positives (/.only n.even? sample) @@ -341,12 +341,12 @@ (and size_of_smaller_list! can_extract_values!))) (_.coverage [/.zipped] - (and (# (/.equivalence (product.equivalence n.equivalence n.equivalence)) = - (/.zipped_2 sample/0 sample/1) - ((/.zipped 2) sample/0 sample/1)) - (# (/.equivalence (all product.equivalence n.equivalence n.equivalence n.equivalence)) = - (/.zipped_3 sample/0 sample/1 sample/2) - ((/.zipped 3) sample/0 sample/1 sample/2)))) + (and (at (/.equivalence (product.equivalence n.equivalence n.equivalence)) = + (/.zipped_2 sample/0 sample/1) + ((/.zipped 2) sample/0 sample/1)) + (at (/.equivalence (all product.equivalence n.equivalence n.equivalence n.equivalence)) = + (/.zipped_3 sample/0 sample/1 sample/2) + ((/.zipped 3) sample/0 sample/1 sample/2)))) (_.coverage [/.zipped_with_2] (/#= (/#each (function (_ [left right]) @@ -377,7 +377,7 @@ choice (is (-> Nat (Maybe Text)) (function (_ value) (if (n.even? value) - {.#Some (# n.decimal encoded value)} + {.#Some (at n.decimal encoded value)} {.#None})))] (do [! random.monad] [sample ..random] @@ -385,7 +385,7 @@ (_.coverage [/.one] (case [(|> sample (/.only n.even?) - (/#each (# n.decimal encoded)) + (/#each (at n.decimal encoded)) /.head) (/.one choice sample)] [{.#Some expected} {.#Some actual}] @@ -397,11 +397,11 @@ _ false)) (_.coverage [/.all] - (# (/.equivalence text.equivalence) = - (|> sample - (/.only n.even?) - (/#each (# n.decimal encoded))) - (/.all choice sample))) + (at (/.equivalence text.equivalence) = + (|> sample + (/.only n.even?) + (/#each (at n.decimal encoded))) + (/.all choice sample))) (_.coverage [/.example] (case (/.example n.even? sample) {.#Some found} @@ -449,7 +449,7 @@ 0))))) (_.coverage [/.mixes] (/#= (/#each (function (_ index) - (# /.mix mix n.+ 0 (/.first index sample))) + (at /.mix mix n.+ 0 (/.first index sample))) (/.indices (++ (/.size sample)))) (/.mixes n.+ 0 sample))) (do random.monad diff --git a/stdlib/source/test/lux/data/collection/queue.lux b/stdlib/source/test/lux/data/collection/queue.lux index a67697de2..460c64618 100644 --- a/stdlib/source/test/lux/data/collection/queue.lux +++ b/stdlib/source/test/lux/data/collection/queue.lux @@ -28,7 +28,7 @@ (<| (_.covering /._) (_.for [/.Queue]) (do [! random.monad] - [size (# ! each (n.% 100) random.nat) + [size (at ! each (n.% 100) random.nat) members (random.set n.hash size random.nat) non_member (random.only (|>> (set.member? members) not) random.nat) @@ -42,7 +42,7 @@ (_.coverage [/.of_list /.list] (|> members /.of_list /.list - (# (list.equivalence n.equivalence) = members))) + (at (list.equivalence n.equivalence) = members))) (_.coverage [/.size] (n.= size (/.size sample))) (_.coverage [/.empty?] @@ -53,9 +53,9 @@ all_empty_queues_look_the_same! (bit#= (/.empty? sample) - (# (/.equivalence n.equivalence) = - sample - /.empty))] + (at (/.equivalence n.equivalence) = + sample + /.empty))] (and empty_is_empty! all_empty_queues_look_the_same!))) (_.coverage [/.front] @@ -87,9 +87,9 @@ (/.member? n.equivalence pushed non_member) has_expected_order! - (# (list.equivalence n.equivalence) = - (list#composite (/.list sample) (list non_member)) - (/.list pushed))] + (at (list.equivalence n.equivalence) = + (list#composite (/.list sample) (list non_member)) + (/.list pushed))] (and size_increases! new_member_is_identified! has_expected_order!))) @@ -106,9 +106,9 @@ (not (/.member? n.equivalence popped target)) has_expected_order! - (# (list.equivalence n.equivalence) = - expected - (/.list popped))] + (at (list.equivalence n.equivalence) = + expected + (/.list popped))] (and size_decreases! popped_member_is_not_identified! has_expected_order!)) diff --git a/stdlib/source/test/lux/data/collection/queue/priority.lux b/stdlib/source/test/lux/data/collection/queue/priority.lux index 624231fb1..106884fa1 100644 --- a/stdlib/source/test/lux/data/collection/queue/priority.lux +++ b/stdlib/source/test/lux/data/collection/queue/priority.lux @@ -31,7 +31,7 @@ (<| (_.covering /._) (_.for [/.Queue]) (do [! random.monad] - [size (# ! each (n.% 100) random.nat) + [size (at ! each (n.% 100) random.nat) sample (..random size) non_member_priority random.nat non_member (random.only (|>> (/.member? n.equivalence sample) not) diff --git a/stdlib/source/test/lux/data/collection/sequence.lux b/stdlib/source/test/lux/data/collection/sequence.lux index 92d59f68d..445d6b033 100644 --- a/stdlib/source/test/lux/data/collection/sequence.lux +++ b/stdlib/source/test/lux/data/collection/sequence.lux @@ -30,7 +30,7 @@ (def: signatures Test (do [! random.monad] - [size (# ! each (n.% 100) random.nat)] + [size (at ! each (n.% 100) random.nat)] (all _.and (_.for [/.equivalence] ($equivalence.spec (/.equivalence n.equivalence) (random.sequence size random.nat))) @@ -49,7 +49,7 @@ (def: whole Test (do [! random.monad] - [size (# ! each (n.% 100) random.nat) + [size (at ! each (n.% 100) random.nat) sample (random.set n.hash size random.nat) .let [sample (|> sample set.list /.of_list)] .let [(open "/#[0]") (/.equivalence n.equivalence)]] @@ -82,10 +82,10 @@ (def: index_based Test (do [! random.monad] - [size (# ! each (|>> (n.% 100) ++) random.nat)] + [size (at ! each (|>> (n.% 100) ++) random.nat)] (all _.and (do ! - [good_index (|> random.nat (# ! each (n.% size))) + [good_index (|> random.nat (at ! each (n.% size))) .let [bad_index (n.+ size good_index)] sample (random.set n.hash size random.nat) non_member (random.only (|>> (set.member? sample) not) @@ -135,7 +135,7 @@ (<| (_.covering /._) (_.for [/.Sequence]) (do [! random.monad] - [size (# ! each (|>> (n.% 100) ++) random.nat)] + [size (at ! each (|>> (n.% 100) ++) random.nat)] (all _.and ..signatures ..whole @@ -198,11 +198,11 @@ choice (is (-> Nat (Maybe Text)) (function (_ value) (if (n.even? value) - {.#Some (# n.decimal encoded value)} + {.#Some (at n.decimal encoded value)} {.#None})))] (case [(|> sample (/.only n.even?) - (/#each (# n.decimal encoded)) + (/#each (at n.decimal encoded)) (/.item 0)) (/.one choice sample)] [{try.#Success expected} {.#Some actual}] diff --git a/stdlib/source/test/lux/data/collection/set.lux b/stdlib/source/test/lux/data/collection/set.lux index 17617c2dc..be1168ad5 100644 --- a/stdlib/source/test/lux/data/collection/set.lux +++ b/stdlib/source/test/lux/data/collection/set.lux @@ -22,8 +22,8 @@ (def: gen_nat (Random Nat) - (# random.monad each (n.% 100) - random.nat)) + (at random.monad each (n.% 100) + random.nat)) (def: .public test Test @@ -36,7 +36,7 @@ ($equivalence.spec /.equivalence (random.set n.hash size random.nat))) (_.for [/.hash] (|> random.nat - (# random.monad each (|>> list (/.of_list n.hash))) + (at random.monad each (|>> list (/.of_list n.hash))) ($hash.spec /.hash))) (_.for [/.monoid] ($monoid.spec /.equivalence (/.monoid n.hash) (random.set n.hash size random.nat))) @@ -52,14 +52,14 @@ (_.coverage [/.empty] (/.empty? (/.empty n.hash))) (do ! - [hash (# ! each (function (_ constant) - (is (Hash Nat) - (implementation - (def: equivalence n.equivalence) - - (def: (hash _) - constant)))) - random.nat)] + [hash (at ! each (function (_ constant) + (is (Hash Nat) + (implementation + (def: equivalence n.equivalence) + + (def: (hash _) + constant)))) + random.nat)] (_.coverage [/.member_hash] (same? hash (/.member_hash (/.empty hash))))) (_.coverage [/.size] diff --git a/stdlib/source/test/lux/data/collection/set/multi.lux b/stdlib/source/test/lux/data/collection/set/multi.lux index 555d7e210..8e68d0a63 100644 --- a/stdlib/source/test/lux/data/collection/set/multi.lux +++ b/stdlib/source/test/lux/data/collection/set/multi.lux @@ -23,7 +23,7 @@ (def: count (Random Nat) - (# random.monad each (|>> (n.% 10) ++) random.nat)) + (at random.monad each (|>> (n.% 10) ++) random.nat)) (def: .public (random size hash count element) (All (_ a) (-> Nat (Hash a) (Random Nat) (Random a) (Random (/.Set a)))) @@ -39,21 +39,21 @@ (def: signature Test (do [! random.monad] - [diversity (# ! each (n.% 10) random.nat)] + [diversity (at ! each (n.% 10) random.nat)] (all _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence (..random diversity n.hash ..count random.nat))) (_.for [/.hash] (|> random.nat - (# random.monad each (function (_ single) - (/.has 1 single (/.empty n.hash)))) + (at random.monad each (function (_ single) + (/.has 1 single (/.empty n.hash)))) ($hash.spec /.hash))) ))) (def: composition Test (do [! random.monad] - [diversity (# ! each (n.% 10) random.nat) + [diversity (at ! each (n.% 10) random.nat) sample (..random diversity n.hash ..count random.nat) another (..random diversity n.hash ..count random.nat)] (`` (all _.and @@ -113,19 +113,19 @@ (<| (_.covering /._) (_.for [/.Set]) (do [! random.monad] - [diversity (# ! each (n.% 10) random.nat) + [diversity (at ! each (n.% 10) random.nat) sample (..random diversity n.hash ..count random.nat) non_member (random.only (predicate.complement (set.member? (/.support sample))) random.nat) addition_count ..count - partial_removal_count (# ! each (n.% addition_count) random.nat) + partial_removal_count (at ! each (n.% addition_count) random.nat) another (..random diversity n.hash ..count random.nat)] (all _.and (_.coverage [/.list /.of_list] (|> sample /.list (/.of_list n.hash) - (# /.equivalence = sample))) + (at /.equivalence = sample))) (_.coverage [/.size] (n.= (list.size (/.list sample)) (/.size sample))) @@ -159,7 +159,7 @@ (let [null_scenario! (|> sample (/.has 0 non_member) - (# /.equivalence = sample)) + (at /.equivalence = sample)) normal_scenario! (let [sample+ (/.has addition_count non_member sample)] @@ -170,12 +170,12 @@ normal_scenario!))) (_.coverage [/.lacks] (let [null_scenario! - (# /.equivalence = - (|> sample - (/.has addition_count non_member)) - (|> sample - (/.has addition_count non_member) - (/.lacks 0 non_member))) + (at /.equivalence = + (|> sample + (/.has addition_count non_member)) + (|> sample + (/.has addition_count non_member) + (/.lacks 0 non_member))) partial_scenario! (let [sample* (|> sample @@ -190,7 +190,7 @@ (|> sample (/.has addition_count non_member) (/.lacks addition_count non_member) - (# /.equivalence = sample))] + (at /.equivalence = sample))] (and null_scenario! partial_scenario! total_scenario!))) @@ -202,12 +202,12 @@ (let [unary (|> sample /.support /.of_set)] (and (/.sub? sample unary) (or (not (/.sub? unary sample)) - (# /.equivalence = sample unary))))) + (at /.equivalence = sample unary))))) (_.coverage [/.super?] (let [unary (|> sample /.support /.of_set)] (and (/.super? unary sample) (or (not (/.super? sample unary)) - (# /.equivalence = sample unary))))) + (at /.equivalence = sample unary))))) (_.coverage [/.difference] (let [|sample| (/.support sample) |another| (/.support another) diff --git a/stdlib/source/test/lux/data/collection/set/ordered.lux b/stdlib/source/test/lux/data/collection/set/ordered.lux index 64a1dc4bb..d35037fd9 100644 --- a/stdlib/source/test/lux/data/collection/set/ordered.lux +++ b/stdlib/source/test/lux/data/collection/set/ordered.lux @@ -21,7 +21,7 @@ (def: size (random.Random Nat) - (# random.monad each (n.% 100) random.nat)) + (at random.monad each (n.% 100) random.nat)) (def: .public (random size order gen_value) (All (_ a) (-> Nat (Order a) (Random a) (Random (Set a)))) @@ -47,7 +47,7 @@ non_memberL (random.only (|>> (//.member? usetL) not) random.nat) .let [listL (//.list usetL)] - listR (|> (random.set n.hash sizeR random.nat) (# ! each //.list)) + listR (|> (random.set n.hash sizeR random.nat) (at ! each //.list)) .let [(open "/#[0]") /.equivalence setL (/.of_list n.order listL) setR (/.of_list n.order listR) @@ -64,9 +64,9 @@ (_.coverage [/.empty] (/.empty? (/.empty n.order))) (_.coverage [/.list] - (# (list.equivalence n.equivalence) = - (/.list (/.of_list n.order listL)) - (list.sorted (# n.order <) listL))) + (at (list.equivalence n.equivalence) = + (/.list (/.of_list n.order listL)) + (list.sorted (at n.order <) listL))) (_.coverage [/.of_list] (|> setL /.list (/.of_list n.order) @@ -101,7 +101,7 @@ (|> setL (/.has non_memberL) (/.lacks non_memberL) - (# /.equivalence = setL))) + (at /.equivalence = setL))) (_.coverage [/.sub?] (let [self! (/.sub? setL setL) @@ -126,23 +126,23 @@ (~~ (template [<coverage> <relation> <empty?>] [(_.coverage [<coverage>] (let [self! - (# /.equivalence = - setL - (<coverage> setL setL)) + (at /.equivalence = + setL + (<coverage> setL setL)) super! (and (<relation> (<coverage> setL setR) setL) (<relation> (<coverage> setL setR) setR)) empty! - (# /.equivalence = - (if <empty?> empty setL) - (<coverage> setL empty)) + (at /.equivalence = + (if <empty?> empty setL) + (<coverage> setL empty)) idempotence! - (# /.equivalence = - (<coverage> setL (<coverage> setL setR)) - (<coverage> setR (<coverage> setL setR)))] + (at /.equivalence = + (<coverage> setL (<coverage> setL setR)) + (<coverage> setR (<coverage> setL setR)))] (and self! super! empty! @@ -155,21 +155,21 @@ (let [self! (|> setL (/.difference setL) - (# /.equivalence = empty)) + (at /.equivalence = empty)) empty! (|> setL (/.difference empty) - (# /.equivalence = setL)) + (at /.equivalence = setL)) difference! (not (list.any? (/.member? (/.difference setL setR)) (/.list setL))) idempotence! - (# /.equivalence = - (/.difference setL setR) - (/.difference setL (/.difference setL setR)))] + (at /.equivalence = + (/.difference setL setR) + (/.difference setL (/.difference setL setR)))] (and self! empty! difference! diff --git a/stdlib/source/test/lux/data/collection/stack.lux b/stdlib/source/test/lux/data/collection/stack.lux index 337b7de4e..3f600a958 100644 --- a/stdlib/source/test/lux/data/collection/stack.lux +++ b/stdlib/source/test/lux/data/collection/stack.lux @@ -27,7 +27,7 @@ (<| (_.covering /._) (_.for [/.Stack]) (do random.monad - [size (# random.monad each (n.% 100) random.nat) + [size (at random.monad each (n.% 100) random.nat) sample (random.stack size random.nat) expected_top random.nat] (all _.and @@ -56,9 +56,9 @@ (/.empty? sample) {.#Some [top remaining]} - (# (/.equivalence n.equivalence) = - sample - (/.top top remaining)))) + (at (/.equivalence n.equivalence) = + sample + (/.top top remaining)))) (_.coverage [/.top] (case (/.next (/.top expected_top sample)) {.#Some [actual_top actual_sample]} diff --git a/stdlib/source/test/lux/data/collection/stream.lux b/stdlib/source/test/lux/data/collection/stream.lux index ee293cfa8..174cb9041 100644 --- a/stdlib/source/test/lux/data/collection/stream.lux +++ b/stdlib/source/test/lux/data/collection/stream.lux @@ -25,9 +25,9 @@ (All (_ a) (-> (Equivalence a) (Equivalence (/.Stream a)))) (def: (= reference subject) - (# (list.equivalence super) = - (/.first 100 reference) - (/.first 100 subject)))) + (at (list.equivalence super) = + (/.first 100 reference) + (/.first 100 subject)))) (def: (iterations step) (All (_ a) @@ -45,9 +45,9 @@ (let [(open "list#[0]") (list.equivalence n.equivalence)]) (do [! random.monad] [repeated random.nat - index (# ! each (n.% 100) random.nat) - size (# ! each (|>> (n.% 10) ++) random.nat) - offset (# ! each (n.% 100) random.nat) + index (at ! each (n.% 100) random.nat) + size (at ! each (|>> (n.% 10) ++) random.nat) + offset (at ! each (n.% 100) random.nat) cycle_start random.nat cycle_next (random.list size random.nat)] (all _.and diff --git a/stdlib/source/test/lux/data/collection/tree.lux b/stdlib/source/test/lux/data/collection/tree.lux index 945c1c6b8..7898b3035 100644 --- a/stdlib/source/test/lux/data/collection/tree.lux +++ b/stdlib/source/test/lux/data/collection/tree.lux @@ -23,7 +23,7 @@ (All (_ a) (-> (Random a) (Random [Nat (Tree a)]))) (do [! random.monad] [value gen_value - num_children (# ! each (n.% 2) random.nat) + num_children (at ! each (n.% 2) random.nat) children (random.list num_children (tree gen_value))] (in [(|> children (list#each product.left) @@ -38,7 +38,7 @@ (all _.and (_.for [/.equivalence] (|> (..tree random.nat) - (# random.monad each product.right) + (at random.monad each product.right) ($equivalence.spec (/.equivalence n.equivalence)))) (_.for [/.mix] ($mix.spec /.leaf /.equivalence /.mix)) @@ -53,17 +53,17 @@ (do random.monad [expected random.nat] (_.coverage [/.leaf] - (# (list.equivalence n.equivalence) = - (list expected) - (/.flat (/.leaf expected))))) + (at (list.equivalence n.equivalence) = + (list expected) + (/.flat (/.leaf expected))))) (do [! random.monad] [value random.nat - num_children (# ! each (n.% 3) random.nat) + num_children (at ! each (n.% 3) random.nat) children (random.list num_children random.nat)] (_.coverage [/.branch] - (# (list.equivalence n.equivalence) = - (partial_list value children) - (/.flat (/.branch value (list#each /.leaf children)))))) + (at (list.equivalence n.equivalence) = + (partial_list value children) + (/.flat (/.branch value (list#each /.leaf children)))))) (do random.monad [expected/0 random.nat expected/1 random.nat @@ -72,20 +72,20 @@ expected/4 random.nat expected/5 random.nat] (_.coverage [/.tree] - (and (# (list.equivalence n.equivalence) = - (list expected/0) - (/.flat (/.tree expected/0))) - (# (list.equivalence n.equivalence) = - (list expected/0 expected/1 expected/2) - (/.flat (/.tree expected/0 - {expected/1 {} - expected/2 {}}))) - (# (list.equivalence n.equivalence) = - (list expected/0 expected/1 expected/2 - expected/3 expected/4 expected/5) - (/.flat (/.tree expected/0 - {expected/1 {} - expected/2 {expected/3 {} - expected/4 {expected/5 {}}}}))) + (and (at (list.equivalence n.equivalence) = + (list expected/0) + (/.flat (/.tree expected/0))) + (at (list.equivalence n.equivalence) = + (list expected/0 expected/1 expected/2) + (/.flat (/.tree expected/0 + {expected/1 {} + expected/2 {}}))) + (at (list.equivalence n.equivalence) = + (list expected/0 expected/1 expected/2 + expected/3 expected/4 expected/5) + (/.flat (/.tree expected/0 + {expected/1 {} + expected/2 {expected/3 {} + expected/4 {expected/5 {}}}}))) ))) ))) diff --git a/stdlib/source/test/lux/data/collection/tree/finger.lux b/stdlib/source/test/lux/data/collection/tree/finger.lux index a9e3d68e6..a2a57629a 100644 --- a/stdlib/source/test/lux/data/collection/tree/finger.lux +++ b/stdlib/source/test/lux/data/collection/tree/finger.lux @@ -44,21 +44,21 @@ true)) (_.coverage [/.tag] (and (text#= tag_left - (/.tag (# ..builder leaf tag_left expected_left))) + (/.tag (at ..builder leaf tag_left expected_left))) (text#= (text#composite tag_left tag_right) - (/.tag (# ..builder branch - (# ..builder leaf tag_left expected_left) - (# ..builder leaf tag_right expected_right)))))) + (/.tag (at ..builder branch + (at ..builder leaf tag_left expected_left) + (at ..builder leaf tag_right expected_right)))))) (_.coverage [/.root] - (and (case (/.root (# ..builder leaf tag_left expected_left)) + (and (case (/.root (at ..builder leaf tag_left expected_left)) {.#Left actual} (n.= expected_left actual) {.#Right _} false) - (case (/.root (# ..builder branch - (# ..builder leaf tag_left expected_left) - (# ..builder leaf tag_right expected_right))) + (case (/.root (at ..builder branch + (at ..builder leaf tag_left expected_left) + (at ..builder leaf tag_right expected_right))) {.#Left _} false @@ -73,11 +73,11 @@ false)))) (_.coverage [/.value] (and (n.= expected_left - (/.value (# ..builder leaf tag_left expected_left))) + (/.value (at ..builder leaf tag_left expected_left))) (n.= expected_left - (/.value (# ..builder branch - (# ..builder leaf tag_left expected_left) - (# ..builder leaf tag_right expected_right)))))) + (/.value (at ..builder branch + (at ..builder leaf tag_left expected_left) + (at ..builder leaf tag_right expected_right)))))) (do random.monad [.let [tags_equivalence (list.equivalence text.equivalence) values_equivalence (list.equivalence n.equivalence)] @@ -87,37 +87,37 @@ values/T (random.list 5 random.nat)] (_.coverage [/.tags /.values] (let [tree (list#mix (function (_ [tag value] tree) - (# builder branch tree (# builder leaf tag value))) - (# builder leaf tags/H values/H) + (at builder branch tree (at builder leaf tag value))) + (at builder leaf tags/H values/H) (list.zipped_2 tags/T values/T))] - (and (# tags_equivalence = (partial_list tags/H tags/T) (/.tags tree)) - (# values_equivalence = (partial_list values/H values/T) (/.values tree)))))) + (and (at tags_equivalence = (partial_list tags/H tags/T) (/.tags tree)) + (at values_equivalence = (partial_list values/H values/T) (/.values tree)))))) (_.coverage [/.one] (let [can_find_correct_one! - (|> (# ..builder leaf tag_left expected_left) + (|> (at ..builder leaf tag_left expected_left) (/.one (text.contains? tag_left)) (maybe#each (n.= expected_left)) (maybe.else false)) cannot_find_incorrect_one! - (|> (# ..builder leaf tag_right expected_right) + (|> (at ..builder leaf tag_right expected_right) (/.one (text.contains? tag_left)) (maybe#each (n.= expected_left)) (maybe.else false) not) can_find_left! - (|> (# ..builder branch - (# ..builder leaf tag_left expected_left) - (# ..builder leaf tag_right expected_right)) + (|> (at ..builder branch + (at ..builder leaf tag_left expected_left) + (at ..builder leaf tag_right expected_right)) (/.one (text.contains? tag_left)) (maybe#each (n.= expected_left)) (maybe.else false)) can_find_right! - (|> (# ..builder branch - (# ..builder leaf tag_left expected_left) - (# ..builder leaf tag_right expected_right)) + (|> (at ..builder branch + (at ..builder leaf tag_left expected_left) + (at ..builder leaf tag_right expected_right)) (/.one (text.contains? tag_right)) (maybe#each (n.= expected_right)) (maybe.else false))] @@ -128,23 +128,23 @@ (_.coverage [/.exists?] (let [can_find_correct_one! (/.exists? (text.contains? tag_left) - (# ..builder leaf tag_left expected_left)) + (at ..builder leaf tag_left expected_left)) cannot_find_incorrect_one! (not (/.exists? (text.contains? tag_left) - (# ..builder leaf tag_right expected_right))) + (at ..builder leaf tag_right expected_right))) can_find_left! (/.exists? (text.contains? tag_left) - (# ..builder branch - (# ..builder leaf tag_left expected_left) - (# ..builder leaf tag_right expected_right))) + (at ..builder branch + (at ..builder leaf tag_left expected_left) + (at ..builder leaf tag_right expected_right))) can_find_right! (/.exists? (text.contains? tag_right) - (# ..builder branch - (# ..builder leaf tag_left expected_left) - (# ..builder leaf tag_right expected_right)))] + (at ..builder branch + (at ..builder leaf tag_left expected_left) + (at ..builder leaf tag_right expected_right)))] (and can_find_correct_one! cannot_find_incorrect_one! can_find_left! diff --git a/stdlib/source/test/lux/data/collection/tree/zipper.lux b/stdlib/source/test/lux/data/collection/tree/zipper.lux index 4a2bbac26..eb4a1c553 100644 --- a/stdlib/source/test/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/test/lux/data/collection/tree/zipper.lux @@ -163,7 +163,7 @@ (open "list#[0]") (list.equivalence n.equivalence)]] (all _.and (_.for [/.equivalence] - ($equivalence.spec (/.equivalence n.equivalence) (# ! each (|>> product.right /.zipper) (//.tree random.nat)))) + ($equivalence.spec (/.equivalence n.equivalence) (at ! each (|>> product.right /.zipper) (//.tree random.nat)))) (_.for [/.functor] ($functor.spec (|>> tree.leaf /.zipper) /.equivalence /.functor)) (_.for [/.comonad] diff --git a/stdlib/source/test/lux/data/color.lux b/stdlib/source/test/lux/data/color.lux index 3c70fd002..9f2534c83 100644 --- a/stdlib/source/test/lux/data/color.lux +++ b/stdlib/source/test/lux/data/color.lux @@ -24,7 +24,7 @@ (def: .public random (Random /.Color) (|> (all random.and random.nat random.nat random.nat) - (# random.monad each /.of_rgb))) + (at random.monad each /.of_rgb))) (def: scale (-> Nat Frac) @@ -71,7 +71,7 @@ (all _.and (_.coverage [/.RGB /.rgb /.of_rgb] (|> expected /.rgb /.of_rgb - (# /.equivalence = expected))) + (at /.equivalence = expected))) (_.coverage [/.HSL /.hsl /.of_hsl] (|> expected /.hsl /.of_hsl (distance/3 expected) @@ -129,16 +129,16 @@ Test (_.for [/.Spread /.Palette] (do [! random.monad] - [eH (# ! each (|>> f.abs (f.% +0.9) (f.+ +0.05)) - random.safe_frac) + [eH (at ! each (|>> f.abs (f.% +0.9) (f.+ +0.05)) + random.safe_frac) .let [eS +0.5] - variations (# ! each (|>> (n.% 3) (n.+ 2)) random.nat) + variations (at ! each (|>> (n.% 3) (n.+ 2)) random.nat) .let [max_spread (f./ (|> variations ++ .int int.frac) +1.0) min_spread (f./ +2.0 max_spread) spread_space (f.- min_spread max_spread)] - spread (# ! each (|>> f.abs (f.% spread_space) (f.+ min_spread)) - random.safe_frac)] + spread (at ! each (|>> f.abs (f.% spread_space) (f.+ min_spread)) + random.safe_frac)] (`` (all _.and (~~ (template [<brightness> <palette>] [(_.coverage [<palette>] @@ -146,7 +146,7 @@ expected (/.of_hsb [eH eS eB]) palette (<palette> spread variations expected)] (and (n.= variations (list.size palette)) - (not (list.any? (# /.equivalence = expected) palette)))))] + (not (list.any? (at /.equivalence = expected) palette)))))] [+1.0 /.analogous] [+0.5 /.monochromatic] )) @@ -154,9 +154,9 @@ [(_.coverage [<palette>] (let [expected (/.of_hsb [eH eS +0.5]) [c0 c1 c2] (<palette> expected)] - (and (# /.equivalence = expected c0) - (not (# /.equivalence = expected c1)) - (not (# /.equivalence = expected c2)))))] + (and (at /.equivalence = expected c0) + (not (at /.equivalence = expected c1)) + (not (at /.equivalence = expected c2)))))] [/.triad] [/.clash] @@ -165,10 +165,10 @@ [(_.coverage [<palette>] (let [expected (/.of_hsb [eH eS +0.5]) [c0 c1 c2 c3] (<palette> expected)] - (and (# /.equivalence = expected c0) - (not (# /.equivalence = expected c1)) - (not (# /.equivalence = expected c2)) - (not (# /.equivalence = expected c3)))))] + (and (at /.equivalence = expected c0) + (not (at /.equivalence = expected c1)) + (not (at /.equivalence = expected c2)) + (not (at /.equivalence = expected c3)))))] [/.square] [/.tetradic])) @@ -197,8 +197,8 @@ (and (not (/#= expected ~expected)) (/#= expected (/.complement ~expected))))) (_.coverage [/.black /.white] - (and (# /.equivalence = /.white (/.complement /.black)) - (# /.equivalence = /.black (/.complement /.white)))) + (and (at /.equivalence = /.white (/.complement /.black)) + (at /.equivalence = /.black (/.complement /.white)))) ..transformation ..palette (_.for [/.Alpha /.Pigment] diff --git a/stdlib/source/test/lux/data/color/named.lux b/stdlib/source/test/lux/data/color/named.lux index 346bc74ed..ce902b16b 100644 --- a/stdlib/source/test/lux/data/color/named.lux +++ b/stdlib/source/test/lux/data/color/named.lux @@ -233,8 +233,8 @@ <colors>)) (_.coverage [/.aqua] - (# //.equivalence = /.cyan /.aqua)) + (at //.equivalence = /.cyan /.aqua)) (_.coverage [/.fuchsia] - (# //.equivalence = /.magenta /.fuchsia)) + (at //.equivalence = /.magenta /.fuchsia)) )))) ) diff --git a/stdlib/source/test/lux/data/format/binary.lux b/stdlib/source/test/lux/data/format/binary.lux index 8c69f0c64..4fa969c57 100644 --- a/stdlib/source/test/lux/data/format/binary.lux +++ b/stdlib/source/test/lux/data/format/binary.lux @@ -23,7 +23,7 @@ (def: random (Random /.Specification) - (# random.monad each /.nat random.nat)) + (at random.monad each /.nat random.nat)) (def: .public test Test diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index 1fb8f94fa..c0d9f7537 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -36,9 +36,9 @@ (random.rec (function (_ again) (do [! random.monad] - [size (# ! each (n.% 2) random.nat)] + [size (at ! each (n.% 2) random.nat)] (all random.or - (# ! in []) + (at ! in []) random.bit random.safe_frac (random.unicode size) @@ -74,17 +74,17 @@ (do random.monad [sample ..random] (_.coverage [/.Null /.null?] - (# bit.equivalence = - (/.null? sample) - (case sample - {/.#Null} true - _ false)))) + (at bit.equivalence = + (/.null? sample) + (case sample + {/.#Null} true + _ false)))) (do random.monad [expected ..random] (_.coverage [/.format] (|> expected /.format - (# /.codec decoded) + (at /.codec decoded) (try#each (/#= expected)) (try.else false)))) (do random.monad @@ -97,9 +97,9 @@ (_.coverage [/.object /.fields] (case (/.fields object) {try.#Success actual} - (# (list.equivalence text.equivalence) = - (list#each product.left expected) - actual) + (at (list.equivalence text.equivalence) = + (list#each product.left expected) + actual) {try.#Failure error} false)) @@ -112,7 +112,7 @@ )) (do random.monad [key (random.alphabetic 1) - unknown (random.only (|>> (# text.equivalence = key) not) + unknown (random.only (|>> (at text.equivalence = key) not) (random.alphabetic 1)) expected random.safe_frac] (_.coverage [/.has] @@ -141,7 +141,7 @@ (_.coverage [<type> <field>] (|> (/.object (list [key {<tag> value}])) (<field> key) - (try#each (# <equivalence> = value)) + (try#each (at <equivalence> = value)) (try.else false))))] [/.Boolean /.boolean_field /.#Boolean random.bit bit.equivalence] diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index c30fb086b..4681f3822 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -108,8 +108,8 @@ Test (_.for [/.Small] (do [! random.monad] - [expected (|> random.nat (# ! each (n.% /.small_limit))) - invalid (|> random.nat (# ! each (n.max /.small_limit)))] + [expected (|> random.nat (at ! each (n.% /.small_limit))) + invalid (|> random.nat (at ! each (n.max /.small_limit)))] (`` (all _.and (_.coverage [/.small /.from_small] (case (/.small expected) @@ -132,8 +132,8 @@ Test (_.for [/.Big] (do [! random.monad] - [expected (|> random.nat (# ! each (n.% /.big_limit))) - invalid (|> random.nat (# ! each (n.max /.big_limit)))] + [expected (|> random.nat (at ! each (n.% /.big_limit))) + invalid (|> random.nat (at ! each (n.max /.big_limit)))] (`` (all _.and (_.coverage [/.big /.from_big] (case (/.big expected) @@ -158,14 +158,14 @@ Test (do [! random.monad] [expected_path (random.lower_case (-- /.path_size)) - expected_moment (# ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis) - random.nat) + expected_moment (at ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis) + random.nat) chunk (random.lower_case chunk_size) - chunks (# ! each (n.% 100) random.nat) + chunks (at ! each (n.% 100) random.nat) .let [content (|> chunk (list.repeated chunks) text.together - (# utf8.codec encoded))]] + (at utf8.codec encoded))]] (`` (all _.and (~~ (template [<type> <tag>] [(_.coverage [<type>] @@ -402,7 +402,7 @@ (|> sequence.empty (format.result /.writer) (<b>.result /.parser) - (# try.monad each sequence.empty?) + (at try.monad each sequence.empty?) (try.else false))) (_.coverage [/.invalid_end_of_archive] (let [dump (format.result /.writer sequence.empty)] diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux index dc95a00fe..fffae6ba2 100644 --- a/stdlib/source/test/lux/data/format/xml.lux +++ b/stdlib/source/test/lux/data/format/xml.lux @@ -38,7 +38,7 @@ (def: char (Random Nat) (do [! random.monad] - [idx (|> random.nat (# ! each (n.% (text.size char_range))))] + [idx (|> random.nat (at ! each (n.% (text.size char_range))))] (in (maybe.trusted (text.char idx char_range))))) (def: (size bottom top) diff --git a/stdlib/source/test/lux/data/product.lux b/stdlib/source/test/lux/data/product.lux index 61e7f251e..1cde90959 100644 --- a/stdlib/source/test/lux/data/product.lux +++ b/stdlib/source/test/lux/data/product.lux @@ -32,9 +32,9 @@ right random.nat] (_.coverage [/.hash] (let [hash (/.hash i.hash n.hash)] - (n.= (n.+ (# i.hash hash left) - (# n.hash hash right)) - (# hash hash [left right]))))) + (n.= (n.+ (at i.hash hash left) + (at n.hash hash right)) + (at hash hash [left right]))))) (<| (_.coverage [/.left]) (n.= expected (/.left [expected dummy]))) diff --git a/stdlib/source/test/lux/data/sum.lux b/stdlib/source/test/lux/data/sum.lux index 82adfdc49..8543ddba6 100644 --- a/stdlib/source/test/lux/data/sum.lux +++ b/stdlib/source/test/lux/data/sum.lux @@ -67,27 +67,27 @@ (/.then (n.+ shift) (n.- shift)) (pipe.case {0 #1 actual} (n.= (n.- shift expected) actual) _ false)))) (do ! - [size (# ! each (n.% 5) random.nat) + [size (at ! each (n.% 5) random.nat) expected (random.list size random.nat)] (all _.and (_.coverage [/.lefts] (let [actual (is (List (Or Nat Nat)) (list#each /.left expected))] - (and (# (list.equivalence n.equivalence) = - expected - (/.lefts actual)) - (# (list.equivalence n.equivalence) = - (list) - (/.rights actual))))) + (and (at (list.equivalence n.equivalence) = + expected + (/.lefts actual)) + (at (list.equivalence n.equivalence) = + (list) + (/.rights actual))))) (_.coverage [/.rights] (let [actual (is (List (Or Nat Nat)) (list#each /.right expected))] - (and (# (list.equivalence n.equivalence) = - expected - (/.rights actual)) - (# (list.equivalence n.equivalence) = - (list) - (/.lefts actual))))) + (and (at (list.equivalence n.equivalence) = + expected + (/.rights actual)) + (at (list.equivalence n.equivalence) = + (list) + (/.lefts actual))))) (_.coverage [/.partition] (let [[lefts rights] (|> expected (list#each (function (_ value) @@ -96,11 +96,11 @@ (/.right value)))) (is (List (Or Nat Nat))) /.partition)] - (and (# (list.equivalence n.equivalence) = - (list.only n.even? expected) - lefts) - (# (list.equivalence n.equivalence) = - (list.only (|>> n.even? not) expected) - rights)))) + (and (at (list.equivalence n.equivalence) = + (list.only n.even? expected) + lefts) + (at (list.equivalence n.equivalence) = + (list.only (|>> n.even? not) expected) + rights)))) )) )))) diff --git a/stdlib/source/test/lux/data/text.lux b/stdlib/source/test/lux/data/text.lux index 2a3a3f919..3e1889c04 100644 --- a/stdlib/source/test/lux/data/text.lux +++ b/stdlib/source/test/lux/data/text.lux @@ -34,12 +34,12 @@ (def: bounded_size (random.Random Nat) (|> random.nat - (# random.monad each (|>> (n.% 20) (n.+ 1))))) + (at random.monad each (|>> (n.% 20) (n.+ 1))))) (def: size Test (do [! random.monad] - [size (# ! each (n.% 10) random.nat) + [size (at ! each (n.% 10) random.nat) sample (random.unicode size)] (all _.and (_.coverage [/.size] @@ -52,11 +52,11 @@ Test (do [! random.monad] [inner (random.unicode 1) - outer (random.only (|>> (# /.equivalence = inner) not) + outer (random.only (|>> (at /.equivalence = inner) not) (random.unicode 1)) left (random.unicode 1) right (random.unicode 1) - .let [full (# /.monoid composite inner outer) + .let [full (at /.monoid composite inner outer) fake_index (-- 0)]] (`` (all _.and (~~ (template [<affix> <predicate>] @@ -81,23 +81,23 @@ Test (do [! random.monad] [inner (random.unicode 1) - outer (random.only (|>> (# /.equivalence = inner) not) + outer (random.only (|>> (at /.equivalence = inner) not) (random.unicode 1)) .let [fake_index (-- 0)]] (all _.and (_.coverage [/.contains?] - (let [full (# /.monoid composite inner outer)] + (let [full (at /.monoid composite inner outer)] (and (/.contains? inner full) (/.contains? outer full)))) (_.coverage [/.index] - (and (|> (/.index inner (# /.monoid composite inner outer)) + (and (|> (/.index inner (at /.monoid composite inner outer)) (maybe.else fake_index) (n.= 0)) - (|> (/.index outer (# /.monoid composite inner outer)) + (|> (/.index outer (at /.monoid composite inner outer)) (maybe.else fake_index) (n.= 1)))) (_.coverage [/.index_since] - (let [full (# /.monoid composite inner outer)] + (let [full (at /.monoid composite inner outer)] (and (|> (/.index_since 0 inner full) (maybe.else fake_index) (n.= 0)) @@ -115,7 +115,7 @@ (maybe.else fake_index) (n.= fake_index))))) (_.coverage [/.last_index] - (let [full (all (# /.monoid composite) outer inner outer)] + (let [full (all (at /.monoid composite) outer inner outer)] (and (|> (/.last_index inner full) (maybe.else fake_index) (n.= 1)) @@ -131,7 +131,7 @@ (`` (all _.and (~~ (template [<short> <long>] [(_.coverage [<short> <long>] - (# /.equivalence = <short> <long>))] + (at /.equivalence = <short> <long>))] [/.\0 /.null] [/.\a /.alarm] @@ -143,13 +143,13 @@ [/.\r /.carriage_return] [/.\'' /.double_quote])) (_.coverage [/.line_feed] - (# /.equivalence = /.new_line /.line_feed)) + (at /.equivalence = /.new_line /.line_feed)) ))) (do [! random.monad] - [size (# ! each (|>> (n.% 10) ++) random.nat) + [size (at ! each (|>> (n.% 10) ++) random.nat) characters (random.set /.hash size (random.alphabetic 1)) .let [sample (|> characters set.list /.together)] - expected (# ! each (n.% size) random.nat)] + expected (at ! each (n.% size) random.nat)] (_.coverage [/.char] (case (/.char expected sample) {.#Some char} @@ -178,13 +178,13 @@ (def: manipulation Test (do [! random.monad] - [size (# ! each (|>> (n.% 10) (n.+ 2)) random.nat) + [size (at ! each (|>> (n.% 10) (n.+ 2)) random.nat) characters (random.set /.hash size (random.alphabetic 1)) separator (random.only (|>> (set.member? characters) not) (random.alphabetic 1)) .let [with_no_separator (|> characters set.list /.together)] static (random.alphabetic 1) - .let [dynamic (random.only (|>> (# /.equivalence = static) not) + .let [dynamic (random.only (|>> (at /.equivalence = static) not) (random.alphabetic 1))] pre dynamic post dynamic @@ -200,19 +200,19 @@ (/.interposed separator) (/.all_split_by separator) (set.of_list /.hash) - (# set.equivalence = characters)) - (# /.equivalence = - (/.together (set.list characters)) - (/.interposed "" (set.list characters))))) + (at set.equivalence = characters)) + (at /.equivalence = + (/.together (set.list characters)) + (/.interposed "" (set.list characters))))) (_.coverage [/.replaced_once] - (# /.equivalence = - (# /.monoid composite post static) - (/.replaced_once pre post (# /.monoid composite pre static)))) + (at /.equivalence = + (at /.monoid composite post static) + (/.replaced_once pre post (at /.monoid composite pre static)))) (_.coverage [/.split_by] - (case (/.split_by static (all (# /.monoid composite) pre static post)) + (case (/.split_by static (all (at /.monoid composite) pre static post)) {.#Some [left right]} - (and (# /.equivalence = pre left) - (# /.equivalence = post right)) + (and (at /.equivalence = pre left) + (at /.equivalence = post right)) {.#None} false)) @@ -220,19 +220,19 @@ (let [effectiveness! (|> upper /.lower_cased - (# /.equivalence = upper) + (at /.equivalence = upper) not) idempotence! (|> lower /.lower_cased - (# /.equivalence = lower)) + (at /.equivalence = lower)) inverse! (|> lower /.upper_cased /.lower_cased - (# /.equivalence = lower))] + (at /.equivalence = lower))] (and effectiveness! idempotence! inverse!))) @@ -240,19 +240,19 @@ (let [effectiveness! (|> lower /.upper_cased - (# /.equivalence = lower) + (at /.equivalence = lower) not) idempotence! (|> upper /.upper_cased - (# /.equivalence = upper)) + (at /.equivalence = upper)) inverse! (|> upper /.lower_cased /.upper_cased - (# /.equivalence = upper))] + (at /.equivalence = upper))] (and effectiveness! idempotence! inverse!))) @@ -318,7 +318,7 @@ .let [... The wider unicode charset includes control characters that ... can make text replacement work improperly. ... Because of that, I restrict the charset. - normal_char_gen (|> random.nat (# ! each (|>> (n.% 128) (n.max 1))))] + normal_char_gen (|> random.nat (at ! each (|>> (n.% 128) (n.max 1))))] sep1 (random.text normal_char_gen 1) sep2 (random.text normal_char_gen 1) .let [part_gen (|> (random.text normal_char_gen sizeP) diff --git a/stdlib/source/test/lux/data/text/buffer.lux b/stdlib/source/test/lux/data/text/buffer.lux index b6d868fbd..eb980389d 100644 --- a/stdlib/source/test/lux/data/text/buffer.lux +++ b/stdlib/source/test/lux/data/text/buffer.lux @@ -17,7 +17,7 @@ (def: part (Random Text) (do [! random.monad] - [size (# ! each (|>> (n.% 10) ++) random.nat)] + [size (at ! each (|>> (n.% 10) ++) random.nat)] (random.alphabetic size))) (def: .public test diff --git a/stdlib/source/test/lux/data/text/encoding.lux b/stdlib/source/test/lux/data/text/encoding.lux index d56fd8bdc..4e30d8797 100644 --- a/stdlib/source/test/lux/data/text/encoding.lux +++ b/stdlib/source/test/lux/data/text/encoding.lux @@ -214,7 +214,7 @@ (Random /.Encoding) (let [options (list.size ..all_encodings)] (do [! random.monad] - [choice (# ! each (n.% options) random.nat)] + [choice (at ! each (n.% options) random.nat)] (in (maybe.trusted (list.item choice ..all_encodings)))))) (def: .public test diff --git a/stdlib/source/test/lux/data/text/escape.lux b/stdlib/source/test/lux/data/text/escape.lux index aba3d5948..d1258bf25 100644 --- a/stdlib/source/test/lux/data/text/escape.lux +++ b/stdlib/source/test/lux/data/text/escape.lux @@ -34,9 +34,9 @@ (def: (range max min) (-> Char Char (Random Char)) (let [range (n.- min max)] - (# random.monad each - (|>> (n.% range) (n.+ min)) - random.nat))) + (at random.monad each + (|>> (n.% range) (n.+ min)) + random.nat))) (def: under_range (Random Char) @@ -115,7 +115,7 @@ (text#= expected (/.escaped expected)))))) (do [! random.monad] [dummy (|> (random.char unicode.character) - (# ! each text.of_char))] + (at ! each text.of_char))] (_.coverage [/.dangling_escape] (case (/.un_escaped (format (/.escaped dummy) "\")) {try.#Success _} @@ -126,7 +126,7 @@ (do [! random.monad] [dummy (|> (random.char unicode.character) (random.only (|>> (set.member? ..valid_sigils) not)) - (# ! each text.of_char))] + (at ! each text.of_char))] (_.coverage [/.invalid_escape] (case (/.un_escaped (format "\" dummy)) {try.#Success _} @@ -136,10 +136,10 @@ (exception.match? /.invalid_escape error)))) (do [! random.monad] [too_short (|> (random.char unicode.character) - (# ! each (n.% (hex "1000")))) + (at ! each (n.% (hex "1000")))) code (|> (random.unicode 4) (random.only (function (_ code) - (case (# n.hex decoded code) + (case (at n.hex decoded code) {try.#Failure error} true {try.#Success _} false))))] (_.coverage [/.invalid_unicode_escape] @@ -150,7 +150,7 @@ {try.#Failure error} (exception.match? /.invalid_unicode_escape error))]] - (and (!invalid (# n.hex encoded too_short)) + (and (!invalid (at n.hex encoded too_short)) (!invalid code))))) (_.coverage [/.literal] (with_expansions [<example> (..static_sample)] diff --git a/stdlib/source/test/lux/data/text/format.lux b/stdlib/source/test/lux/data/text/format.lux index 903e13497..13446a8ce 100644 --- a/stdlib/source/test/lux/data/text/format.lux +++ b/stdlib/source/test/lux/data/text/format.lux @@ -77,7 +77,7 @@ [(do random.monad [sample <random>] (_.coverage [<format>] - (text#= (# <codec> encoded sample) + (text#= (at <codec> encoded sample) (<format> sample))))] [/.bit bit.codec random.bit] @@ -178,9 +178,9 @@ [modulus (random.one (|>> modulus.modulus try.maybe) random.int) - sample (# ! each (modular.modular modulus) - random.int)] + sample (at ! each (modular.modular modulus) + random.int)] (_.coverage [/.mod] - (text#= (# (modular.codec modulus) encoded sample) + (text#= (at (modular.codec modulus) encoded sample) (/.mod sample)))) )))) diff --git a/stdlib/source/test/lux/data/text/unicode/block.lux b/stdlib/source/test/lux/data/text/unicode/block.lux index 63ec898c0..00e98bf4d 100644 --- a/stdlib/source/test/lux/data/text/unicode/block.lux +++ b/stdlib/source/test/lux/data/text/unicode/block.lux @@ -25,8 +25,8 @@ (def: .public random (Random /.Block) (do [! random.monad] - [start (# ! each (n.% 1,000,000) random.nat) - additional (# ! each (n.% 1,000,000) random.nat)] + [start (at ! each (n.% 1,000,000) random.nat) + additional (at ! each (n.% 1,000,000) random.nat)] (in (/.block start additional)))) (with_expansions [<blocks> (these [blocks/0 @@ -173,15 +173,15 @@ [.let [top_start (hex "AC00") top_end (hex "D7AF") end_range (n.- top_start top_end)] - start (# ! each (|>> (n.% top_start) ++) random.nat) - end (# ! each (|>> (n.% end_range) (n.+ top_start)) random.nat) + start (at ! each (|>> (n.% top_start) ++) random.nat) + end (at ! each (|>> (n.% end_range) (n.+ top_start)) random.nat) .let [additional (n.- start end) sample (/.block start additional) size (/.size sample)] - inside (# ! each - (|>> (n.% size) - (n.+ (/.start sample))) - random.nat)] + inside (at ! each + (|>> (n.% size) + (n.+ (/.start sample))) + random.nat)] (`` (all _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence ..random)) diff --git a/stdlib/source/test/lux/data/text/unicode/set.lux b/stdlib/source/test/lux/data/text/unicode/set.lux index af36a8463..f2c9808c0 100644 --- a/stdlib/source/test/lux/data/text/unicode/set.lux +++ b/stdlib/source/test/lux/data/text/unicode/set.lux @@ -36,10 +36,10 @@ (_.for [/.Set]) (do [! random.monad] [block //block.random - inside (# ! each - (|>> (n.% (block.size block)) - (n.+ (block.start block))) - random.nat) + inside (at ! each + (|>> (n.% (block.size block)) + (n.+ (block.start block))) + random.nat) left //block.random right //block.random .let [equivalence (product.equivalence n.equivalence diff --git a/stdlib/source/test/lux/documentation.lux b/stdlib/source/test/lux/documentation.lux index 40ad67b42..92248d84c 100644 --- a/stdlib/source/test/lux/documentation.lux +++ b/stdlib/source/test/lux/documentation.lux @@ -30,9 +30,9 @@ false)))]})) (syntax: (description []) - (# meta.monad each - (|>> %.nat code.text list) - meta.seed)) + (at meta.monad each + (|>> %.nat code.text list) + meta.seed)) (template.with_locals [g!default] (with_expansions ['definition_description' (..description) diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux index c8434e1c6..9079d5336 100644 --- a/stdlib/source/test/lux/extension.lux +++ b/stdlib/source/test/lux/extension.lux @@ -96,7 +96,7 @@ (let [! phase.monad] (|> parameters (monad.each ! (phase archive)) - (# ! each (|>> {analysis.#Extension self}))))) + (at ! each (|>> {analysis.#Extension self}))))) (synthesis: (..synthesis self phase archive [pass_through <analysis>.any]) (phase archive pass_through)) @@ -106,32 +106,32 @@ (let [! phase.monad] (|> parameters (monad.each ! (phase archive)) - (# ! each (|>> {analysis.#Extension self}))))) + (at ! each (|>> {analysis.#Extension self}))))) (synthesis: (..generation self phase archive [parameters (<>.some <analysis>.any)]) (let [! phase.monad] (|> parameters (monad.each ! (phase archive)) - (# ! each (|>> {synthesis.#Extension self}))))) + (at ! each (|>> {synthesis.#Extension self}))))) (generation: (..generation self phase archive [pass_through <synthesis>.any]) (phase archive pass_through)) (analysis: (..dummy_generation self phase archive []) - (# phase.monad in {analysis.#Extension self (list)})) + (at phase.monad in {analysis.#Extension self (list)})) (synthesis: (..dummy_generation self phase archive []) - (# phase.monad in {synthesis.#Extension self (list)})) + (at phase.monad in {synthesis.#Extension self (list)})) (generation: (..dummy_generation self phase archive []) - (# phase.monad in - (for @.jvm (jvm.string self) - @.js (js.string self) - @.python (python.unicode self) - @.lua (lua.string self) - @.ruby (ruby.string self) - @.php (php.string self) - @.scheme (scheme.string self)))) + (at phase.monad in + (for @.jvm (jvm.string self) + @.js (js.string self) + @.python (python.unicode self) + @.lua (lua.string self) + @.ruby (ruby.string self) + @.php (php.string self) + @.scheme (scheme.string self)))) ... Directive (directive: (..directive self phase archive [expression <code>.any]) diff --git a/stdlib/source/test/lux/ffi.js.lux b/stdlib/source/test/lux/ffi.js.lux index 6d0946605..166347728 100644 --- a/stdlib/source/test/lux/ffi.js.lux +++ b/stdlib/source/test/lux/ffi.js.lux @@ -49,12 +49,12 @@ Test (do [! random.monad] [boolean random.bit - number (# ! each (|>> (nat.% 100) nat.frac) random.nat) + number (at ! each (|>> (nat.% 100) nat.frac) random.nat) string (random.ascii 5) - function (# ! each (function (_ shift) - (is (-> Nat Nat) - (nat.+ shift))) - random.nat) + function (at ! each (function (_ shift) + (is (-> Nat Nat) + (nat.+ shift))) + random.nat) ... I64s get compiled as JavaScript objects with a specific structure. object random.nat] (<| (_.covering /._) diff --git a/stdlib/source/test/lux/ffi.jvm.lux b/stdlib/source/test/lux/ffi.jvm.lux index 0174a039f..d23e1f326 100644 --- a/stdlib/source/test/lux/ffi.jvm.lux +++ b/stdlib/source/test/lux/ffi.jvm.lux @@ -85,13 +85,13 @@ (def: for_conversions Test (do [! random.monad] - [long (# ! each (|>> /.as_long) random.int) - integer (# ! each (|>> /.as_int) random.int) - byte (# ! each (|>> /.as_byte) random.int) - short (# ! each (|>> /.as_short) random.int) + [long (at ! each (|>> /.as_long) random.int) + integer (at ! each (|>> /.as_int) random.int) + byte (at ! each (|>> /.as_byte) random.int) + short (at ! each (|>> /.as_short) random.int) float (|> random.frac (random.only (|>> f.not_a_number? not)) - (# ! each (|>> /.as_float)))] + (at ! each (|>> /.as_float)))] (`` (all _.and (~~ (template [<sample> <=> <to> <from>] [(_.coverage [<to> <from>] @@ -120,9 +120,9 @@ (def: for_arrays Test (do [! random.monad] - [size (|> random.nat (# ! each (|>> (n.% 100) (n.max 1)))) - idx (|> random.nat (# ! each (n.% size))) - value (# ! each (|>> /.as_long) random.int)] + [size (|> random.nat (at ! each (|>> (n.% 100) (n.max 1)))) + idx (|> random.nat (at ! each (n.% size))) + value (at ! each (|>> /.as_long) random.int)] (all _.and (_.coverage [/.array /.length] (|> size @@ -146,22 +146,22 @@ (def: for_miscellaneous Test (`` (do [! random.monad] - [sample (# ! each (|>> (as java/lang/Object)) - (random.ascii 1)) - boolean (# ! each (|>> /.as_boolean) random.bit) - byte (# ! each (|>> /.as_byte) random.int) - short (# ! each (|>> /.as_short) random.int) - integer (# ! each (|>> /.as_int) random.int) - long (# ! each (|>> /.as_long) random.int) + [sample (at ! each (|>> (as java/lang/Object)) + (random.ascii 1)) + boolean (at ! each (|>> /.as_boolean) random.bit) + byte (at ! each (|>> /.as_byte) random.int) + short (at ! each (|>> /.as_short) random.int) + integer (at ! each (|>> /.as_int) random.int) + long (at ! each (|>> /.as_long) random.int) float (|> random.frac (random.only (|>> f.not_a_number? not)) - (# ! each (|>> /.as_float))) + (at ! each (|>> /.as_float))) double (|> random.frac (random.only (|>> f.not_a_number? not)) - (# ! each (|>> /.as_double))) - character (# ! each (|>> /.as_int /.int_to_char) random.int) - string (# ! each (|>> /.as_string) - (random.ascii 1)) + (at ! each (|>> /.as_double))) + character (at ! each (|>> /.as_int /.int_to_char) random.int) + string (at ! each (|>> /.as_string) + (random.ascii 1)) bit/0 random.bit] (all _.and @@ -585,8 +585,8 @@ (/.of_long (test/TestInterface4::actual4 (/.as_long left) (/.as_long right) object_8))))] .let [random_long (is (Random java/lang/Long) - (# ! each (|>> /.as_long) - random.int))] + (at ! each (|>> /.as_long) + random.int))] dummy/0 random_long dummy/1 random_long dummy/2 random_long diff --git a/stdlib/source/test/lux/ffi.old.lux b/stdlib/source/test/lux/ffi.old.lux index e5f5ab8aa..ae5acc8a0 100644 --- a/stdlib/source/test/lux/ffi.old.lux +++ b/stdlib/source/test/lux/ffi.old.lux @@ -92,13 +92,13 @@ Test (do [! random.monad] [long random.int - int (# ! each (|>> /.long_to_int) random.int) - char (# ! each (|>> /.long_to_int /.int_to_char) random.int) + int (at ! each (|>> /.long_to_int) random.int) + char (at ! each (|>> /.long_to_int /.int_to_char) random.int) double (|> random.frac (random.only (|>> f.not_a_number? not))) float (|> random.frac (random.only (|>> f.not_a_number? not)) - (# ! each (|>> /.double_to_float)))] + (at ! each (|>> /.double_to_float)))] (`` (all _.and (~~ (template [<=> <sample> <to> <from>] [(_.coverage [<to> <from>] @@ -159,8 +159,8 @@ (def: arrays Test (do [! random.monad] - [size (|> random.nat (# ! each (|>> (n.% 100) (n.max 1)))) - idx (|> random.nat (# ! each (n.% size))) + [size (|> random.nat (at ! each (|>> (n.% 100) (n.max 1)))) + idx (|> random.nat (at ! each (n.% size))) value random.int] (all _.and (_.coverage [/.array /.length] diff --git a/stdlib/source/test/lux/ffi/export.jvm.lux b/stdlib/source/test/lux/ffi/export.jvm.lux index 7dc0e194d..5fa93e75d 100644 --- a/stdlib/source/test/lux/ffi/export.jvm.lux +++ b/stdlib/source/test/lux/ffi/export.jvm.lux @@ -127,8 +127,8 @@ (<| (_.covering /._) (do [! random.monad] [(~~ (template [<type> <as> <random>] - [(~~ (template.symbol [left_ <type>])) (# ! each (|>> <as>) <random>) - (~~ (template.symbol [right_ <type>])) (# ! each (|>> <as>) <random>)] + [(~~ (template.symbol [left_ <type>])) (at ! each (|>> <as>) <random>) + (~~ (template.symbol [right_ <type>])) (at ! each (|>> <as>) <random>)] [boolean //.as_boolean random.bit] [byte //.as_byte ..tiny_int] diff --git a/stdlib/source/test/lux/locale.lux b/stdlib/source/test/lux/locale.lux index 7f4f183fb..0a05619e8 100644 --- a/stdlib/source/test/lux/locale.lux +++ b/stdlib/source/test/lux/locale.lux @@ -59,16 +59,16 @@ fixed_encoding ..random_encoding] (all _.and (|> ..random_language - (# ! each (function (_ language) - (/.locale language {.#Some fixed_territory} {.#Some fixed_encoding}))) + (at ! each (function (_ language) + (/.locale language {.#Some fixed_territory} {.#Some fixed_encoding}))) ($hash.spec /.hash)) (|> ..random_territory - (# ! each (function (_ territory) - (/.locale fixed_language {.#Some territory} {.#Some fixed_encoding}))) + (at ! each (function (_ territory) + (/.locale fixed_language {.#Some territory} {.#Some fixed_encoding}))) ($hash.spec /.hash)) (|> ..random_encoding - (# ! each (function (_ encoding) - (/.locale fixed_language {.#Some fixed_territory} {.#Some encoding}))) + (at ! each (function (_ encoding) + (/.locale fixed_language {.#Some fixed_territory} {.#Some encoding}))) ($hash.spec /.hash)) ))) diff --git a/stdlib/source/test/lux/locale/language.lux b/stdlib/source/test/lux/locale/language.lux index 6c8b4f6ad..cb2fb5477 100644 --- a/stdlib/source/test/lux/locale/language.lux +++ b/stdlib/source/test/lux/locale/language.lux @@ -215,7 +215,7 @@ (template: (!aliases <reference> <aliases>) [(_.coverage <aliases> - (list.every? (# /.equivalence = <reference>) + (list.every? (at /.equivalence = <reference>) (`` (list (~~ (template.spliced <aliases>))))))]) (def: aliases_test/0 @@ -282,8 +282,8 @@ (list#each (|>> (the #languages) set.list)) list.together)] (do [! random.monad] - [choice (# ! each (n.% (list.size options)) - random.nat)] + [choice (at ! each (n.% (list.size options)) + random.nat)] (in (maybe.trusted (list.item choice options)))))) (def: .public test diff --git a/stdlib/source/test/lux/locale/territory.lux b/stdlib/source/test/lux/locale/territory.lux index 067d68595..6a8051f66 100644 --- a/stdlib/source/test/lux/locale/territory.lux +++ b/stdlib/source/test/lux/locale/territory.lux @@ -172,7 +172,7 @@ (template: (!aliases <reference> <aliases>) [(_.coverage <aliases> - (list.every? (# /.equivalence = <reference>) + (list.every? (at /.equivalence = <reference>) (`` (list (~~ (template.spliced <aliases>))))))]) (def: aliases_test @@ -208,8 +208,8 @@ (list#each (|>> (the #territories) set.list)) list.together)] (do [! random.monad] - [choice (# ! each (n.% (list.size options)) - random.nat)] + [choice (at ! each (n.% (list.size options)) + random.nat)] (in (maybe.trusted (list.item choice options)))))) (def: .public test diff --git a/stdlib/source/test/lux/macro.lux b/stdlib/source/test/lux/macro.lux index f1f2bce0b..0b6bfe2f3 100644 --- a/stdlib/source/test/lux/macro.lux +++ b/stdlib/source/test/lux/macro.lux @@ -116,9 +116,9 @@ (do [! random.monad] [[seed symbol_prefix lux] ..random_lux - pow/1 (# ! each code.nat random.nat) + pow/1 (at ! each code.nat random.nat) - repetitions (# ! each (n.% 10) random.nat) + repetitions (at ! each (n.% 10) random.nat) .let [single_expansion (` (..pow/2 (..pow/2 (~ pow/1)))) expansion (` (n.* (..pow/2 (~ pow/1)) (..pow/2 (~ pow/1)))) @@ -129,18 +129,18 @@ [(_.coverage [<expander>] (|> (<expander> (` (..pow/4 (~ pow/1)))) (meta.result lux) - (try#each (# (list.equivalence code.equivalence) = - (list <expansion>))) + (try#each (at (list.equivalence code.equivalence) = + (list <expansion>))) (try.else false))) (_.coverage [<logger>] (and (|> (/.single_expansion (` (<logger> "omit" (..pow/4 (~ pow/1))))) (meta.result lux) - (try#each (# (list.equivalence code.equivalence) = (list))) + (try#each (at (list.equivalence code.equivalence) = (list))) (try.else false)) (|> (/.single_expansion (` (<logger> (..pow/4 (~ pow/1))))) (meta.result lux) - (try#each (# (list.equivalence code.equivalence) = (list <expansion>))) + (try#each (at (list.equivalence code.equivalence) = (list <expansion>))) (try.else false))))] [/.single_expansion /.log_single_expansion! single_expansion] @@ -189,7 +189,7 @@ (all _.and (_.coverage [/.symbol] (|> (/.symbol symbol_prefix) - (# meta.monad each %.code) + (at meta.monad each %.code) (meta.result lux) (!expect (^.multi {try.#Success actual_symbol} (and (text.contains? symbol_prefix actual_symbol) @@ -203,7 +203,7 @@ (_.coverage [/.with_symbols] (with_expansions [<expected> (fresh_symbol)] (|> (/.with_symbols [<expected>] - (# meta.monad in <expected>)) + (at meta.monad in <expected>)) (meta.result lux) (!expect (^.multi {try.#Success [_ {.#Symbol ["" actual]}]} (text.contains? (template.text [<expected>]) diff --git a/stdlib/source/test/lux/macro/code.lux b/stdlib/source/test/lux/macro/code.lux index f3991eda0..f01a61c3f 100644 --- a/stdlib/source/test/lux/macro/code.lux +++ b/stdlib/source/test/lux/macro/code.lux @@ -38,7 +38,7 @@ (def: (random_sequence random) (All (_ a) (-> (Random a) (Random (List a)))) (do [! random.monad] - [size (|> random.nat (# ! each (n.% 3)))] + [size (|> random.nat (at ! each (n.% 3)))] (random.list size random))) (def: .public random @@ -78,7 +78,7 @@ (function (_ replacement_simulation) (let [for_sequence (is (-> (-> (List Code) Code) (Random [Code Code])) (function (_ to_code) - (random.only (|>> product.left (# /.equivalence = original) not) + (random.only (|>> product.left (at /.equivalence = original) not) (do [! random.monad] [parts (..random_sequence replacement_simulation)] (in [(to_code (list#each product.left parts)) @@ -86,7 +86,7 @@ (all random.either (random#in [original substitute]) (do [! random.monad] - [sample (random.only (|>> (# /.equivalence = original) not) + [sample (random.only (|>> (at /.equivalence = original) not) (all random.either (random#each /.bit random.bit) (random#each /.nat random.nat) @@ -110,15 +110,15 @@ (_.coverage [<coverage>] (and (case (..read (/.format (<coverage> expected))) {try.#Success actual} - (# /.equivalence = - actual - (<coverage> expected)) + (at /.equivalence = + actual + (<coverage> expected)) {try.#Failure error} false) - (# /.equivalence = - [location.dummy {<tag> expected}] - (<coverage> expected)))))] + (at /.equivalence = + [location.dummy {<tag> expected}] + (<coverage> expected)))))] [/.bit random.bit .#Bit] [/.nat random.nat .#Nat] @@ -136,15 +136,15 @@ (_.coverage [<coverage>] (and (case (..read (/.format (<coverage> expected))) {try.#Success actual} - (# /.equivalence = - actual - (<coverage> expected)) + (at /.equivalence = + actual + (<coverage> expected)) {try.#Failure error} false) - (# /.equivalence = - [location.dummy {<tag> ["" expected]}] - (<coverage> expected))) + (at /.equivalence = + [location.dummy {<tag> ["" expected]}] + (<coverage> expected))) ))] [/.local ..random_text .#Symbol] @@ -162,13 +162,13 @@ (do [! random.monad] [[original substitute] (random.only (function (_ [original substitute]) - (not (# /.equivalence = original substitute))) + (not (at /.equivalence = original substitute))) (random.and ..random ..random)) [sample expected] (random.only (function (_ [sample expected]) - (not (# /.equivalence = sample expected))) + (not (at /.equivalence = sample expected))) (..replacement_simulation [original substitute]))] (_.coverage [/.replaced] - (# /.equivalence = - expected - (/.replaced original substitute sample)))) + (at /.equivalence = + expected + (/.replaced original substitute sample)))) ))) diff --git a/stdlib/source/test/lux/macro/pattern.lux b/stdlib/source/test/lux/macro/pattern.lux index 6fb9ef8d0..277d02830 100644 --- a/stdlib/source/test/lux/macro/pattern.lux +++ b/stdlib/source/test/lux/macro/pattern.lux @@ -30,8 +30,8 @@ Test (<| (_.covering /._) (do [! random.monad] - [expected_nat (# ! each (n.% 1) random.nat) - expected_int (# ! each (i.% +1) random.int) + [expected_nat (at ! each (n.% 1) random.nat) + expected_int (at ! each (i.% +1) random.int) expected_rev (random.either (in .5) (in .25)) expected_frac (random.either (in +0.5) @@ -40,7 +40,7 @@ (in "+1.25"))] (all _.and (do [! random.monad] - [sample (# ! each (n.% 5) random.nat)] + [sample (at ! each (n.% 5) random.nat)] (_.coverage [/.template] (case sample (/.template [<case>] diff --git a/stdlib/source/test/lux/macro/syntax/declaration.lux b/stdlib/source/test/lux/macro/syntax/declaration.lux index d3ef34ca2..f6a5a1973 100644 --- a/stdlib/source/test/lux/macro/syntax/declaration.lux +++ b/stdlib/source/test/lux/macro/syntax/declaration.lux @@ -23,7 +23,7 @@ (all random.and word (do [! random.monad] - [size (# ! each (n.% 10) random.nat)] + [size (at ! each (n.% 10) random.nat)] (random.list size word)) ))) @@ -44,4 +44,4 @@ false {try.#Success actual} - (# /.equivalence = expected actual))))))) + (at /.equivalence = expected actual))))))) diff --git a/stdlib/source/test/lux/macro/syntax/definition.lux b/stdlib/source/test/lux/macro/syntax/definition.lux index 7fa3550dd..504ff7e4b 100644 --- a/stdlib/source/test/lux/macro/syntax/definition.lux +++ b/stdlib/source/test/lux/macro/syntax/definition.lux @@ -74,7 +74,7 @@ false {try.#Success actual} - (# /.equivalence = expected actual))) + (at /.equivalence = expected actual))) (_.coverage [/.typed] (let [expected (has /.#value {.#Left [type untyped_value]} expected)] (case (<code>.result (/.typed compiler) @@ -83,7 +83,7 @@ false {try.#Success actual} - (# /.equivalence = expected actual)))) + (at /.equivalence = expected actual)))) (_.coverage [/.lacks_type] (let [expected (has /.#value {.#Right untyped_value} expected)] (case (<code>.result (/.typed compiler) diff --git a/stdlib/source/test/lux/macro/syntax/export.lux b/stdlib/source/test/lux/macro/syntax/export.lux index 151d72ada..3b4e6adb1 100644 --- a/stdlib/source/test/lux/macro/syntax/export.lux +++ b/stdlib/source/test/lux/macro/syntax/export.lux @@ -22,7 +22,7 @@ (Random [(Maybe Code) Nat]) (all random.and (|> random.bit - (# random.monad each code.bit) + (at random.monad each code.bit) random.maybe) random.nat)) diff --git a/stdlib/source/test/lux/macro/syntax/input.lux b/stdlib/source/test/lux/macro/syntax/input.lux index 2035941e8..6de252987 100644 --- a/stdlib/source/test/lux/macro/syntax/input.lux +++ b/stdlib/source/test/lux/macro/syntax/input.lux @@ -45,4 +45,4 @@ false {try.#Success actual} - (# (list.equivalence /.equivalence) = (list expected) actual))))))) + (at (list.equivalence /.equivalence) = (list expected) actual))))))) diff --git a/stdlib/source/test/lux/macro/syntax/type/variable.lux b/stdlib/source/test/lux/macro/syntax/type/variable.lux index 0e1d52f6f..55ab5bcc1 100644 --- a/stdlib/source/test/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/test/lux/macro/syntax/type/variable.lux @@ -32,6 +32,6 @@ (_.coverage [/.format /.parser] (|> (list (/.format expected)) (<code>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) ))) diff --git a/stdlib/source/test/lux/macro/template.lux b/stdlib/source/test/lux/macro/template.lux index 027d45dc8..771c9c082 100644 --- a/stdlib/source/test/lux/macro/template.lux +++ b/stdlib/source/test/lux/macro/template.lux @@ -50,9 +50,9 @@ <short>' "abc#0#12+3-4.5"] (all _.and (_.coverage [/.spliced] - (# (list.equivalence nat.equivalence) = - (list left mid right) - (`` (list (~~ (/.spliced [left mid right])))))) + (at (list.equivalence nat.equivalence) = + (list left mid right) + (`` (list (~~ (/.spliced [left mid right])))))) (_.coverage [/.amount] (case (/.amount [left mid right]) 3 true diff --git a/stdlib/source/test/lux/math/logic/fuzzy.lux b/stdlib/source/test/lux/math/logic/fuzzy.lux index 2cfc62142..9ea59ccd4 100644 --- a/stdlib/source/test/lux/math/logic/fuzzy.lux +++ b/stdlib/source/test/lux/math/logic/fuzzy.lux @@ -39,10 +39,10 @@ (do [! random.monad] [sample random.rev - threshold_0 (# ! each (r.% .5) - random.rev) - threshold_1 (# ! each (|>> (r.% .5) (r.+ .5)) - random.rev) + threshold_0 (at ! each (r.% .5) + random.rev) + threshold_1 (at ! each (|>> (r.% .5) (r.+ .5)) + random.rev) .let [bottom (r.min threshold_0 threshold_1) top (r.max threshold_0 threshold_1)]] @@ -89,7 +89,7 @@ [bottom middle_bottom middle_top top] (|> random.rev (random.set r.hash 4) - (# ! each (|>> set.list (list.sorted r.<))) + (at ! each (|>> set.list (list.sorted r.<))) (random.one (function (_ thresholds) (case thresholds (pattern (list threshold_0 threshold_1 threshold_2 threshold_3)) @@ -173,7 +173,7 @@ [bottom middle_bottom middle_top top] (|> random.rev (random.set r.hash 4) - (# ! each (|>> set.list (list.sorted r.<))) + (at ! each (|>> set.list (list.sorted r.<))) (random.one (function (_ thresholds) (case thresholds (pattern (list threshold_0 threshold_1 threshold_2 threshold_3)) diff --git a/stdlib/source/test/lux/math/modular.lux b/stdlib/source/test/lux/math/modular.lux index 0137ba9ae..aaf670ba2 100644 --- a/stdlib/source/test/lux/math/modular.lux +++ b/stdlib/source/test/lux/math/modular.lux @@ -30,42 +30,42 @@ (def: .public (random modulus) (All (_ %) (-> (//.Modulus %) (Random (/.Mod %)))) - (# random.monad each - (/.modular modulus) - random.int)) + (at random.monad each + (/.modular modulus) + random.int)) (def: .public test Test (<| (_.covering /._) (_.for [/.Mod]) (do random.monad - [param##% ($//.random +1,000,000) - param (..random param##%) + [param::% ($//.random +1,000,000) + param (..random param::%) - subject##% (random.only (predicate.and (|>> //.divisor (i.> +2)) - (|>> (//.= param##%) not)) + subject::% (random.only (predicate.and (|>> //.divisor (i.> +2)) + (|>> (//.= param::%) not)) ($//.random +1,000,000)) - subject (..random subject##%) - another (..random subject##%)] + subject (..random subject::%) + another (..random subject::%)] (`` (all _.and (_.for [/.equivalence /.=] - ($equivalence.spec /.equivalence (..random subject##%))) + ($equivalence.spec /.equivalence (..random subject::%))) (_.for [/.order /.<] - ($order.spec /.order (..random subject##%))) + ($order.spec /.order (..random subject::%))) (~~ (template [<composite> <monoid>] [(_.for [<monoid> <composite>] - ($monoid.spec /.equivalence (<monoid> subject##%) (..random subject##%)))] + ($monoid.spec /.equivalence (<monoid> subject::%) (..random subject::%)))] [/.+ /.addition] [/.* /.multiplication] )) (_.for [/.codec] - ($codec.spec /.equivalence (/.codec subject##%) (..random subject##%))) + ($codec.spec /.equivalence (/.codec subject::%) (..random subject::%))) (_.coverage [/.incorrect_modulus] (case (|> param - (# (/.codec param##%) encoded) - (# (/.codec subject##%) decoded)) + (at (/.codec param::%) encoded) + (at (/.codec subject::%) decoded)) {try.#Failure error} (exception.match? /.incorrect_modulus error) @@ -107,15 +107,15 @@ (_.coverage [/.adapter] (<| (try.else false) (do try.monad - [copy##% (//.modulus (//.divisor subject##%)) - adapt (/.adapter subject##% copy##%)] + [copy::% (//.modulus (//.divisor subject::%)) + adapt (/.adapter subject::% copy::%)] (in (|> subject /.value - (/.modular copy##%) + (/.modular copy::%) adapt (/.= subject)))))) (_.coverage [/.moduli_are_not_equal] - (case (/.adapter subject##% param##%) + (case (/.adapter subject::% param::%) {try.#Failure error} (exception.match? /.moduli_are_not_equal error) diff --git a/stdlib/source/test/lux/math/modulus.lux b/stdlib/source/test/lux/math/modulus.lux index 029fcbb6d..484a7470a 100644 --- a/stdlib/source/test/lux/math/modulus.lux +++ b/stdlib/source/test/lux/math/modulus.lux @@ -28,7 +28,7 @@ (def: .public (random range) (Ex (_ %) (-> Int (Random (/.Modulus %)))) (|> random.int - (# random.monad each (i.% range)) + (at random.monad each (i.% range)) (random.one (|>> /.modulus try.maybe)))) (def: .public test diff --git a/stdlib/source/test/lux/math/number.lux b/stdlib/source/test/lux/math/number.lux index bda05f0aa..eaa74ac25 100644 --- a/stdlib/source/test/lux/math/number.lux +++ b/stdlib/source/test/lux/math/number.lux @@ -34,7 +34,7 @@ (all _.and (_.coverage [/.bin] (`` (and (~~ (template [<=> <codec> <number>] - [(case (# <codec> decoded (..clean_commas <number>)) + [(case (at <codec> decoded (..clean_commas <number>)) {try.#Success actual} (<=> (/.bin <number>) actual) @@ -53,7 +53,7 @@ ))))) (_.coverage [/.oct] (`` (and (~~ (template [<=> <codec> <number>] - [(case (# <codec> decoded (..clean_commas <number>)) + [(case (at <codec> decoded (..clean_commas <number>)) {try.#Success actual} (<=> (/.oct <number>) actual) @@ -72,7 +72,7 @@ ))))) (_.coverage [/.hex] (`` (and (~~ (template [<=> <codec> <number>] - [(case (# <codec> decoded (..clean_commas <number>)) + [(case (at <codec> decoded (..clean_commas <number>)) {try.#Success actual} (<=> (/.hex <number>) actual) diff --git a/stdlib/source/test/lux/math/number/complex.lux b/stdlib/source/test/lux/math/number/complex.lux index 087ee1245..ee1a6e210 100644 --- a/stdlib/source/test/lux/math/number/complex.lux +++ b/stdlib/source/test/lux/math/number/complex.lux @@ -25,7 +25,7 @@ (def: dimension (Random Frac) (do [! random.monad] - [factor (|> random.nat (# ! each (|>> (n.% 1000) (n.max 1)))) + [factor (|> random.nat (at ! each (|>> (n.% 1000) (n.max 1)))) measure (|> random.safe_frac (random.only (f.> +0.0)))] (in (f.* (|> factor .int int.frac) measure)))) @@ -39,10 +39,10 @@ (def: angle (Random /.Complex) - (# random.monad each - (|>> (revised /.#real (f.% +1.0)) - (revised /.#imaginary (f.% +1.0))) - ..random)) + (at random.monad each + (|>> (revised /.#real (f.% +1.0)) + (revised /.#imaginary (f.% +1.0))) + ..random)) (def: construction Test @@ -257,7 +257,7 @@ Test (do [! random.monad] [sample ..random - degree (|> random.nat (# ! each (|>> (n.max 1) (n.% 5))))] + degree (|> random.nat (at ! each (|>> (n.max 1) (n.% 5))))] (_.coverage [/.roots] (|> sample (/.roots degree) diff --git a/stdlib/source/test/lux/math/number/frac.lux b/stdlib/source/test/lux/math/number/frac.lux index c302d876c..c2e792e8b 100644 --- a/stdlib/source/test/lux/math/number/frac.lux +++ b/stdlib/source/test/lux/math/number/frac.lux @@ -28,7 +28,7 @@ (def: random (Random Frac) - (# random.monad each (|>> (i.% +1,000,000) i.frac) random.int)) + (at random.monad each (|>> (i.% +1,000,000) i.frac) random.int)) (def: constant Test @@ -54,7 +54,7 @@ Test (do [! random.monad] [sample ..random - shift (# ! each /.abs ..random)] + shift (at ! each /.abs ..random)] (all _.and (_.coverage [/.negative?] (bit#= (/.negative? sample) @@ -79,16 +79,16 @@ Test (all _.and (do [! random.monad] - [expected (# ! each (n.% 1,000,000) random.nat)] + [expected (at ! each (n.% 1,000,000) random.nat)] (_.coverage [/.nat] (|> expected n.frac /.nat (n.= expected)))) (do [! random.monad] - [expected (# ! each (i.% +1,000,000) random.int)] + [expected (at ! each (i.% +1,000,000) random.int)] (_.coverage [/.int] (|> expected i.frac /.int (i.= expected)))) (do [! random.monad] - [expected (# ! each (|>> (i64.left_shifted 52) .rev) - random.nat)] + [expected (at ! each (|>> (i64.left_shifted 52) .rev) + random.nat)] (_.coverage [/.rev] (|> expected r.frac /.rev (r.= expected)))) )) @@ -141,7 +141,7 @@ (all _.and (do [! random.monad] [.let [~= (/.approximately? ..margin_of_error)] - angle (|> random.safe_frac (# ! each (/.* /.tau)))] + angle (|> random.safe_frac (at ! each (/.* /.tau)))] (all _.and (_.coverage [/.sin /.asin] (trigonometric_symmetry /.sin /.asin angle)) @@ -165,7 +165,7 @@ (~= (/./ +2.0 /.tau) /.pi)) )) (do [! random.monad] - [sample (|> random.safe_frac (# ! each (/.* +1000.0)))] + [sample (|> random.safe_frac (at ! each (/.* +1000.0)))] (all _.and (_.coverage [/.ceil] (let [ceil'd (/.ceil sample)] @@ -195,8 +195,8 @@ )) (do [! random.monad] [.let [~= (/.approximately? ..margin_of_error)] - sample (# ! each (/.* +10.0) random.safe_frac) - power (# ! each (|>> (n.% 10) ++ n.frac) random.nat)] + sample (at ! each (/.* +10.0) random.safe_frac) + power (at ! each (|>> (n.% 10) ++ n.frac) random.nat)] (all _.and (_.coverage [/.exp /.log] (|> sample /.exp /.log (/.approximately? +0.000000000000001 sample))) @@ -211,9 +211,9 @@ )) (do [! random.monad] [.let [~= (/.approximately? ..margin_of_error)] - angle (# ! each (/.* /.tau) random.safe_frac) - sample (# ! each /.abs random.safe_frac) - big (# ! each (/.* +1,000,000,000.00) random.safe_frac)] + angle (at ! each (/.* /.tau) random.safe_frac) + sample (at ! each /.abs random.safe_frac) + big (at ! each (/.* +1,000,000,000.00) random.safe_frac)] (template.let [(odd! <function>) [(_.coverage [<function>] (~= (/.opposite (<function> angle)) @@ -241,8 +241,8 @@ (inverse! /.atanh /.acoth big) ))) (do [! random.monad] - [x (# ! each (|>> (/.* +10.0) /.abs) random.safe_frac) - y (# ! each (|>> (/.* +10.0) /.abs) random.safe_frac)] + [x (at ! each (|>> (/.* +10.0) /.abs) random.safe_frac) + y (at ! each (|>> (/.* +10.0) /.abs) random.safe_frac)] (_.coverage [/.hypotenuse] (let [h (/.hypotenuse x y)] (and (/.>= x h) @@ -250,8 +250,8 @@ (do [! random.monad] [.let [~= (/.approximately? ..margin_of_error) tau/4 (/./ +4.0 /.tau)] - x (# ! each (/.* tau/4) random.safe_frac) - y (# ! each (/.* tau/4) random.safe_frac)] + x (at ! each (/.* tau/4) random.safe_frac) + y (at ! each (/.* tau/4) random.safe_frac)] (_.coverage [/.atan_2] (let [expected (/.atan_2 x y) actual (if (/.> +0.0 x) @@ -264,7 +264,7 @@ (~= (/.opposite tau/4) (/.atan_2 +0.0 (/.opposite (/.abs y)))) (/.not_a_number? (/.atan_2 +0.0 +0.0)))))) (do [! random.monad] - [of (# ! each (|>> (n.% 10) ++) random.nat)] + [of (at ! each (|>> (n.% 10) ++) random.nat)] (_.coverage [/.factorial] (and (n.= 1 (/.factorial 0)) (|> (/.factorial of) (n.% of) (n.= 0))))) diff --git a/stdlib/source/test/lux/math/number/i16.lux b/stdlib/source/test/lux/math/number/i16.lux index 65f1c45c0..d8ee85c4a 100644 --- a/stdlib/source/test/lux/math/number/i16.lux +++ b/stdlib/source/test/lux/math/number/i16.lux @@ -16,7 +16,7 @@ (def: .public random (Random /.I16) - (# random.functor each /.i16 random.i64)) + (at random.functor each /.i16 random.i64)) (def: .public test Test @@ -27,12 +27,12 @@ //i64.mask .int ++)] - expected (# ! each (i.% limit) random.int)] + expected (at ! each (i.% limit) random.int)] (all _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence ..random)) (_.coverage [/.i16 /.i64 /.width] (let [actual (|> expected .i64 /.i16 /.i64)] - (# //i64.equivalence = expected actual))) + (at //i64.equivalence = expected actual))) )))) diff --git a/stdlib/source/test/lux/math/number/i32.lux b/stdlib/source/test/lux/math/number/i32.lux index 687621561..189e79b06 100644 --- a/stdlib/source/test/lux/math/number/i32.lux +++ b/stdlib/source/test/lux/math/number/i32.lux @@ -16,7 +16,7 @@ (def: .public random (Random /.I32) - (# random.functor each /.i32 random.i64)) + (at random.functor each /.i32 random.i64)) (def: .public test Test @@ -27,12 +27,12 @@ //i64.mask .int ++)] - expected (# ! each (i.% limit) random.int)] + expected (at ! each (i.% limit) random.int)] (all _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence ..random)) (_.coverage [/.i32 /.i64 /.width] (let [actual (|> expected .i64 /.i32 /.i64)] - (# //i64.equivalence = expected actual))) + (at //i64.equivalence = expected actual))) )))) diff --git a/stdlib/source/test/lux/math/number/i64.lux b/stdlib/source/test/lux/math/number/i64.lux index 550d6f03d..75324e869 100644 --- a/stdlib/source/test/lux/math/number/i64.lux +++ b/stdlib/source/test/lux/math/number/i64.lux @@ -22,7 +22,7 @@ Test (do [! random.monad] [pattern random.nat - idx (# ! each (n.% /.width) random.nat)] + idx (at ! each (n.% /.width) random.nat)] (all _.and (_.coverage [/.one? /.one] (if (/.one? idx pattern) @@ -48,7 +48,7 @@ [pattern random.nat] (all _.and (do ! - [idx (# ! each (|>> (n.% (-- /.width)) ++) random.nat)] + [idx (at ! each (|>> (n.% (-- /.width)) ++) random.nat)] (_.coverage [/.left_shifted /.right_shifted] (let [nullity! (and (/#= pattern (/.left_shifted 0 pattern)) @@ -74,7 +74,7 @@ (<| (_.for [/.Mask]) (do [! random.monad] [pattern random.nat - idx (# ! each (n.% /.width) random.nat) + idx (at ! each (n.% /.width) random.nat) signed random.int] (all _.and (_.coverage [/.sign] @@ -98,9 +98,9 @@ empty! full!))) (do ! - [size (# ! each (n.% /.width) random.nat) + [size (at ! each (n.% /.width) random.nat) .let [spare (n.- size /.width)] - offset (# ! each (n.% spare) random.nat)] + offset (at ! each (n.% spare) random.nat)] (_.coverage [/.region] (case size 0 (/#= /.false (/.region offset size)) @@ -122,7 +122,7 @@ Test (_.for [/.Sub] (do [! random.monad] - [size (# ! each (n.% /.width) random.nat)] + [size (at ! each (n.% /.width) random.nat)] (case (/.sub size) {.#None} (_.coverage [/.sub] @@ -130,19 +130,19 @@ {.#Some sub} (do [! random.monad] - [.let [limit (|> (-- (# sub bits)) + [.let [limit (|> (-- (at sub bits)) /.mask .int ++)] - expected (# ! each (i.% limit) random.int) + expected (at ! each (i.% limit) random.int) .let [random (is (All (_ size) (-> (-> I64 (I64 size)) (Random (I64 size)))) (function (_ narrow) - (# random.functor each narrow random.i64)))]] + (at random.functor each narrow random.i64)))]] (all _.and - ($equivalence.spec (# sub sub_equivalence) (random (# sub narrow))) + ($equivalence.spec (at sub sub_equivalence) (random (at sub narrow))) (_.coverage [/.sub] - (let [actual (|> expected .i64 (# sub narrow) (# sub wide))] + (let [actual (|> expected .i64 (at sub narrow) (at sub wide))] (/#= expected actual))) )))))) @@ -165,7 +165,7 @@ (_.for [.I64]) (do [! random.monad] [pattern random.nat - idx (# ! each (n.% /.width) random.nat)] + idx (at ! each (n.% /.width) random.nat)] (all _.and (_.coverage [/.width /.bits_per_byte /.bytes_per_i64] (and (n.= /.bytes_per_i64 diff --git a/stdlib/source/test/lux/math/number/i8.lux b/stdlib/source/test/lux/math/number/i8.lux index 9f45a2e8c..edf503bf9 100644 --- a/stdlib/source/test/lux/math/number/i8.lux +++ b/stdlib/source/test/lux/math/number/i8.lux @@ -16,7 +16,7 @@ (def: .public random (Random /.I8) - (# random.functor each /.i8 random.i64)) + (at random.functor each /.i8 random.i64)) (def: .public test Test @@ -27,12 +27,12 @@ //i64.mask .int ++)] - expected (# ! each (i.% limit) random.int)] + expected (at ! each (i.% limit) random.int)] (all _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence ..random)) (_.coverage [/.i8 /.i64 /.width] (let [actual (|> expected .i64 /.i8 /.i64)] - (# //i64.equivalence = expected actual))) + (at //i64.equivalence = expected actual))) )))) diff --git a/stdlib/source/test/lux/math/number/int.lux b/stdlib/source/test/lux/math/number/int.lux index 1509a65fc..76ed060da 100644 --- a/stdlib/source/test/lux/math/number/int.lux +++ b/stdlib/source/test/lux/math/number/int.lux @@ -167,7 +167,7 @@ )) (do [! random.monad] [.let [random (|> random.int - (# ! each (/.% +1,000)) + (at ! each (/.% +1,000)) (random.only (|>> (/.= +0) not)))] left random right random] @@ -208,14 +208,14 @@ (and subtraction! inverse!)))) (do [! random.monad] - [expected (# ! each (/.% +1,000,000) random.int) + [expected (at ! each (/.% +1,000,000) random.int) sample random.int] (_.coverage [/.frac] (and (|> expected /.frac f.int (/.= expected)) (f.number? (/.frac sample))))) (do [! random.monad] [pattern random.int - idx (# ! each (n.% i64.width) random.nat)] + idx (at ! each (n.% i64.width) random.nat)] (_.coverage [/.right_shifted] (let [nullity! (/.= pattern (/.right_shifted 0 pattern)) diff --git a/stdlib/source/test/lux/math/number/nat.lux b/stdlib/source/test/lux/math/number/nat.lux index 733b6445e..54471e9b3 100644 --- a/stdlib/source/test/lux/math/number/nat.lux +++ b/stdlib/source/test/lux/math/number/nat.lux @@ -104,7 +104,7 @@ (/.= rem (/.% left right))))) )) (do [! random.monad] - [.let [random (# ! each (|>> (/.% 1,000) ++) random.nat)] + [.let [random (at ! each (|>> (/.% 1,000) ++) random.nat)] left random right random] (all _.and @@ -121,7 +121,7 @@ (/.= 0 (/.% right lcm))))) )) (do [! random.monad] - [expected (# ! each (/.% 1,000,000) random.nat) + [expected (at ! each (/.% 1,000,000) random.nat) sample random.nat] (_.coverage [/.frac] (and (|> expected /.frac f.nat (/.= expected)) diff --git a/stdlib/source/test/lux/math/number/ratio.lux b/stdlib/source/test/lux/math/number/ratio.lux index fe01953dc..7b8d252ef 100644 --- a/stdlib/source/test/lux/math/number/ratio.lux +++ b/stdlib/source/test/lux/math/number/ratio.lux @@ -22,9 +22,9 @@ (def: part (Random Nat) - (# random.monad each - (|>> (n.% 1,000,000) (n.max 1)) - random.nat)) + (at random.monad each + (|>> (n.% 1,000,000) (n.max 1)) + random.nat)) (def: .public random (Random /.Ratio) diff --git a/stdlib/source/test/lux/math/number/rev.lux b/stdlib/source/test/lux/math/number/rev.lux index 82b16e725..72d03d335 100644 --- a/stdlib/source/test/lux/math/number/rev.lux +++ b/stdlib/source/test/lux/math/number/rev.lux @@ -89,27 +89,27 @@ (and (/.< left (/.* left right)) (/.< right (/.* left right))))) (do [! random.monad] - [.let [dividend (# ! each (i64.and (hex "FFFF")) - random.rev) - divisor (# ! each (|>> (i64.and (hex "F")) - (i64.or (hex "1")) - (i64.right_rotated 8) - .rev) - random.nat)] + [.let [dividend (at ! each (i64.and (hex "FFFF")) + random.rev) + divisor (at ! each (|>> (i64.and (hex "F")) + (i64.or (hex "1")) + (i64.right_rotated 8) + .rev) + random.nat)] dividend (random.only (/.> .0) dividend) divisor/0 divisor divisor/1 (random.only (|>> (/.= divisor/0) not) divisor) - scale (# ! each (|>> (n.% 10) ++) - random.nat)] + scale (at ! each (|>> (n.% 10) ++) + random.nat)] (all _.and (_.coverage [/./] (bit#= (/.< divisor/0 divisor/1) (/.> (/./ divisor/0 dividend) (/./ divisor/1 dividend)))) (_.coverage [/.%] - (# i64.equivalence = - (.i64 (n.% (.nat divisor/0) (.nat dividend))) - (.i64 (/.% divisor/0 dividend)))) + (at i64.equivalence = + (.i64 (n.% (.nat divisor/0) (.nat dividend))) + (.i64 (/.% divisor/0 dividend)))) (_.coverage [/.up /.down] (let [symmetry! (|> dividend @@ -156,8 +156,8 @@ (/.= (/.reciprocal sample) (|> sample /.reciprocal .nat /.reciprocal .nat /.reciprocal)))) (do [! random.monad] - [expected (# ! each (|>> f.abs (f.% +1.0)) - random.safe_frac) + [expected (at ! each (|>> f.abs (f.% +1.0)) + random.safe_frac) sample random.rev] (_.coverage [/.frac] (and (|> expected f.rev /.frac (f.= expected)) diff --git a/stdlib/source/test/lux/meta.lux b/stdlib/source/test/lux/meta.lux index 87823e85a..9c162b1fe 100644 --- a/stdlib/source/test/lux/meta.lux +++ b/stdlib/source/test/lux/meta.lux @@ -77,12 +77,12 @@ .#host []]]] (all _.and (_.coverage [/.result] - (|> (# /.monad in expected) + (|> (at /.monad in expected) (/.result expected_lux) (!expect (^.multi {try.#Success actual} (n.= expected actual))))) (_.coverage [/.result'] - (|> (# /.monad in expected) + (|> (at /.monad in expected) (/.result' expected_lux) (!expect (^.multi {try.#Success [actual_lux actual]} (and (same? expected_lux actual_lux) @@ -152,7 +152,7 @@ (!expect (^.multi {try.#Failure actual_error} (text#= expected_error actual_error)))))) (_.coverage [/.either] - (and (|> (/.either (# /.monad in expected) + (and (|> (/.either (at /.monad in expected) (is (Meta Nat) (/.failure expected_error))) (/.result expected_lux) @@ -160,7 +160,7 @@ (n.= expected actual)))) (|> (/.either (is (Meta Nat) (/.failure expected_error)) - (# /.monad in expected)) + (at /.monad in expected)) (/.result expected_lux) (!expect (^.multi {try.#Success actual} (n.= expected actual)))) @@ -172,8 +172,8 @@ (!expect (^.multi {try.#Failure actual_error} (text#= (location.with location.dummy expected_error) actual_error)))) - (|> (/.either (# /.monad in expected) - (# /.monad in dummy)) + (|> (/.either (at /.monad in expected) + (at /.monad in dummy)) (/.result expected_lux) (!expect (^.multi {try.#Success actual} (n.= expected actual)))) @@ -184,7 +184,7 @@ (!expect (^.multi {try.#Success {try.#Failure actual_error}} (text#= (location.with location.dummy expected_error) actual_error)))) - (|> (/.try (# /.monad in expected)) + (|> (/.try (at /.monad in expected)) (/.result expected_lux) (!expect (^.multi {try.#Success {try.#Success actual}} (same? expected actual)))))) @@ -272,13 +272,13 @@ (_.coverage [/.imported_modules] (and (|> (/.imported_modules expected_current_module) (/.result expected_lux) - (try#each (# (list.equivalence text.equivalence) = - (list imported_module_name))) + (try#each (at (list.equivalence text.equivalence) = + (list imported_module_name))) (try.else false)) (|> (/.imported_modules imported_module_name) (/.result expected_lux) - (try#each (# (list.equivalence text.equivalence) = - (list))) + (try#each (at (list.equivalence text.equivalence) = + (list))) (try.else false)))) (_.coverage [/.imported_by?] (|> (/.imported_by? imported_module_name expected_current_module) @@ -314,9 +314,9 @@ version (random.upper_case 1) source_code (random.upper_case 1) expected_current_module (random.upper_case 1) - expected_type (# ! each (function (_ name) - {.#Primitive name (list)}) - (random.upper_case 1)) + expected_type (at ! each (function (_ name) + {.#Primitive name (list)}) + (random.upper_case 1)) expected_seed random.nat expected random.nat dummy (random.only (|>> (n.= expected) not) random.nat) @@ -379,9 +379,9 @@ expected_macro_module (random.only (|>> (text#= expected_current_module) not) (random.upper_case 1)) expected_short (random.upper_case 1) - expected_type (# ! each (function (_ name) - {.#Primitive name (list)}) - (random.upper_case 1)) + expected_type (at ! each (function (_ name) + {.#Primitive name (list)}) + (random.upper_case 1)) expected_value (random.either (in .def:) (in .macro:)) .let [expected_lux @@ -495,9 +495,9 @@ expected_macro_module (random.only (|>> (text#= expected_current_module) not) (random.upper_case 1)) expected_short (random.upper_case 1) - expected_type (# ! each (function (_ name) - {.#Primitive name (list)}) - (random.upper_case 1)) + expected_type (at ! each (function (_ name) + {.#Primitive name (list)}) + (random.upper_case 1)) expected_value (random.either (in .def:) (in .macro:)) .let [expected_lux @@ -672,15 +672,15 @@ name_1 (random.only (|>> (text#= name_0) not) (random.upper_case 1)) - .let [random_tag (# ! each (|>> [label_module]) - (random.upper_case 1)) + .let [random_tag (at ! each (|>> [label_module]) + (random.upper_case 1)) random_labels (is (Random [Text (List Text)]) (do ! [head (random.lower_case 5)] (|> (random.lower_case 5) (random.only (|>> (text#= head) not)) (random.set text.hash 3) - (# ! each set.list) + (at ! each set.list) (random.and (in head)))))] tags_0 random_labels tags_1 (let [set/0 (set.of_list text.hash {.#Item tags_0})] @@ -740,15 +740,15 @@ type.equivalence))] (|> (/.tag_lists label_module) (/.result expected_lux) - (try#each (# equivalence = (list [(list#each (|>> [label_module]) {.#Item tags_0}) - type_0] - [(list#each (|>> [label_module]) {.#Item tags_1}) - type_1]))) + (try#each (at equivalence = (list [(list#each (|>> [label_module]) {.#Item tags_0}) + type_0] + [(list#each (|>> [label_module]) {.#Item tags_1}) + type_1]))) (try.else false)))) (_.coverage [/.tags_of] (|> (/.tags_of [label_module name_1]) (/.result expected_lux) - (try#each (# (maybe.equivalence (list.equivalence symbol.equivalence)) = {.#Some (list#each (|>> [label_module]) {.#Item tags_1})})) + (try#each (at (maybe.equivalence (list.equivalence symbol.equivalence)) = {.#Some (list#each (|>> [label_module]) {.#Item tags_1})})) (try.else false))) (_.coverage [/.tag] (|> {.#Item tags_0} @@ -763,9 +763,9 @@ actual_index) correct_tags! - (# (list.equivalence symbol.equivalence) = - (list#each (|>> [label_module]) {.#Item tags_0}) - actual_tags) + (at (list.equivalence symbol.equivalence) = + (list#each (|>> [label_module]) {.#Item tags_0}) + actual_tags) correct_type! (type#= type_0 @@ -787,9 +787,9 @@ actual_index) correct_tags! - (# (list.equivalence symbol.equivalence) = - (list#each (|>> [label_module]) {.#Item tags_1}) - actual_tags) + (at (list.equivalence symbol.equivalence) = + (list#each (|>> [label_module]) {.#Item tags_1}) + actual_tags) correct_type! (type#= type_1 @@ -806,7 +806,7 @@ [current_module (random.upper_case 1) [name_0 name_1 name_2 name_3 name_4] (|> (random.upper_case 1) (random.set text.hash 5) - (# ! each set.list) + (at ! each set.list) (random.one (function (_ values) (case values (pattern (list name_0 name_1 name_2 name_3 name_4)) @@ -878,57 +878,57 @@ type.equivalence))))] (|> /.locals (/.result expected_lux) - (try#each (# equivalence = (list (list [name_3 type_3]) - (list [name_1 type_1] - [name_2 type_2])))) + (try#each (at equivalence = (list (list [name_3 type_3]) + (list [name_1 type_1] + [name_2 type_2])))) (try.else false)))) (_.coverage [/.var_type] (and (|> (/.var_type name_0) (/.result expected_lux) - (try#each (# type.equivalence = type_0)) + (try#each (at type.equivalence = type_0)) (try.else false)) (|> (/.var_type name_1) (/.result expected_lux) - (try#each (# type.equivalence = type_1)) + (try#each (at type.equivalence = type_1)) (try.else false)) (|> (/.var_type name_2) (/.result expected_lux) - (try#each (# type.equivalence = type_2)) + (try#each (at type.equivalence = type_2)) (try.else false)) (|> (/.var_type name_3) (/.result expected_lux) - (try#each (# type.equivalence = type_3)) + (try#each (at type.equivalence = type_3)) (try.else false)))) (_.coverage [/.type] (and (|> (/.type ["" name_0]) (/.result expected_lux) - (try#each (# type.equivalence = type_0)) + (try#each (at type.equivalence = type_0)) (try.else false)) (|> (/.type ["" name_1]) (/.result expected_lux) - (try#each (# type.equivalence = type_1)) + (try#each (at type.equivalence = type_1)) (try.else false)) (|> (/.type ["" name_2]) (/.result expected_lux) - (try#each (# type.equivalence = type_2)) + (try#each (at type.equivalence = type_2)) (try.else false)) (|> (/.type ["" name_3]) (/.result expected_lux) - (try#each (# type.equivalence = type_3)) + (try#each (at type.equivalence = type_3)) (try.else false)) (|> (/.type [current_module name_4]) (/.result expected_lux) - (try#each (# type.equivalence = type_4)) + (try#each (at type.equivalence = type_4)) (try.else false)) (|> (/.type ["" name_4]) (/.result expected_lux) - (try#each (# type.equivalence = type_4)) + (try#each (at type.equivalence = type_4)) (try.else false)))) ))) (def: injection (Injection Meta) - (# /.monad in)) + (at /.monad in)) (def: (comparison init) (-> Lux (Comparison Meta)) @@ -951,9 +951,9 @@ version (random.upper_case 1) source_code (random.upper_case 1) expected_current_module (random.upper_case 1) - expected_type (# ! each (function (_ name) - {.#Primitive name (list)}) - (random.upper_case 1)) + expected_type (at ! each (function (_ name) + {.#Primitive name (list)}) + (random.upper_case 1)) expected_seed random.nat expected random.nat dummy (random.only (|>> (n.= expected) not) random.nat) diff --git a/stdlib/source/test/lux/meta/configuration.lux b/stdlib/source/test/lux/meta/configuration.lux index a8d7f0169..734fbef82 100644 --- a/stdlib/source/test/lux/meta/configuration.lux +++ b/stdlib/source/test/lux/meta/configuration.lux @@ -33,8 +33,8 @@ _ (do [! random.monad] [feature (random.upper_case amount) value (random.lower_case amount)] - (# ! each (|>> (partial_list [feature value])) - (random (-- amount)))))) + (at ! each (|>> (partial_list [feature value])) + (random (-- amount)))))) (syntax: (failure [it <code>.any]) (function (_ lux) @@ -63,7 +63,7 @@ (|> expected /.format (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.for] (and (and (/.for ["left" "<<<" diff --git a/stdlib/source/test/lux/meta/location.lux b/stdlib/source/test/lux/meta/location.lux index da7065d3b..36de9909c 100644 --- a/stdlib/source/test/lux/meta/location.lux +++ b/stdlib/source/test/lux/meta/location.lux @@ -33,7 +33,7 @@ ($equivalence.spec /.equivalence ..random)) (_.coverage [/.here] - (not (# /.equivalence = (/.here) (/.here)))) + (not (at /.equivalence = (/.here) (/.here)))) (do random.monad [location ..random error (random.alphabetic 10)] @@ -46,5 +46,5 @@ (do random.monad [[location _] $///code.random] (_.coverage [/.dummy] - (# /.equivalence = /.dummy location))) + (at /.equivalence = /.dummy location))) ))) diff --git a/stdlib/source/test/lux/meta/symbol.lux b/stdlib/source/test/lux/meta/symbol.lux index 349aa2cb7..e37dc06a9 100644 --- a/stdlib/source/test/lux/meta/symbol.lux +++ b/stdlib/source/test/lux/meta/symbol.lux @@ -30,12 +30,12 @@ (<| (_.covering /._) (do [! random.monad] [... First Symbol - sizeM1 (|> random.nat (# ! each (n.% 100))) - sizeS1 (|> random.nat (# ! each (|>> (n.% 100) (n.max 1)))) + sizeM1 (|> random.nat (at ! each (n.% 100))) + sizeS1 (|> random.nat (at ! each (|>> (n.% 100) (n.max 1)))) (^.let symbol1 [module1 short1]) (..random sizeM1 sizeS1) ... Second Symbol - sizeM2 (|> random.nat (# ! each (n.% 100))) - sizeS2 (|> random.nat (# ! each (|>> (n.% 100) (n.max 1)))) + sizeM2 (|> random.nat (at ! each (n.% 100))) + sizeS2 (|> random.nat (at ! each (|>> (n.% 100) (n.max 1)))) (^.let symbol2 [module2 short2]) (..random sizeM2 sizeS2)] (_.for [.Symbol] (all _.and @@ -43,7 +43,7 @@ ($equivalence.spec /.equivalence (..random sizeM1 sizeS1))) (_.for [/.hash] (|> (random.ascii 1) - (# ! each (|>> [""])) + (at ! each (|>> [""])) ($hash.spec /.hash))) (_.for [/.order] ($order.spec /.order (..random sizeM1 sizeS1))) @@ -51,11 +51,11 @@ (_.and ($codec.spec /.equivalence /.codec (..random sizeM1 sizeS1)) (_.property "Encoding a symbol without a module component results in text equal to the short of the symbol." (if (text.empty? module1) - (same? short1 (# /.codec encoded symbol1)) + (same? short1 (at /.codec encoded symbol1)) #1)))) (_.coverage [/.separator] - (let [it (# /.codec encoded symbol1)] + (let [it (at /.codec encoded symbol1)] (if (text.empty? module1) (same? short1 it) (text.contains? /.separator it)))) diff --git a/stdlib/source/test/lux/target/js.lux b/stdlib/source/test/lux/target/js.lux index 84cd62bdf..3bdd3ce1d 100644 --- a/stdlib/source/test/lux/target/js.lux +++ b/stdlib/source/test/lux/target/js.lux @@ -55,9 +55,9 @@ (Random Int) (do [! random.monad] [negative? random.bit - mantissa (# ! each (|>> (i64.and (static.nat (-- (i64.left_shifted (-- <range>) 1)))) - .int) - random.nat)] + mantissa (at ! each (|>> (i64.and (static.nat (-- (i64.left_shifted (-- <range>) 1)))) + .int) + random.nat)] (in (if negative? (i.* -1 mantissa) mantissa)))))] @@ -157,7 +157,7 @@ i32 ..int_32 i16 ..int_16 - shift (# ! each (n.% 16) random.nat)] + shift (at ! each (n.% 16) random.nat)] (`` (all _.and (~~ (template [<js> <lux>] [(_.coverage [<js>] @@ -205,8 +205,8 @@ (def: test|array Test (do [! random.monad] - [size (# ! each (|>> (n.% 10) ++) random.nat) - index (# ! each (n.% size) random.nat) + [size (at ! each (|>> (n.% 10) ++) random.nat) + index (at ! each (n.% size) random.nat) items (random.list size random.safe_frac) .let [expected (|> items (list.item index) @@ -230,8 +230,8 @@ dummy (random.only (|>> (text#= field) not) (random.upper_case 5)) - size (# ! each (|>> (n.% 10) ++) random.nat) - index (# ! each (n.% size) random.nat) + size (at ! each (|>> (n.% 10) ++) random.nat) + index (at ! each (n.% size) random.nat) items (random.list size random.safe_frac)] (all _.and (_.coverage [/.object /.the] @@ -356,7 +356,7 @@ (do [! random.monad] [number/0 random.safe_frac int/0 ..int_16 - $foreign (# ! each /.var (random.lower_case 10)) + $foreign (at ! each /.var (random.lower_case 10)) field (random.upper_case 10)] (all _.and (_.coverage [/.set] @@ -447,12 +447,12 @@ (do [! random.monad] [input ..int_16 - full_inner_iterations (# ! each (|>> (n.% 20) ++) random.nat) - expected_inner_iterations (# ! each (n.% full_inner_iterations) random.nat) + full_inner_iterations (at ! each (|>> (n.% 20) ++) random.nat) + expected_inner_iterations (at ! each (n.% full_inner_iterations) random.nat) - @outer (# ! each /.label (random.upper_case 5)) - full_outer_iterations (# ! each (|>> (n.% 10) ++) random.nat) - expected_outer_iterations (# ! each (n.% full_outer_iterations) random.nat) + @outer (at ! each /.label (random.upper_case 5)) + full_outer_iterations (at ! each (|>> (n.% 10) ++) random.nat) + expected_outer_iterations (at ! each (n.% full_outer_iterations) random.nat) .let [$input (/.var "input") $output (/.var "output") @@ -553,7 +553,7 @@ Test (do [! random.monad] [input ..int_16 - iterations (# ! each (n.% 10) random.nat) + iterations (at ! each (n.% 10) random.nat) .let [$input (/.var "input") $output (/.var "output") $index (/.var "index") @@ -607,7 +607,7 @@ [expected random.safe_frac dummy (random.only (|>> (f.= expected) not) random.safe_frac) - $ex (# ! each /.var (random.lower_case 10))] + $ex (at ! each /.var (random.lower_case 10))] (all _.and (_.coverage [/.try] (expression (|>> (as Frac) (f.= expected)) @@ -631,9 +631,9 @@ [number/0 random.safe_frac number/1 random.safe_frac number/2 random.safe_frac - $arg/0 (# ! each /.var (random.lower_case 10)) - $arg/1 (# ! each /.var (random.lower_case 11)) - $arg/2 (# ! each /.var (random.lower_case 12))] + $arg/0 (at ! each /.var (random.lower_case 10)) + $arg/1 (at ! each /.var (random.lower_case 11)) + $arg/2 (at ! each /.var (random.lower_case 12))] (`` (all _.and (_.coverage [/.apply_1] (expression (|>> (as Frac) (f.= number/0)) @@ -662,11 +662,11 @@ Test (do [! random.monad] [number/0 random.safe_frac - iterations (# ! each (n.% 10) random.nat) - $self (# ! each /.var (random.lower_case 1)) - $arg/0 (# ! each /.var (random.lower_case 2)) + iterations (at ! each (n.% 10) random.nat) + $self (at ! each /.var (random.lower_case 1)) + $arg/0 (at ! each /.var (random.lower_case 2)) field (random.lower_case 3) - $class (# ! each /.var (random.upper_case 4))] + $class (at ! each /.var (random.upper_case 4))] (all _.and (_.coverage [/.closure /.return] (expression (|>> (as Frac) (f.= number/0)) @@ -768,9 +768,9 @@ [number/0 random.safe_frac number/1 random.safe_frac number/2 random.safe_frac - $arg/0 (# ! each /.var (random.lower_case 10)) - $arg/1 (# ! each /.var (random.lower_case 11)) - $arg/2 (# ! each /.var (random.lower_case 12)) + $arg/0 (at ! each /.var (random.lower_case 10)) + $arg/1 (at ! each /.var (random.lower_case 11)) + $arg/2 (at ! each /.var (random.lower_case 12)) ??? random.bit int ..int_16] (`` (all _.and diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index c2c1e49f3..9f93ee4e1 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -184,7 +184,7 @@ (/.invokestatic ..$Byte "valueOf" (/type.method [(list) (list /type.byte) ..$Byte (list)]))) (def: $Byte::random (Random java/lang/Byte) - (# random.monad each (|>> (as java/lang/Long) ffi.long_to_byte) random.int)) + (at random.monad each (|>> (as java/lang/Long) ffi.long_to_byte) random.int)) (def: $Byte::literal (-> java/lang/Byte (Bytecode Any)) (|>> ffi.byte_to_long (as I64) i32.i32 /.int)) @@ -202,7 +202,7 @@ (/.invokestatic ..$Short "valueOf" (/type.method [(list) (list /type.short) ..$Short (list)]))) (def: $Short::random (Random java/lang/Short) - (# random.monad each (|>> (as java/lang/Long) ffi.long_to_short) random.int)) + (at random.monad each (|>> (as java/lang/Long) ffi.long_to_short) random.int)) (def: $Short::literal (-> java/lang/Short (Bytecode Any)) (|>> ffi.short_to_long (as I64) i32.i32 /.int)) @@ -220,7 +220,7 @@ (/.invokestatic ..$Integer "valueOf" (/type.method [(list) (list /type.int) ..$Integer (list)]))) (def: $Integer::random (Random java/lang/Integer) - (# random.monad each (|>> (as java/lang/Long) ffi.long_to_int) random.int)) + (at random.monad each (|>> (as java/lang/Long) ffi.long_to_int) random.int)) (def: $Integer::literal (-> java/lang/Integer (Bytecode Any)) (|>> ffi.int_to_long (as I64) i32.i32 /.int)) @@ -248,9 +248,9 @@ (def: $Float::wrap (/.invokestatic ..$Float "valueOf" (/type.method [(list) (list /type.float) ..$Float (list)]))) (def: $Float::random (Random java/lang/Float) - (# random.monad each - (|>> (as java/lang/Double) ffi.double_to_float) - random.frac)) + (at random.monad each + (|>> (as java/lang/Double) ffi.double_to_float) + random.frac)) (def: $Float::literal /.float) (def: valid_float (Random java/lang/Float) @@ -288,7 +288,7 @@ (/.invokestatic ..$Character "valueOf" (/type.method [(list) (list /type.char) ..$Character (list)]))) (def: $Character::random (Random java/lang/Character) - (# random.monad each (|>> (as java/lang/Long) ffi.long_to_int ffi.int_to_char) random.int)) + (at random.monad each (|>> (as java/lang/Long) ffi.long_to_int ffi.int_to_char) random.int)) (def: $Character::literal (-> java/lang/Character (Bytecode Any)) (|>> ffi.char_to_long (as I64) i32.i32 /.int)) @@ -323,7 +323,7 @@ [(def: <name> Test (do [! random.monad] - [expected (# ! each (i64.and (i64.mask <bits>)) random.nat)] + [expected (at ! each (i64.and (i64.mask <bits>)) random.nat)] (<| (_.lifted <message>) (..bytecode (for @.old (|>> (as <type>) <to_long> ("jvm leq" expected)) @@ -402,7 +402,7 @@ shift (is (-> (-> java/lang/Integer java/lang/Integer java/lang/Integer) (Bytecode Any) (Random Bit)) (function (_ reference instruction) (do [! random.monad] - [parameter (# ! each (|>> (n.% 32) .int (as java/lang/Long) ffi.long_to_int) random.nat) + [parameter (at ! each (|>> (n.% 32) .int (as java/lang/Long) ffi.long_to_int) random.nat) subject ..$Integer::random] (int (reference parameter subject) (do /.monad @@ -481,7 +481,7 @@ shift (is (-> (-> java/lang/Integer java/lang/Long java/lang/Long) (Bytecode Any) (Random Bit)) (function (_ reference instruction) (do [! random.monad] - [parameter (# ! each (|>> (n.% 64) (as java/lang/Long)) random.nat) + [parameter (at ! each (|>> (n.% 64) (as java/lang/Long)) random.nat) subject ..$Long::random] (long (reference (ffi.long_to_int parameter) subject) (do /.monad @@ -963,7 +963,7 @@ Test)) (function (_ constructor random literal [*store *load *wrap] test) (do [! random.monad] - [size (# ! each (|>> (n.% 1024) (n.max 1)) random.nat) + [size (at ! each (|>> (n.% 1024) (n.max 1)) random.nat) value random] (all _.and (<| (_.lifted "length") @@ -1035,8 +1035,8 @@ (function (_ expected) (|>> (as Text) (text#= (as Text expected)))))) (<| (_.context "multi") (do [! random.monad] - [.let [size (# ! each (|>> (n.% 5) (n.+ 1)) - random.nat)] + [.let [size (at ! each (|>> (n.% 5) (n.+ 1)) + random.nat)] dimensions size sizesH size sizesT (random.list (-- dimensions) size) @@ -1148,7 +1148,7 @@ (function (_ random_value literal *wrap [store load] test) (do [! random.monad] [expected random_value - register (# ! each (n.% 128) random.nat)] + register (at ! each (n.% 128) random.nat)] (<| (..bytecode (test expected)) (do /.monad [_ (literal expected) @@ -1172,8 +1172,8 @@ (_.lifted "IINC" (do [! random.monad] [base ..$Byte::random - increment (# ! each (|>> (n.% 100) /unsigned.u1 try.trusted) - random.nat) + increment (at ! each (|>> (n.% 100) /unsigned.u1 try.trusted) + random.nat) .let [expected (is java/lang/Long (for @.old ("jvm ladd" @@ -1497,9 +1497,9 @@ (do [! random.monad] [expected ..$Long::random dummy ..$Long::random - minimum (# ! each (|>> (n.% 100) .int /signed.s4 try.trusted) - random.nat) - afterwards (# ! each (n.% 10) random.nat)]) + minimum (at ! each (|>> (n.% 100) .int /signed.s4 try.trusted) + random.nat) + afterwards (at ! each (n.% 10) random.nat)]) (..bytecode ((!::= java/lang/Long "jvm leq" "jvm long =") expected)) (do /.monad [@right /.new_label @@ -1516,13 +1516,13 @@ ..$Long::wrap)) (<| (_.lifted "LOOKUPSWITCH") (do [! random.monad] - [options (# ! each (|>> (n.% 10) (n.+ 1)) - random.nat) - choice (# ! each (n.% options) random.nat) + [options (at ! each (|>> (n.% 10) (n.+ 1)) + random.nat) + choice (at ! each (n.% options) random.nat) options (|> random.int - (# ! each (|>> (as java/lang/Long) ffi.long_to_int ffi.int_to_long (as Int))) + (at ! each (|>> (as java/lang/Long) ffi.long_to_int ffi.int_to_long (as Int))) (random.set i.hash options) - (# ! each set.list)) + (at ! each set.list)) .let [choice (maybe.trusted (list.item choice options))] expected ..$Long::random dummy ..$Long::random]) diff --git a/stdlib/source/test/lux/target/lua.lux b/stdlib/source/test/lux/target/lua.lux index fbdc7625e..98c79bcd2 100644 --- a/stdlib/source/test/lux/target/lua.lux +++ b/stdlib/source/test/lux/target/lua.lux @@ -108,7 +108,7 @@ (do [! random.monad] [left random.int right random.int - shift (# ! each (n.% 65) random.nat) + shift (at ! each (n.% 65) random.nat) parameter (random.only (|>> (i.= +0) not) random.int) @@ -196,8 +196,8 @@ (def: test|array Test (do [! random.monad] - [size (# ! each (|>> (n.% 10) ++) random.nat) - index (# ! each (n.% size) random.nat) + [size (at ! each (|>> (n.% 10) ++) random.nat) + index (at ! each (n.% size) random.nat) items (random.list size random.safe_frac) .let [expected (|> items (list.item index) @@ -223,13 +223,13 @@ dummy (random.only (|>> (f.= expected) not) random.safe_frac) - size (# ! each (|>> (n.% 10) ++) random.nat) - index (# ! each (n.% size) random.nat) + size (at ! each (|>> (n.% 10) ++) random.nat) + index (at ! each (n.% size) random.nat) items (random.list size random.safe_frac) - $self (# ! each /.var (random.lower_case 10)) - $table (# ! each /.var (random.lower_case 11)) - $arg (# ! each /.var (random.lower_case 12)) + $self (at ! each /.var (random.lower_case 10)) + $table (at ! each /.var (random.lower_case 11)) + $arg (at ! each /.var (random.lower_case 12)) field (random.upper_case 5) non_field (random.only (|>> (text#= field) not) (random.upper_case 5)) @@ -360,9 +360,9 @@ [float/0 random.safe_frac float/1 random.safe_frac int/0 ..int_16 - $foreign (# ! each /.var (random.lower_case 10)) - $arg/0 (# ! each /.var (random.lower_case 11)) - $arg/1 (# ! each /.var (random.lower_case 12)) + $foreign (at ! each /.var (random.lower_case 10)) + $arg/0 (at ! each /.var (random.lower_case 11)) + $arg/1 (at ! each /.var (random.lower_case 12)) field (random.upper_case 10)] (all _.and (_.coverage [/.set] @@ -411,14 +411,14 @@ (do [! random.monad] [input ..int_16 - full_iterations (# ! each (|>> (n.% 20) ++) random.nat) - expected_iterations (# ! each (|>> (n.% full_iterations) .int) random.nat) + full_iterations (at ! each (|>> (n.% 20) ++) random.nat) + expected_iterations (at ! each (|>> (n.% full_iterations) .int) random.nat) - $input (# ! each /.var (random.lower_case 10)) - $output (# ! each /.var (random.lower_case 11)) - $index (# ! each /.var (random.lower_case 12)) + $input (at ! each /.var (random.lower_case 10)) + $output (at ! each /.var (random.lower_case 11)) + $index (at ! each /.var (random.lower_case 12)) - @loop (# ! each /.label (random.lower_case 13)) + @loop (at ! each /.label (random.lower_case 13)) .let [expected (i.* expected_iterations input) expected_iterations (/.int expected_iterations)]] @@ -500,7 +500,7 @@ Test (do [! random.monad] [input ..int_16 - iterations (# ! each (n.% 10) random.nat) + iterations (at ! each (n.% 10) random.nat) .let [$input (/.var "input") $output (/.var "output") $index (/.var "index") @@ -560,8 +560,8 @@ [expected random.safe_frac dummy (random.only (|>> (f.= expected) not) random.safe_frac) - $verdict (# ! each /.var (random.lower_case 10)) - $outcome (# ! each /.var (random.lower_case 11))] + $verdict (at ! each /.var (random.lower_case 10)) + $outcome (at ! each /.var (random.lower_case 11))] (all _.and (_.coverage [/.pcall/1] (expression (|>> (as Frac) (f.= expected)) @@ -603,11 +603,11 @@ Test (do [! random.monad] [float/0 random.safe_frac - iterations (# ! each (n.% 10) random.nat) - $self (# ! each /.var (random.lower_case 1)) - $arg/0 (# ! each /.var (random.lower_case 2)) + iterations (at ! each (n.% 10) random.nat) + $self (at ! each /.var (random.lower_case 1)) + $arg/0 (at ! each /.var (random.lower_case 2)) field (random.lower_case 3) - $class (# ! each /.var (random.upper_case 4))] + $class (at ! each /.var (random.upper_case 4))] (all _.and (_.coverage [/.closure /.return] (expression (|>> (as Frac) (f.= float/0)) @@ -627,9 +627,9 @@ [float/0 random.safe_frac float/1 random.safe_frac float/2 random.safe_frac - $arg/0 (# ! each /.var (random.lower_case 10)) - $arg/1 (# ! each /.var (random.lower_case 11)) - $arg/2 (# ! each /.var (random.lower_case 12))] + $arg/0 (at ! each /.var (random.lower_case 10)) + $arg/1 (at ! each /.var (random.lower_case 11)) + $arg/2 (at ! each /.var (random.lower_case 12))] (`` (all _.and (_.coverage [/.apply] (expression (|>> (as Frac) (f.= (all f.+ float/0 float/1 float/2))) @@ -685,8 +685,8 @@ (do [! random.monad] [float/0 random.safe_frac float/1 random.safe_frac - $arg/0 (# ! each /.var (random.lower_case 10)) - $arg/1 (# ! each /.var (random.lower_case 11))] + $arg/0 (at ! each /.var (random.lower_case 10)) + $arg/1 (at ! each /.var (random.lower_case 11))] (`` (all _.and (_.coverage [/.statement /.then /.print/1] (expression (|>> (as Frac) (f.= float/0)) @@ -702,7 +702,7 @@ (def: .public test Test (do [! random.monad] - [.let [random (# ! each /.int random.int)] + [.let [random (at ! each /.int random.int)] expected random.int] (<| (_.covering /._) (_.for [/.Code /.code]) diff --git a/stdlib/source/test/lux/target/python.lux b/stdlib/source/test/lux/target/python.lux index 35fbf47c8..3dd88db55 100644 --- a/stdlib/source/test/lux/target/python.lux +++ b/stdlib/source/test/lux/target/python.lux @@ -157,8 +157,8 @@ [left random.int right random.int - i16 (# ! each ..int_16 random.int) - shift (# ! each (n.% 16) random.nat)] + i16 (at ! each ..int_16 random.int) + shift (at ! each (n.% 16) random.nat)] (`` (all _.and (~~ (template [</> <lux>] [(_.coverage [</>] @@ -209,7 +209,7 @@ (def: test|text Test (do [! random.monad] - [expected_code (# ! each (n.% 128) random.nat) + [expected_code (at ! each (n.% 128) random.nat) .let [expected_char (text.of_char expected_code)]] (all _.and (_.coverage [/.chr/1 /.ord/1 @@ -227,14 +227,14 @@ (def: test|array Test (do [! random.monad] - [size (# ! each (|>> (n.% 10) ++) random.nat) - index (# ! each (n.% size) random.nat) + [size (at ! each (|>> (n.% 10) ++) random.nat) + index (at ! each (n.% size) random.nat) items (random.list size random.safe_frac) .let [expected (|> items (list.item index) (maybe.else f.not_a_number))] - from (# ! each (n.% size) random.nat) - plus (# ! each (n.% (n.- from size)) random.nat) + from (at ! each (n.% size) random.nat) + plus (at ! each (n.% (n.- from size)) random.nat) .let [slice_from|size (n.- from size) to (/.int (.int (n.+ plus from))) from (/.int (.int from))]] @@ -293,8 +293,8 @@ string (random.upper_case 5) comment (random.upper_case 10) - $arg/0 (# ! each /.var (random.lower_case 10)) - $arg/1 (# ! each /.var (random.lower_case 11))] + $arg/0 (at ! each /.var (random.lower_case 10)) + $arg/1 (at ! each /.var (random.lower_case 11))] (all _.and ..test|bool ..test|float @@ -337,9 +337,9 @@ [float/0 random.safe_frac float/1 random.safe_frac float/2 random.safe_frac - $arg/0 (# ! each /.var (random.lower_case 10)) - $arg/1 (# ! each /.var (random.lower_case 11)) - $arg/2 (# ! each /.var (random.lower_case 12))] + $arg/0 (at ! each /.var (random.lower_case 10)) + $arg/1 (at ! each /.var (random.lower_case 11)) + $arg/2 (at ! each /.var (random.lower_case 12))] (all _.and (_.coverage [/.lambda] (expression (|>> (as Frac) (f.= float/0)) @@ -358,7 +358,7 @@ (do [! random.monad] [expected/0 random.safe_frac expected/1 random.safe_frac - poly_choice (# ! each (n.% 2) random.nat) + poly_choice (at ! each (n.% 2) random.nat) .let [keyword (|>> %.nat (format "k") /.string) keyword/0 (keyword 0) keyword/1 (keyword 1) @@ -366,8 +366,8 @@ .let [expected/? (case poly_choice 0 expected/0 _ expected/1)] - $var (# ! each (|>> %.nat (format "v") /.var) random.nat) - $choice (# ! each (|>> %.nat (format "c") /.var) random.nat)] + $var (at ! each (|>> %.nat (format "v") /.var) random.nat) + $choice (at ! each (|>> %.nat (format "c") /.var) random.nat)] (all _.and (_.coverage [/.Single /.SVar /.var] (expression (|>> (as Frac) (f.= expected/0)) @@ -445,10 +445,10 @@ (def: test|access Test (do [! random.monad] - [$var/0 (# ! each (|>> %.nat (format "v0_") /.var) random.nat) + [$var/0 (at ! each (|>> %.nat (format "v0_") /.var) random.nat) expected/0 random.safe_frac dummy/0 random.safe_frac - field (# ! each /.string (random.upper_case 1))] + field (at ! each /.string (random.upper_case 1))] (all _.and (_.coverage [/.item] (`` (and (~~ (template [<seq>] @@ -483,13 +483,13 @@ (def: test|location Test (do [! random.monad] - [$var/0 (# ! each (|>> %.nat (format "v0_") /.var) random.nat) - $var/1 (# ! each (|>> %.nat (format "v1_") /.var) random.nat) - $def (# ! each (|>> %.nat (format "def_") /.var) random.nat) + [$var/0 (at ! each (|>> %.nat (format "v0_") /.var) random.nat) + $var/1 (at ! each (|>> %.nat (format "v1_") /.var) random.nat) + $def (at ! each (|>> %.nat (format "def_") /.var) random.nat) expected/0 random.safe_frac expected/1 random.safe_frac dummy/0 random.safe_frac - field/0 (# ! each /.string (random.upper_case 1))] + field/0 (at ! each /.string (random.upper_case 1))] (all _.and (_.coverage [/.set] (|> (..statement @@ -598,7 +598,7 @@ expected random.safe_frac dummy (random.only (|>> (f.= expected) not) random.safe_frac) - $ex (# ! each (|>> %.nat (format "ex_") /.var) random.nat)] + $ex (at ! each (|>> %.nat (format "ex_") /.var) random.nat)] (all _.and (_.coverage [/.raise /.Exception/1] (case (try (..statement @@ -640,12 +640,12 @@ (def: test|loop Test (do [! random.monad] - [base (# ! each (n.% 100) random.nat) - factor (# ! each (|>> (n.% 10) ++) random.nat) - extra (# ! each (|>> (n.% 10) ++) random.nat) + [base (at ! each (n.% 100) random.nat) + factor (at ! each (|>> (n.% 10) ++) random.nat) + extra (at ! each (|>> (n.% 10) ++) random.nat) .let [expected (n.* factor base)] - $iteration (# ! each (|>> %.nat (format "iteration_") /.var) random.nat) - $temp (# ! each (|>> %.nat (format "temp_") /.var) random.nat)] + $iteration (at ! each (|>> %.nat (format "iteration_") /.var) random.nat) + $temp (at ! each (|>> %.nat (format "temp_") /.var) random.nat)] (all _.and (_.coverage [/.while] (and (|> (..statement @@ -745,8 +745,8 @@ (def: test|statement Test (do [! random.monad] - [$def (# ! each (|>> %.nat (format "def_") /.var) random.nat) - $input/0 (# ! each (|>> %.nat (format "input_") /.var) random.nat) + [$def (at ! each (|>> %.nat (format "def_") /.var) random.nat) + $input/0 (at ! each (|>> %.nat (format "input_") /.var) random.nat) expected/0 random.safe_frac test random.bit then random.safe_frac diff --git a/stdlib/source/test/lux/target/ruby.lux b/stdlib/source/test/lux/target/ruby.lux index 5e5588be7..3d0e61485 100644 --- a/stdlib/source/test/lux/target/ruby.lux +++ b/stdlib/source/test/lux/target/ruby.lux @@ -148,8 +148,8 @@ [left random.int right random.int - i16 (# ! each ..int_16 random.int) - shift (# ! each (n.% 16) random.nat)] + i16 (at ! each ..int_16 random.int) + shift (at ! each (n.% 16) random.nat)] (`` (all _.and (~~ (template [</> <lux>] [(_.coverage [</>] @@ -182,14 +182,14 @@ (def: test|array Test (do [! random.monad] - [size (# ! each (|>> (n.% 10) ++) random.nat) - index (# ! each (n.% size) random.nat) + [size (at ! each (|>> (n.% 10) ++) random.nat) + index (at ! each (n.% size) random.nat) items (random.list size random.safe_frac) .let [expected (|> items (list.item index) (maybe.else f.not_a_number))] - from (# ! each (n.% size) random.nat) - plus (# ! each (n.% (n.- from size)) random.nat) + from (at ! each (n.% size) random.nat) + plus (at ! each (n.% (n.- from size)) random.nat) .let [to (/.int (.int (n.+ plus from))) from (/.int (.int from))]] (all _.and @@ -230,22 +230,22 @@ (def: test|object Test (do [! random.monad] - [size (# ! each (|>> (n.% 10) ++) random.nat) - index (# ! each (n.% size) random.nat) + [size (at ! each (|>> (n.% 10) ++) random.nat) + index (at ! each (n.% size) random.nat) items (random.list size random.safe_frac) - $class (# ! each (|>> %.nat (format "class_") /.local) - random.nat) - $sub_class (# ! each (|>> %.nat (format "sub_class_") /.local) + $class (at ! each (|>> %.nat (format "class_") /.local) + random.nat) + $sub_class (at ! each (|>> %.nat (format "sub_class_") /.local) + random.nat) + $method/0 (at ! each (|>> %.nat (format "method_") /.local) random.nat) - $method/0 (# ! each (|>> %.nat (format "method_") /.local) - random.nat) $method/1 (|> random.nat - (# ! each (|>> %.nat (format "method_") /.local)) + (at ! each (|>> %.nat (format "method_") /.local)) (random.only (|>> (/#= $method/0) not))) - $arg/0 (# ! each (|>> %.nat (format "arg_") /.local) - random.nat) - $state (# ! each (|>> %.nat (format "instance_") /.instance) - random.nat) + $arg/0 (at ! each (|>> %.nat (format "arg_") /.local) + random.nat) + $state (at ! each (|>> %.nat (format "instance_") /.instance) + random.nat) single random.safe_frac .let [double (/.function $method/0 (list $arg/0) (/.return (/.+ $arg/0 $arg/0)))]] @@ -332,9 +332,9 @@ (<| (do [! random.monad] [left (random.upper_case 5) right (random.upper_case 5) - $old (# ! each /.local (random.upper_case 1)) - $new (# ! each /.local (random.upper_case 2)) - $it (# ! each /.local (random.upper_case 3)) + $old (at ! each /.local (random.upper_case 1)) + $new (at ! each /.local (random.upper_case 2)) + $it (at ! each /.local (random.upper_case 3)) .let [expected (format left right)]]) (all _.and (_.for [/.stdout] @@ -433,8 +433,8 @@ Test (do [! random.monad] [float/0 random.safe_frac - $global (# ! each /.global (random.lower_case 10)) - pattern (# ! each /.string (random.lower_case 11))] + $global (at ! each /.global (random.lower_case 10)) + pattern (at ! each /.string (random.lower_case 11))] (all _.and (_.coverage [/.global] (expression (|>> (as Text) (text#= "global-variable")) @@ -444,7 +444,7 @@ [(list)] (/.lambda {.#None}) (/.apply_lambda (list))))) (_.coverage [/.script_name] - (expression (let [file (format (# file.default separator) packager.main_file)] + (expression (let [file (format (at file.default separator) packager.main_file)] (|>> (as Text) (text.ends_with? file))) /.script_name)) @@ -487,7 +487,7 @@ Test (do [! random.monad] [float/0 random.safe_frac - $foreign (# ! each /.local (random.lower_case 10))] + $foreign (at ! each /.local (random.lower_case 10))] (all _.and (_.coverage [/.local] (expression (|>> (as Frac) (f.= (f.+ float/0 float/0))) @@ -507,15 +507,15 @@ Test (do [! random.monad] [float/0 random.safe_frac - instance (# ! each (|>> %.nat (format "instance_")) - random.nat) + instance (at ! each (|>> %.nat (format "instance_")) + random.nat) .let [$instance (/.instance instance)] - $method (# ! each (|>> %.nat (format "method_") /.local) + $method (at ! each (|>> %.nat (format "method_") /.local) + random.nat) + $class (at ! each (|>> %.nat (format "class_") /.local) random.nat) - $class (# ! each (|>> %.nat (format "class_") /.local) - random.nat) - $object (# ! each (|>> %.nat (format "object_") /.local) - random.nat)] + $object (at ! each (|>> %.nat (format "object_") /.local) + random.nat)] (all _.and (_.coverage [/.instance] (expression (|>> (as Frac) (f.= float/0)) @@ -578,16 +578,16 @@ (def: test|static_var Test (do [! random.monad] - [int/0 (# ! each (|>> (n.% 10) ++ .int) + [int/0 (at ! each (|>> (n.% 10) ++ .int) + random.nat) + $static (at ! each (|>> %.nat (format "static_") /.static) + random.nat) + $arg (at ! each (|>> %.nat /.local) random.nat) - $static (# ! each (|>> %.nat (format "static_") /.static) - random.nat) - $arg (# ! each (|>> %.nat /.local) - random.nat) - $method (# ! each (|>> %.nat (format "method_") /.local) - random.nat) - $class (# ! each (|>> %.nat (format "class_") /.local) - random.nat)] + $method (at ! each (|>> %.nat (format "method_") /.local) + random.nat) + $class (at ! each (|>> %.nat (format "class_") /.local) + random.nat)] (all _.and (_.coverage [/.static /.class_variable_set /.class_variable_get] (expression (|>> (as Int) (i.= int/0)) @@ -604,14 +604,14 @@ (def: test|variadic Test (do [! random.monad] - [$inputs (# ! each /.local (random.lower_case 10)) - arity (# ! each (n.% 10) random.nat) + [$inputs (at ! each /.local (random.lower_case 10)) + arity (at ! each (n.% 10) random.nat) vals (|> random.int - (# ! each /.int) + (at ! each /.int) (random.list arity)) keys (|> (random.lower_case 1) (random.set text.hash arity) - (# ! each (|>> set.list (list#each /.string))))] + (at ! each (|>> set.list (list#each /.string))))] (all _.and (<| (_.for [/.LVar*]) (all _.and @@ -637,9 +637,9 @@ Test (do [! random.monad] [float/0 random.safe_frac - $foreign (# ! each /.local (random.lower_case 10)) + $foreign (at ! each /.local (random.lower_case 10)) - $constant (# ! each /.constant (random.lower_case 10))] + $constant (at ! each /.constant (random.lower_case 10))] (all _.and (_.coverage [/.defined?/1] (and (expression (|>> (as Bit)) @@ -674,8 +674,8 @@ Test (do [! random.monad] [float/0 random.safe_frac - $foreign (# ! each /.local (random.lower_case 10)) - field (# ! each /.string (random.upper_case 10))] + $foreign (at ! each /.local (random.lower_case 10)) + field (at ! each /.string (random.upper_case 10))] (all _.and (<| (_.for [/.Var]) ..test|var) @@ -716,13 +716,13 @@ (def: test|label Test (do [! random.monad] - [input (# ! each ..int_16 random.int) + [input (at ! each ..int_16 random.int) - full_inner_iterations (# ! each (|>> (n.% 20) ++) random.nat) - expected_inner_iterations (# ! each (n.% full_inner_iterations) random.nat) + full_inner_iterations (at ! each (|>> (n.% 20) ++) random.nat) + expected_inner_iterations (at ! each (n.% full_inner_iterations) random.nat) - full_outer_iterations (# ! each (|>> (n.% 10) ++) random.nat) - expected_outer_iterations (# ! each (n.% full_outer_iterations) random.nat) + full_outer_iterations (at ! each (|>> (n.% 10) ++) random.nat) + expected_outer_iterations (at ! each (n.% full_outer_iterations) random.nat) .let [$input (/.local "input") $output (/.local "output") @@ -782,8 +782,8 @@ (def: test|loop Test (do [! random.monad] - [input (# ! each (i.right_shifted 32) random.int) - iterations (# ! each (n.% 10) random.nat) + [input (at ! each (i.right_shifted 32) random.int) + iterations (at ! each (n.% 10) random.nat) .let [$input (/.local "input") $output (/.local "output") $index (/.local "index") @@ -826,7 +826,7 @@ dummy (random.only (|>> (f.= expected) not) random.safe_frac) error (random.lower_case 10) - $ex (# ! each /.local (random.lower_case 10)) + $ex (at ! each /.local (random.lower_case 10)) expected_tag ..random_tag dummy_tag (random.only (|>> (i.= expected_tag) not) @@ -904,17 +904,17 @@ (def: test|function Test (do [! random.monad] - [iterations (# ! each (n.% 10) random.nat) - $self (# ! each /.local (random.lower_case 1)) + [iterations (at ! each (n.% 10) random.nat) + $self (at ! each /.local (random.lower_case 1)) field (random.lower_case 3) - $class (# ! each /.local (random.upper_case 4)) + $class (at ! each /.local (random.upper_case 4)) float/0 random.safe_frac float/1 random.safe_frac float/2 random.safe_frac - $arg/0 (# ! each /.local (random.lower_case 10)) - $arg/1 (# ! each /.local (random.lower_case 11)) - $arg/2 (# ! each /.local (random.lower_case 12))] + $arg/0 (at ! each /.local (random.lower_case 10)) + $arg/1 (at ! each /.local (random.lower_case 11)) + $arg/2 (at ! each /.local (random.lower_case 12))] (all _.and (_.coverage [/.lambda /.return] (and (expression (|>> (as Frac) (f.= float/0)) @@ -992,11 +992,11 @@ [float/0 random.safe_frac float/1 random.safe_frac float/2 random.safe_frac - $arg/0 (# ! each /.local (random.lower_case 10)) - $arg/1 (# ! each /.local (random.lower_case 11)) - $arg/2 (# ! each /.local (random.lower_case 12)) - expected (# ! each (|>> %.int (text.replaced "+" "")) - random.int)] + $arg/0 (at ! each /.local (random.lower_case 10)) + $arg/1 (at ! each /.local (random.lower_case 11)) + $arg/2 (at ! each /.local (random.lower_case 12)) + expected (at ! each (|>> %.int (text.replaced "+" "")) + random.int)] (all _.and (_.coverage [/.statement] (expression (|>> (as Frac) (f.= float/0)) diff --git a/stdlib/source/test/lux/test.lux b/stdlib/source/test/lux/test.lux index b43483870..c8c3d1492 100644 --- a/stdlib/source/test/lux/test.lux +++ b/stdlib/source/test/lux/test.lux @@ -100,7 +100,7 @@ (n.= 0 (the /.#successes tally)) (n.= 1 (the /.#failures tally))))))) (do [! random.monad] - [expected (# ! each (|>> (n.% 10) ++) random.nat) + [expected (at ! each (|>> (n.% 10) ++) random.nat) .let [counter (is (Atom Nat) (atom.atom 0))] times_assertion (<| (/.times expected) @@ -121,7 +121,7 @@ /.Test (all /.and (do [! random.monad] - [expected (# ! each (|>> (n.% 10) ++) random.nat) + [expected (at ! each (|>> (n.% 10) ++) random.nat) .let [counter (is (Atom Nat) (atom.atom 0))] assertion (<| /.in_parallel @@ -139,7 +139,7 @@ (n.= expected (the /.#successes tally)) (n.= 0 (the /.#failures tally))))))) (do [! random.monad] - [expected (# ! each (|>> (n.% 10) ++) random.nat) + [expected (at ! each (|>> (n.% 10) ++) random.nat) .let [counter (is (Atom Nat) (atom.atom 0))] assertion (<| /.in_parallel diff --git a/stdlib/source/test/lux/time.lux b/stdlib/source/test/lux/time.lux index 456409afd..5fe4af48e 100644 --- a/stdlib/source/test/lux/time.lux +++ b/stdlib/source/test/lux/time.lux @@ -53,16 +53,16 @@ (|> expected /.clock /.time - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))))) (def: for_ranges Test (do [! random.monad] - [valid_hour (# ! each (|>> (n.% /.hours) (n.max 10)) random.nat) - valid_minute (# ! each (|>> (n.% /.minutes) (n.max 10)) random.nat) - valid_second (# ! each (|>> (n.% /.seconds) (n.max 10)) random.nat) - valid_milli_second (# ! each (n.% /.milli_seconds) random.nat) + [valid_hour (at ! each (|>> (n.% /.hours) (n.max 10)) random.nat) + valid_minute (at ! each (|>> (n.% /.minutes) (n.max 10)) random.nat) + valid_second (at ! each (|>> (n.% /.seconds) (n.max 10)) random.nat) + valid_milli_second (at ! each (n.% /.milli_seconds) random.nat) .let [invalid_hour (|> valid_hour (n.+ /.hours)) invalid_minute (|> valid_minute (n.+ /.minutes) (n.min 99)) @@ -75,7 +75,7 @@ %.nat (text.prefix <prefix>) (text.suffix <suffix>) - (# /.codec decoded) + (at /.codec decoded) (pipe.case {try.#Success _} true {try.#Failure error} false)) @@ -85,7 +85,7 @@ %.nat (text.prefix <prefix>) (text.suffix <suffix>) - (# /.codec decoded) + (at /.codec decoded) (pipe.case {try.#Success _} false @@ -103,7 +103,7 @@ (|> valid_milli_second %.nat (format "00:00:00.") - (# /.codec decoded) + (at /.codec decoded) (pipe.case {try.#Success _} true {try.#Failure error} false))) @@ -117,8 +117,8 @@ [.let [day (.nat (duration.millis duration.day))] expected random.time - out_of_bounds (# ! each (|>> /.millis (n.+ day)) - random.time)] + out_of_bounds (at ! each (|>> /.millis (n.+ day)) + random.time)] (`` (all _.and ..for_implementation @@ -126,7 +126,7 @@ (|> expected /.millis /.of_millis - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.time_exceeds_a_day] (case (/.of_millis out_of_bounds) @@ -141,9 +141,9 @@ (n.= 0))) (_.coverage [/.parser] (|> expected - (# /.codec encoded) + (at /.codec encoded) (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) ..for_ranges (_.for [/.Clock] diff --git a/stdlib/source/test/lux/time/date.lux b/stdlib/source/test/lux/time/date.lux index 2d9a2486b..beaae5d9d 100644 --- a/stdlib/source/test/lux/time/date.lux +++ b/stdlib/source/test/lux/time/date.lux @@ -45,7 +45,7 @@ (|> (/.date (/.year expected) (/.month expected) (/.day_of_month expected)) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (do random.monad [expected random.date] @@ -64,7 +64,7 @@ (|> expected /.days /.of_days - (# /.equivalence = expected)))) + (at /.equivalence = expected)))) (_.coverage [/.epoch] (|> /.epoch /.days @@ -72,17 +72,17 @@ (do random.monad [expected random.date] (_.coverage [/.parser] - (|> (# /.codec encoded expected) + (|> (at /.codec encoded expected) (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (do [! random.monad] - [year (# ! each (|>> (n.% 10,000) ++) - random.nat) - month (# ! each (|>> (n.% 10) (n.+ 13)) + [year (at ! each (|>> (n.% 10,000) ++) random.nat) - day (# ! each (|>> (n.% 10) (n.+ 10)) - random.nat) + month (at ! each (|>> (n.% 10) (n.+ 13)) + random.nat) + day (at ! each (|>> (n.% 10) (n.+ 10)) + random.nat) .let [input (format (%.nat year) "-" (%.nat month) "-" (%.nat day))]] diff --git a/stdlib/source/test/lux/time/day.lux b/stdlib/source/test/lux/time/day.lux index 432012147..0e7e958cc 100644 --- a/stdlib/source/test/lux/time/day.lux +++ b/stdlib/source/test/lux/time/day.lux @@ -59,7 +59,7 @@ (do random.monad [not_a_day (random.upper_case 1)] (_.coverage [/.not_a_day_of_the_week] - (case (# /.codec decoded not_a_day) + (case (at /.codec decoded not_a_day) {try.#Failure error} (exception.match? /.not_a_day_of_the_week error) @@ -69,7 +69,7 @@ (|> expected /.number /.by_number - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.invalid_day] (case (/.by_number invalid) diff --git a/stdlib/source/test/lux/time/duration.lux b/stdlib/source/test/lux/time/duration.lux index d637ebf2f..4abe6f2e6 100644 --- a/stdlib/source/test/lux/time/duration.lux +++ b/stdlib/source/test/lux/time/duration.lux @@ -39,7 +39,7 @@ (do random.monad [duration random.duration] (_.coverage [/.of_millis /.millis] - (|> duration /.millis /.of_millis (# /.equivalence = duration)))) + (|> duration /.millis /.of_millis (at /.equivalence = duration)))) (do random.monad [.let [(open "#[0]") /.equivalence] expected random.duration @@ -67,10 +67,10 @@ [.let [(open "#[0]") /.order positive (|> random.duration (random.only (|>> (#= /.empty) not)) - (# ! each (function (_ duration) - (if (/.positive? duration) - duration - (/.inverse duration)))))] + (at ! each (function (_ duration) + (if (/.positive? duration) + duration + (/.inverse duration)))))] sample positive frame positive] (`` (all _.and @@ -82,7 +82,7 @@ (_.coverage [/.ticks] (i.= +1 (/.ticks sample sample))) (_.coverage [/.milli_second] - (#= /.empty (# /.enum pred /.milli_second))) + (#= /.empty (at /.enum pred /.milli_second))) (~~ (template [<factor> <big> <small>] [(_.coverage [<big>] (|> <big> (/.ticks <small>) (i.= <factor>)))] diff --git a/stdlib/source/test/lux/time/month.lux b/stdlib/source/test/lux/time/month.lux index b1950994b..a791e59a1 100644 --- a/stdlib/source/test/lux/time/month.lux +++ b/stdlib/source/test/lux/time/month.lux @@ -31,7 +31,7 @@ (Random /.Month) (let [december (/.number {/.#December})] (|> random.nat - (# random.monad each (|>> (n.% december) ++)) + (at random.monad each (|>> (n.% december) ++)) (random.one (|>> /.by_number try.maybe))))) (def: .public test @@ -60,7 +60,7 @@ (|> expected /.number /.by_number - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.invalid_month] (case (/.by_number invalid) @@ -91,7 +91,7 @@ (do random.monad [not_a_month (random.upper_case 1)] (_.coverage [/.not_a_month_of_the_year] - (case (# /.codec decoded not_a_month) + (case (at /.codec decoded not_a_month) {try.#Failure error} (exception.match? /.not_a_month_of_the_year error) diff --git a/stdlib/source/test/lux/time/year.lux b/stdlib/source/test/lux/time/year.lux index f80e03838..ef4bebaa3 100644 --- a/stdlib/source/test/lux/time/year.lux +++ b/stdlib/source/test/lux/time/year.lux @@ -73,9 +73,9 @@ (n.= (.nat (//duration.ticks //duration.day //duration.normal_year)) /.days)) (_.coverage [/.epoch] - (# /.equivalence = - (//date.year (//instant.date //instant.epoch)) - /.epoch)) + (at /.equivalence = + (//date.year (//instant.date //instant.epoch)) + /.epoch)) (_.for [/.Period] (_.coverage [/.leap /.century /.era] (n.= /.leap (n./ /.century /.era)))) diff --git a/stdlib/source/test/lux/tool/compiler/arity.lux b/stdlib/source/test/lux/tool/compiler/arity.lux index 7ba4457d0..a53ca8c6d 100644 --- a/stdlib/source/test/lux/tool/compiler/arity.lux +++ b/stdlib/source/test/lux/tool/compiler/arity.lux @@ -18,7 +18,7 @@ (<| (_.covering /._) (_.for [/.Arity]) (do [! random.monad] - [arity (# ! each (n.% 3) random.nat)] + [arity (at ! each (n.% 3) random.nat)] (all _.and (_.coverage [/.nullary?] (bit#= (n.= 0 arity) (/.nullary? arity))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux index a1f45b42d..c8d3a3c6d 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux @@ -478,7 +478,7 @@ (_.for [/.State+] ..test|state) (_.coverage [/.format] - (bit#= (# /.equivalence = left right) + (bit#= (at /.equivalence = left right) (text#= (/.format left) (/.format right)))) /complex.test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux index 6b10cb6ea..0943b9cdf 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux @@ -21,8 +21,8 @@ (def: test|tag Test (do [! random.monad] - [multiplicity (# ! each (n.max 2) random.nat) - tag (# ! each (n.% multiplicity) random.nat) + [multiplicity (at ! each (n.max 2) random.nat) + tag (at ! each (n.% multiplicity) random.nat) lefts random.nat right? random.bit] (all _.and @@ -71,6 +71,6 @@ [left random right random] (_.coverage [/.format] - (bit#= (# (/.equivalence n.equivalence) = left right) + (bit#= (at (/.equivalence n.equivalence) = left right) (text#= (/.format %.nat left) (/.format %.nat right))))) )))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux index 362d94927..21c47404c 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux @@ -61,8 +61,8 @@ cases (random.set n.hash cases ..random_tag)] (|> cases set.list - (monad.each ! (function (_ case) (# ! each (|>> [case]) again))) - (# ! each (dictionary.of_list n.hash)))) + (monad.each ! (function (_ case) (at ! each (|>> [case]) again))) + (at ! each (dictionary.of_list n.hash)))) ) (random.and again again) (random.and again again) @@ -98,7 +98,7 @@ )) (do [! random.monad] - [tag (# ! each ++ ..random_tag) + [tag (at ! each ++ ..random_tag) right? random.bit .let [lefts (//complex.lefts right? tag)] [sub_coverage sub_pattern] again] @@ -205,7 +205,7 @@ [[expected/0 pattern/0] ..random_partial_pattern [expected/1 pattern/1] (random.only (|>> product.left (/#= expected/0) not) ..random_partial_pattern) - expected_maximum (# ! each (n.+ 2) ..random_tag) + expected_maximum (at ! each (n.+ 2) ..random_tag) .let [random_tag (random#each (n.% expected_maximum) random.nat)] tag/0 random_tag tag/1 (random.only (|>> (n.= tag/0) not) random_tag) @@ -252,7 +252,7 @@ frac random.frac text (random.unicode 1) - arity (# ! each (n.+ 2) ..random_tag) + arity (at ! each (n.+ 2) ..random_tag) .let [random_tag (random#each (n.% arity) random.nat)] tag/0 random_tag tag/1 (random.only (|>> (n.= tag/0) not) random_tag)] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux index f7acc50f8..f69dd6382 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux @@ -105,7 +105,7 @@ expected ..primitive name ($symbol.random 1 1) [type/0 term/0] ..simple_parameter - arity (# ! each (n.% 10) random.nat) + arity (at ! each (n.% 10) random.nat) nats (random.list arity random.nat)] (all _.and (_.coverage [/.general] @@ -125,9 +125,9 @@ (/phase.result state) (try#each (function (_ [actual analysis/*]) (and (type#= expected actual) - (# (list.equivalence //.equivalence) = - (list#each (|>> //.nat) nats) - analysis/*)))) + (at (list.equivalence //.equivalence) = + (list#each (|>> //.nat) nats) + analysis/*)))) (try.else false)) (|> (/.general archive.empty ..analysis (type (-> type/0 expected)) @@ -218,12 +218,12 @@ .let [state [/extension.#bundle (/extension/analysis.bundle ..eval) /extension.#state lux]] name ($symbol.random 1 1) - arity (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) + arity (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) [type/0 term/0] ..simple_parameter [type/1 term/1] (random.only (|>> product.left (same? type/0) not) ..simple_parameter) types/*,terms/* (random.list arity ..simple_parameter) - tag (# ! each (n.% arity) random.nat) + tag (at ! each (n.% arity) random.nat) .let [[lefts right?] (//complex.choice arity tag)] arbitrary_right? random.bit] (all _.and @@ -327,7 +327,7 @@ .let [state [/extension.#bundle (/extension/analysis.bundle ..eval) /extension.#state lux]] name ($symbol.random 1 1) - arity (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) + arity (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) [type/0 term/0] ..simple_parameter [type/1 term/1] (random.only (|>> product.left (same? type/0) not) ..simple_parameter) @@ -404,7 +404,7 @@ [type/0 term/0] ..simple_parameter [type/1 term/1] (random.only (|>> product.left (same? type/0) not) ..simple_parameter) - lefts (# ! each (n.% 10) random.nat) + lefts (at ! each (n.% 10) random.nat) right? random.bit] (all _.and ..test|general diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux index 684873614..ff54e0902 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux @@ -51,10 +51,10 @@ (<| (_.covering /._) (_.for [/.Expander]) (do [! random.monad] - [multiplicity (# ! each (|>> (n.% 8) (n.+ 2)) - random.nat) - choice (# ! each (n.% multiplicity) - random.nat) + [multiplicity (at ! each (|>> (n.% 8) (n.+ 2)) + random.nat) + choice (at ! each (n.% multiplicity) + random.nat) expected_error (random.upper_case 5) name ($symbol.random 2 2) @@ -81,8 +81,8 @@ (_.coverage [/.expansion] (|> (/.expansion ..expander name multiple (list mono)) (meta.result lux) - (try#each (# (list.equivalence code.equivalence) = - (list.repeated multiplicity mono))) + (try#each (at (list.equivalence code.equivalence) = + (list.repeated multiplicity mono))) (try.else false))) (_.coverage [/.expansion_failed] (|> (/.expansion ..expander name singular (list)) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux index ef24e378b..9f641f906 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux @@ -209,13 +209,13 @@ public? random.bit def_type ..primitive - arity (# ! each (|>> (n.% 10) ++) random.nat) + arity (at ! each (|>> (n.% 10) ++) random.nat) labels|head (random.lower_case 1) labels|tail (|> (random.lower_case 1) (random.only (|>> (text#= labels|head) not)) (random.set text.hash (-- arity)) - (# ! each set.list)) - index (# ! each (n.% arity) random.nat) + (at ! each set.list)) + index (at ! each (n.% arity) random.nat) .let [definition {.#Definition [public? def_type []]} alias {.#Alias [module_name def_name]}]] (all _.and @@ -281,12 +281,12 @@ public? random.bit def_type ..primitive - arity (# ! each (|>> (n.% 10) ++) random.nat) + arity (at ! each (|>> (n.% 10) ++) random.nat) labels|head (random.lower_case 1) labels|tail (|> (random.lower_case 1) (random.only (|>> (text#= labels|head) not)) (random.set text.hash (-- arity)) - (# ! each set.list))] + (at ! each set.list))] (all _.and (_.coverage [/.declare_labels] (`` (and (~~ (template [<side> <record?> <query> <on_success>] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux index b78881b03..b45859c4f 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux @@ -52,7 +52,7 @@ ($equivalence.spec /.equivalence ..random)) (_.coverage [/.format] - (bit#= (# /.equivalence = left right) + (bit#= (at /.equivalence = left right) (text#= (/.format left) (/.format right)))) (_.coverage [/.unit] (case (/.unit) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux index a918dc13c..656722030 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux @@ -40,6 +40,6 @@ [left ..random right ..random] (_.coverage [/.format] - (bit#= (# /.equivalence = left right) + (bit#= (at /.equivalence = left right) (text#= (/.format left) (/.format right))))) ))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux index 67c097440..9d7d2abc2 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux @@ -917,10 +917,10 @@ @left (random.lower_case 9) @right (random.lower_case 10) - $abstraction/0 (# ! each code.local (random.lower_case 11)) - $parameter/0 (# ! each code.local (random.lower_case 12)) - $abstraction/1 (# ! each code.local (random.lower_case 13)) - $parameter/1 (# ! each code.local (random.lower_case 14))]) + $abstraction/0 (at ! each code.local (random.lower_case 11)) + $parameter/0 (at ! each code.local (random.lower_case 12)) + $abstraction/1 (at ! each code.local (random.lower_case 13)) + $parameter/1 (at ! each code.local (random.lower_case 14))]) (all _.and (_.coverage [/.phase] (and (..can_analyse_unit! lux module/0) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux index f69c47c4c..f8be52465 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux @@ -59,13 +59,13 @@ .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux]] module/0 (random.lower_case 1) - name/0 (# ! each (|>> [module/0]) (random.lower_case 2)) + name/0 (at ! each (|>> [module/0]) (random.lower_case 2)) [input/0 simple/0] $//inference.simple_parameter [input/1 simple/1] $//inference.simple_parameter [input/2 simple/2] $//inference.simple_parameter - $binding/0 (# ! each code.local (random.lower_case 3)) - $binding/1 (# ! each code.local (random.lower_case 4)) - $binding/2 (# ! each code.local (random.lower_case 5))] + $binding/0 (at ! each code.local (random.lower_case 3)) + $binding/1 (at ! each code.local (random.lower_case 4)) + $binding/2 (at ! each code.local (random.lower_case 5))] (all _.and (_.coverage [/.tuple] (let [tuple? (is (-> Type Type Bit) @@ -508,10 +508,10 @@ [output/0 body/0] $//inference.simple_parameter [output/1 body/1] (random.only (|>> product.left (same? output/0) not) $//inference.simple_parameter) - $binding/0 (# ! each code.local (random.lower_case 3)) - $binding/1 (# ! each code.local (random.lower_case 4)) - $binding/2 (# ! each code.local (random.lower_case 5)) - extension/0 (# ! each code.text (random.lower_case 6)) + $binding/0 (at ! each code.local (random.lower_case 3)) + $binding/1 (at ! each code.local (random.lower_case 4)) + $binding/2 (at ! each code.local (random.lower_case 5)) + extension/0 (at ! each code.text (random.lower_case 6)) bit/0 random.bit nat/0 random.nat] (all _.and diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux index 669d747ff..314dc7e6a 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux @@ -134,9 +134,9 @@ .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux]] name ($symbol.random 1 1) - arity (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) + arity (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) types/*,terms/* (random.list arity ..simple_parameter) - tag (# ! each (n.% arity) random.nat) + tag (at ! each (n.% arity) random.nat) .let [[lefts right?] (//complex.choice arity tag) [tagT tagC] (|> types/*,terms/* (list.item tag) @@ -217,13 +217,13 @@ .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux]] name ($symbol.random 1 1) - arity (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) + arity (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) types/*,terms/* (random.list arity ..simple_parameter) - tag (# ! each (n.% arity) random.nat) + tag (at ! each (n.% arity) random.nat) .let [[lefts right?] (//complex.choice arity tag)] tags (|> (random.lower_case 1) (random.set text.hash arity) - (# ! each set.list)) + (at ! each set.list)) .let [module (product.left name) sumT (type.variant (list#each product.left types/*,terms/*)) variantT {.#Named name sumT} @@ -290,7 +290,7 @@ .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux]] name ($symbol.random 1 1) - arity (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) + arity (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) types/*,terms/* (random.list arity ..simple_parameter) [type/0 term/0] ..simple_parameter [type/1 term/1] ..simple_parameter @@ -434,8 +434,8 @@ .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux]] name ($symbol.random 1 1) - arity (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) - slice (# ! each (|>> (n.% (-- arity)) ++) random.nat) + arity (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) + slice (at ! each (|>> (n.% (-- arity)) ++) random.nat) [type/0 term/0] ..simple_parameter slot/0 (random.lower_case 1) types/*,terms/* (random.list arity ..simple_parameter) @@ -513,7 +513,7 @@ (pipe.case {try.#Success {.#Some [actual_arity actual_tuple actual_type]}} (and (n.= arity actual_arity) - (# code.equivalence = (code.tuple tuple) (code.tuple actual_tuple)) + (at code.equivalence = (code.tuple tuple) (code.tuple actual_tuple)) (type#= :record: actual_type)) _ @@ -634,11 +634,11 @@ [lux ..random_state .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux]] - arity (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) + arity (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) types/*,terms/* (random.list arity ..simple_parameter) [type/0 term/0] ..simple_parameter [type/1 term/1] ..simple_parameter - tag (# ! each (n.% arity) random.nat) + tag (at ! each (n.% arity) random.nat) .let [[lefts right?] (//complex.choice arity tag)]] (all _.and ..test|sum diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux index 05ddfaaff..ca35902cd 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux @@ -47,7 +47,7 @@ (_.coverage [/.read] (|> (is (/.Operation Int Nat Nat Text) (/.read %.int)) - (# phase.functor each (text#= (%.int state))) + (at phase.functor each (text#= (%.int state))) (phase.result [/.#bundle /.empty /.#state state]) (try.else false))) @@ -56,7 +56,7 @@ (do phase.monad [_ (/.update ++)] (/.read %.int))) - (# phase.functor each (text#= (%.int (++ state)))) + (at phase.functor each (text#= (%.int (++ state)))) (phase.result [/.#bundle /.empty /.#state state]) (try.else false))) @@ -66,7 +66,7 @@ [|state'| (/.temporary ++ (/.read %.int)) |state| (/.read %.int)] (in (format |state'| " " |state|)))) - (# phase.functor each (text#= (format (%.int (++ state)) " " (%.int state)))) + (at phase.functor each (text#= (format (%.int (++ state)) " " (%.int state)))) (phase.result [/.#bundle /.empty /.#state state]) (try.else false))) @@ -74,7 +74,7 @@ (|> (is (/.Operation Int Nat Nat Text) (/.with_state state (/.read %.int))) - (# phase.functor each (text#= (%.int state))) + (at phase.functor each (text#= (%.int state))) (phase.result [/.#bundle /.empty /.#state dummy]) (try.else false))) @@ -87,8 +87,8 @@ (/.read %.int)) |state'| (/.read %.int)] (in (format |state'| " " |state|)))) - (# phase.functor each (text#= (format (%.int (i.+ +2 state)) - " " (%.int (i.+ +1 state))))) + (at phase.functor each (text#= (format (%.int (i.+ +2 state)) + " " (%.int (i.+ +1 state))))) (phase.result [/.#bundle /.empty /.#state state]) (try.else false)))) @@ -101,12 +101,12 @@ (def: handler/0 (/.Handler Int Nat Nat) (function (_ @self phase archive inputs) - (# phase.monad in (list#mix n.+ 0 inputs)))) + (at phase.monad in (list#mix n.+ 0 inputs)))) (def: handler/1 (/.Handler Int Nat Nat) (function (_ @self phase archive inputs) - (# phase.monad in (list#mix n.* 1 inputs)))) + (at phase.monad in (list#mix n.* 1 inputs)))) (def: test|name Test @@ -130,7 +130,7 @@ false))) (_.coverage [/.unknown] (|> (/.apply archive.empty (function (_ archive input) - (# phase.monad in (++ input))) + (at phase.monad in (++ input))) [extension (list left right)]) (phase.result [/.#bundle /.empty /.#state state]) @@ -146,7 +146,7 @@ Test (let [phase (is (/.Phase Int Nat Nat) (function (_ archive input) - (# phase.monad in (++ input))))] + (at phase.monad in (++ input))))] (do [! random.monad] [state random.int @@ -162,7 +162,7 @@ (|> (do phase.monad [_ (/.install extender extension handler/0)] (/.apply archive.empty phase [extension (list left right)])) - (# phase.functor each (n.= (n.+ left right))) + (at phase.functor each (n.= (n.+ left right))) (phase.result [/.#bundle /.empty /.#state state]) (try.else false))) @@ -172,11 +172,11 @@ (let [! phase.monad] (|> inputs (monad.each ! (phase archive)) - (# ! each (list#mix n.+ 0))))))] + (at ! each (list#mix n.+ 0))))))] (|> (do phase.monad [_ (/.install extender extension handler)] (/.apply archive.empty phase [extension (list left right)])) - (# phase.functor each (n.= (n.+ (++ left) (++ right)))) + (at phase.functor each (n.= (n.+ (++ left) (++ right)))) (phase.result [/.#bundle /.empty /.#state state]) (try.else false)))) @@ -184,9 +184,9 @@ (|> (do phase.monad [_ (/.with extender (dictionary.of_list text.hash (list [extension handler/1])))] (/.apply archive.empty (function (_ archive input) - (# phase.monad in (++ input))) + (at phase.monad in (++ input))) [extension (list left right)])) - (# phase.functor each (n.= (n.* left right))) + (at phase.functor each (n.= (n.* left right))) (phase.result [/.#bundle /.empty /.#state state]) (try.else false))) @@ -248,7 +248,7 @@ (/.lifted (do phase.monad [] (in expected)))) - (# phase.functor each (same? expected)) + (at phase.functor each (same? expected)) (phase.result [/.#bundle /.empty /.#state state]) (try.else false)) @@ -269,7 +269,7 @@ (is (/.Operation Int Nat Nat Nat)) /.up (is (phase.Operation Int Nat)) - (# phase.functor each (same? expected)) + (at phase.functor each (same? expected)) (phase.result state) (try.else false))) )) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux index c7d2ba84e..b2e9131ca 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux @@ -75,9 +75,9 @@ (def: i64 Test (do [! r.monad] - [subjectC (|> r.nat (# ! each code.nat)) - signedC (|> r.int (# ! each code.int)) - paramC (|> r.nat (# ! each code.nat))] + [subjectC (|> r.nat (at ! each code.nat)) + signedC (|> r.int (at ! each code.int)) + paramC (|> r.nat (at ! each code.nat))] (all _.and (_.property "i64 'and'." (check_success+ "lux i64 and" (list paramC subjectC) Nat)) @@ -102,8 +102,8 @@ (def: int Test (do [! r.monad] - [subjectC (|> r.int (# ! each code.int)) - paramC (|> r.int (# ! each code.int))] + [subjectC (|> r.int (at ! each code.int)) + paramC (|> r.int (at ! each code.int))] (all _.and (_.property "Can multiply integers." (check_success+ "lux i64 *" (list paramC subjectC) Int)) @@ -122,9 +122,9 @@ (def: frac Test (do [! r.monad] - [subjectC (|> r.safe_frac (# ! each code.frac)) - paramC (|> r.safe_frac (# ! each code.frac)) - encodedC (|> r.safe_frac (# ! each (|>> %.frac code.text)))] + [subjectC (|> r.safe_frac (at ! each code.frac)) + paramC (|> r.safe_frac (at ! each code.frac)) + encodedC (|> r.safe_frac (at ! each (|>> %.frac code.text)))] (all _.and (_.property "Can add frac numbers." (check_success+ "lux f64 +" (list paramC subjectC) Frac)) @@ -157,11 +157,11 @@ (def: text Test (do [! r.monad] - [subjectC (|> (r.unicode 5) (# ! each code.text)) - paramC (|> (r.unicode 5) (# ! each code.text)) - replacementC (|> (r.unicode 5) (# ! each code.text)) - fromC (|> r.nat (# ! each code.nat)) - toC (|> r.nat (# ! each code.nat))] + [subjectC (|> (r.unicode 5) (at ! each code.text)) + paramC (|> (r.unicode 5) (at ! each code.text)) + replacementC (|> (r.unicode 5) (at ! each code.text)) + fromC (|> r.nat (at ! each code.nat)) + toC (|> r.nat (at ! each code.nat))] (all _.and (_.property "Can test text equivalence." (check_success+ "lux text =" (list paramC subjectC) Bit)) @@ -182,8 +182,8 @@ (def: io Test (do [! r.monad] - [logC (|> (r.unicode 5) (# ! each code.text)) - exitC (|> r.int (# ! each code.int))] + [logC (|> (r.unicode 5) (at ! each code.text)) + exitC (|> r.int (at ! each code.int))] (all _.and (_.property "Can log messages to standard output." (check_success+ "lux io log" (list logC) Any)) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux index 351098c03..11cadf681 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux @@ -43,7 +43,7 @@ Test (do [! random.monad] [maskedA //primitive.primitive - temp (|> random.nat (# ! each (n.% 100))) + temp (|> random.nat (at ! each (n.% 100))) .let [maskA (analysis.case [maskedA [[{analysis.#Bind temp} @@ -112,7 +112,7 @@ (def: random_member (Random synthesis.Member) (do [! random.monad] - [lefts (|> random.nat (# ! each (n.% 10))) + [lefts (|> random.nat (at ! each (n.% 10))) right? random.bit] (in (if right? {.#Right lefts} @@ -121,7 +121,7 @@ (def: random_path (Random (analysis.Tuple synthesis.Member)) (do [! random.monad] - [size_1 (|> random.nat (# ! each (|>> (n.% 10) ++)))] + [size_1 (|> random.nat (at ! each (|>> (n.% 10) ++)))] (random.list size_1 ..random_member))) (def: (get_pattern path) @@ -148,9 +148,9 @@ Test (do [! random.monad] [recordA (|> random.nat - (# ! each (|>> analysis.nat)) + (at ! each (|>> analysis.nat)) (random.list 10) - (# ! each (|>> analysis.tuple))) + (at ! each (|>> analysis.tuple))) pathA ..random_path [pattern @member] (get_pattern pathA) .let [getA (analysis.case [recordA [[pattern @@ -162,7 +162,7 @@ (phase.result [///bundle.empty synthesis.init]) (pipe.case (pattern {try.#Success (synthesis.branch/get [pathS recordS])}) - (and (# (list.equivalence (sum.equivalence n.= n.=)) = pathA pathS) + (and (at (list.equivalence (sum.equivalence n.= n.=)) = pathA pathS) (//primitive.corresponds? recordA recordS)) _ @@ -187,13 +187,13 @@ (All (_ a) (-> (Hash a) (Random a) (Random [a a a a a]))) (|> random_element (random.set hash 5) - (# random.monad each (|>> set.list - (pipe.case - (pattern (list s0 s1 s2 s3 s4)) - [s0 s1 s2 s3 s4] + (at random.monad each (|>> set.list + (pipe.case + (pattern (list s0 s1 s2 s3 s4)) + [s0 s1 s2 s3 s4] - _ - (undefined)))))) + _ + (undefined)))))) (template [<name> <hash> <random> <path> <synthesis> <pattern> <analysis>] [(def: <name> @@ -266,7 +266,7 @@ (def: random_tuple (Random [Path Match]) (do [! random.monad] - [mid_size (# ! each (n.% 4) random.nat) + [mid_size (at ! each (n.% 4) random.nat) value/first (random.unicode 1) value/mid (random.list mid_size (random.unicode 1)) @@ -332,15 +332,15 @@ (def: case_test Test (do [! random.monad] - [expected_input (# ! each (|>> .i64 synthesis.i64) random.nat) + [expected_input (at ! each (|>> .i64 synthesis.i64) random.nat) [expected_path match] ..random_case] (_.coverage [/.synthesize_case] (|> (/.synthesize_case //.phase archive.empty expected_input match) (phase.result [///bundle.empty synthesis.init]) (pipe.case (pattern {try.#Success (synthesis.branch/case [actual_input actual_path])}) - (and (# synthesis.equivalence = expected_input actual_input) - (# synthesis.path_equivalence = expected_path actual_path)) + (and (at synthesis.equivalence = expected_input actual_input) + (at synthesis.path_equivalence = expected_path actual_path)) _ false))))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux index 8ab54be6f..9ec225645 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux @@ -82,10 +82,10 @@ (def: (random_unit output?) Scenario - (# random.monad in - [true - (synthesis.text synthesis.unit) - (analysis.unit)])) + (at random.monad in + [true + (synthesis.text synthesis.unit) + (analysis.unit)])) (template [<name> <random> <synthesis> <analysis>] [(def: (<name> output?) @@ -149,7 +149,7 @@ (def: (random_variable arity output?) (-> Arity Scenario) (do [! random.monad] - [register (# ! each (|>> (n.% arity) ++) random.nat)] + [register (at ! each (|>> (n.% arity) ++) random.nat)] (in [(not (n.= 0 register)) (synthesis.variable/local register) (if (n.= arity register) @@ -179,7 +179,7 @@ text_test (random.unicode 1) [loop?_input expected_input actual_input] (random_value false) [loop?_output expected_output actual_output] (random_value output?) - lefts (|> random.nat (# ! each (n.% 10))) + lefts (|> random.nat (at ! each (n.% 10))) right? random.bit .let [side|member (if right? {.#Right lefts} @@ -281,7 +281,7 @@ (def: (random_get random_value output?) (-> Scenario Scenario) (do [! random.monad] - [lefts (|> random.nat (# ! each (n.% 10))) + [lefts (|> random.nat (at ! each (n.% 10))) right? random.bit [loop?_record expected_record actual_record] (random_value false)] (in [loop?_record @@ -345,7 +345,7 @@ Scenario (do [! random.monad] [[loop?_output expected_output actual_output] (..random_nat output?) - arity (|> random.nat (# ! each (|>> (n.% 5) ++))) + arity (|> random.nat (at ! each (|>> (n.% 5) ++))) .let [environment (all list#composite (list#each (|>> {variable.#Foreign}) (list.indices arity)) @@ -365,7 +365,7 @@ (-> Scenario Scenario) (do [! random.monad] [[loop?_abstraction expected_abstraction actual_abstraction] (..random_nat output?) - arity (|> random.nat (# ! each (|>> (n.% 5) ++))) + arity (|> random.nat (at ! each (|>> (n.% 5) ++))) inputs (random.list arity (random_value false))] (in [(list#mix (function (_ new old) (and new old)) @@ -421,7 +421,7 @@ (def: random_abstraction (Random [Synthesis Analysis]) (do [! random.monad] - [arity (|> random.nat (# ! each (|>> (n.% 5) ++))) + [arity (|> random.nat (at ! each (|>> (n.% 5) ++))) [loop? expected_body actual_body] (random_body arity true)] (in [(..n_function loop? arity expected_body) (..n_abstraction arity actual_body)]))) @@ -435,12 +435,12 @@ (//.phase archive.empty) (phase.result [///bundle.empty synthesis.init]) (!expect (^.multi {try.#Success actual} - (# synthesis.equivalence = expected actual))))))) + (at synthesis.equivalence = expected actual))))))) (def: application Test (do [! random.monad] - [arity (|> random.nat (# ! each (|>> (n.% 10) (n.max 1)))) + [arity (|> random.nat (at ! each (|>> (n.% 10) (n.max 1)))) funcA //primitive.primitive argsA (random.list arity //primitive.primitive)] (_.coverage [/.apply] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux index 96c5116be..6c17b1883 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux @@ -31,13 +31,13 @@ (`` (all random.either (~~ (template [<synthesis> <random>] [(do [! random.monad] - [example (# ! each (|>> <synthesis>) <random>)] + [example (at ! each (|>> <synthesis>) <random>)] (in [next [example example]]))] [//.bit random.bit] - [//.i64 (# ! each .i64 random.nat)] + [//.i64 (at ! each .i64 random.nat)] [//.f64 random.frac] [//.text (random.unicode 1)] )) @@ -55,7 +55,7 @@ (def: (variable offset arity next) (Scenario Variable) (let [local (do [! random.monad] - [register (# ! each (|>> (n.% arity) ++) random.nat)] + [register (at ! each (|>> (n.% arity) ++) random.nat)] (in [next [{variable.#Local (/.register_optimization offset register)} {variable.#Local register}]]))] @@ -64,7 +64,7 @@ _ (all random.either local (do [! random.monad] - [foreign (# ! each (n.% offset) random.nat)] + [foreign (at ! each (n.% offset) random.nat)] (in [next [{variable.#Local foreign} {variable.#Foreign foreign}]])))))) @@ -117,21 +117,21 @@ //.path/pop]]) (~~ (template [<path> <random>] [(do [! random.monad] - [example (# ! each (|>> <path>) <random>)] + [example (at ! each (|>> <path>) <random>)] (in [next [example example]]))] [//.path/bit random.bit] - [//.path/i64 (# ! each .i64 random.nat)] + [//.path/i64 (at ! each .i64 random.nat)] [//.path/f64 random.frac] [//.path/text (random.unicode 1)] )) (~~ (template [<path>] [(do [! random.monad] - [example (# ! each (|>> <path>) - (random.or random.nat - random.nat))] + [example (at ! each (|>> <path>) + (random.or random.nat + random.nat))] (in [next [example example]]))] @@ -182,7 +182,7 @@ (all random.either (do [! random.monad] [[next [recordE recordA]] (..reference offset arity next) - path_length (# ! each (|>> (n.% 5) ++) random.nat) + path_length (at ! each (|>> (n.% 5) ++) random.nat) path (random.list path_length random_member)] (in [next [(//.branch/get [path recordE]) @@ -219,7 +219,7 @@ (do [! random.monad] [[next [firstE firstA]] (..variable offset arity next) [next [secondE secondA]] (..variable offset arity next) - arity (# ! each (n.max 1) random.nat) + arity (at ! each (n.max 1) random.nat) [next [bodyE bodyA]] (..primitive 0 arity next)] (in [next [(//.function/abstraction @@ -266,10 +266,10 @@ (<| (_.covering /._) (all _.and (do [! random.monad] - [expected_offset (# ! each (|>> (n.% 5) (n.+ 2)) random.nat) - arity (# ! each (|>> (n.% 5) ++) random.nat) + [expected_offset (at ! each (|>> (n.% 5) (n.+ 2)) random.nat) + arity (at ! each (|>> (n.% 5) ++) random.nat) expected_inits (|> random.nat - (# ! each (|>> .i64 //.i64)) + (at ! each (|>> .i64 //.i64)) (random.list arity)) [_ [expected iteration]] (..scenario expected_offset arity 0)] (_.coverage [/.Transform /.optimization /.register_optimization] @@ -283,10 +283,10 @@ actual])}) (and (n.= expected_offset actual_offset) - (# (list.equivalence //.equivalence) = - expected_inits - actual_inits) - (# //.equivalence = expected actual)) + (at (list.equivalence //.equivalence) = + expected_inits + actual_inits) + (at //.equivalence = expected actual)) _ false))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux index 954818c48..237a877a4 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux @@ -37,8 +37,8 @@ (def: variant Test (do [! r.monad] - [size (|> r.nat (# ! each (|>> (n.% 10) (n.+ 2)))) - tagA (|> r.nat (# ! each (n.% size))) + [size (|> r.nat (at ! each (|>> (n.% 10) (n.+ 2)))) + tagA (|> r.nat (at ! each (n.% size))) .let [right? (n.= (-- size) tagA) lefts (if right? (-- tagA) @@ -61,7 +61,7 @@ (def: tuple Test (do [! r.monad] - [size (|> r.nat (# ! each (|>> (n.% 10) (n.max 2)))) + [size (|> r.nat (at ! each (|>> (n.% 10) (n.max 2)))) membersA (r.list size //primitive.primitive)] (_.property "Can synthesize tuple." (|> (////analysis.tuple membersA) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux index 006790ba4..4f3d1de26 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux @@ -51,7 +51,7 @@ (<synthesis> value)])))] [bit_scenario synthesis.bit random.bit] - [i64_scenario synthesis.i64 (# ! each .i64 random.nat)] + [i64_scenario synthesis.i64 (at ! each .i64 random.nat)] [f64_scenario synthesis.f64 random.frac] [text_scenario synthesis.text (random.unicode 1)] ) @@ -97,9 +97,9 @@ (def: (tuple_scenario context) (Scenario Synthesis) (let [registers (dictionary.entries (the #necessary context))] - (# random.monad in - [(synthesis.tuple (list#each (|>> product.left synthesis.variable/local) registers)) - (synthesis.tuple (list#each (|>> product.right synthesis.variable/local) registers))]))) + (at random.monad in + [(synthesis.tuple (list#each (|>> product.left synthesis.variable/local) registers)) + (synthesis.tuple (list#each (|>> product.right synthesis.variable/local) registers))]))) (def: (structure_scenario context) (Scenario Synthesis) @@ -144,7 +144,7 @@ (def: (get_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] - [length (# ! each (|>> (n.% 5) ++) random.nat) + [length (at ! each (|>> (n.% 5) ++) random.nat) path (random.list length ..random_member) [expected_record actual_record] (scenario context)] (in [(synthesis.branch/get [path expected_record]) @@ -188,7 +188,7 @@ {synthesis.#Then actual_then}}]))] [synthesis.#Bit random.bit] - [synthesis.#I64 (# ! each .i64 random.nat)] + [synthesis.#I64 (at ! each .i64 random.nat)] [synthesis.#F64 random.frac] [synthesis.#Text (random.unicode 1)] ))) @@ -284,9 +284,9 @@ (def: (apply_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] - [abstraction (# ! each (|>> synthesis.constant) - (random.and (random.unicode 1) - (random.unicode 1))) + [abstraction (at ! each (|>> synthesis.constant) + (random.and (random.unicode 1) + (random.unicode 1))) inputs (random.list ..scope_arity (scenario context))] (in [(synthesis.function/apply [abstraction (list#each product.left inputs)]) (synthesis.function/apply [abstraction (list#each product.right inputs)])]))) @@ -332,5 +332,5 @@ (_.coverage [/.optimization] (|> (/.optimization input) (!expect (^.multi {try.#Success actual} - (# synthesis.equivalence = expected actual)))))) + (at synthesis.equivalence = expected actual)))))) ))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux b/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux index 7e92f65ae..19ae703cb 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux @@ -27,7 +27,7 @@ (def: symbol_part^ (Random Text) (do [! r.monad] - [size (|> r.nat (# ! each (|>> (n.% 20) (n.max 1))))] + [size (|> r.nat (at ! each (|>> (n.% 20) (n.max 1))))] (r.lower_case_alpha size))) (def: symbol^ @@ -84,7 +84,7 @@ false {.#Right [_ parsed]} - (# code.equivalence = parsed sample))) + (at code.equivalence = parsed sample))) (do ! [other code^] (_.property "Can parse multiple Lux code nodes." @@ -102,8 +102,8 @@ false {.#Right [_ =other]} - (and (# code.equivalence = sample =sample) - (# code.equivalence = other =other))))))) + (and (at code.equivalence = sample =sample) + (at code.equivalence = other =other))))))) ))) (def: comment_text^ @@ -134,7 +134,7 @@ false {.#Right [_ parsed]} - (# code.equivalence = parsed sample))) + (at code.equivalence = parsed sample))) ))) (def: .public test diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux index fec861dfd..5ff10e052 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux @@ -36,6 +36,6 @@ ($hash.spec /.hash ..random)) (_.coverage [/.format] - (bit#= (# /.equivalence = left right) + (bit#= (at /.equivalence = left right) (text#= (/.format left) (/.format right)))) )))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux index 61080fd2c..4d3d12bad 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux @@ -36,6 +36,6 @@ ($hash.spec /.hash ..random)) (_.coverage [/.format] - (bit#= (# /.equivalence = left right) + (bit#= (at /.equivalence = left right) (text#= (/.format left) (/.format right)))) )))) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux index cd422dccc..3fc98a592 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux @@ -41,5 +41,5 @@ (_.coverage [/.format] (bit#= (text#= (/.format left) (/.format right)) - (# /.equivalence = left right))) + (at /.equivalence = left right))) )))) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux index b62b50e3c..1b6e2af50 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux @@ -54,6 +54,6 @@ (|> expected (binary.result /.writer) (<binary>.result /.parser) - (try#each (|>> (# /.equivalence = (has /.#state {.#Cached} expected)))) + (try#each (|>> (at /.equivalence = (has /.#state {.#Cached} expected)))) (try.else false))) ))) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux index 7305277cb..8fa2fc9e6 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux @@ -57,10 +57,10 @@ mandatory? random.bit expected_dependencies (..random_dependencies 5) - expected_amount (# ! each (n.% 10) random.nat) + expected_amount (at ! each (n.% 10) random.nat) expected_names (|> (random.lower_case 1) (random.set text.hash expected_amount) - (# ! each set.list))] + (at ! each set.list))] (`` (all _.and (_.coverage [/.empty] (|> /.empty @@ -147,7 +147,7 @@ (list.every? (function (_ [@it [it dependencies]]) (same? @it (the artifact.#id it))) (list.zipped_2 (sequence.list ids) (sequence.list it))) - (# (list.equivalence <equivalence>) = expected/* (<query> registry))))] + (at (list.equivalence <equivalence>) = expected/* (<query> registry))))] [/.definition /.definitions category.definition_equivalence (is (-> Text category.Definition) (function (_ it) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux index 23a2d62c9..f127d86e5 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux @@ -43,7 +43,7 @@ [left ..random right ..random] (_.coverage [/.description] - (bit#= (# /.equivalence = left right) + (bit#= (at /.equivalence = left right) (text#= (/.description left) (/.description right))))) (do random.monad [expected ..random] @@ -51,6 +51,6 @@ (|> expected (binaryF.result /.writer) (<binary>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) ))) diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache.lux b/stdlib/source/test/lux/tool/compiler/meta/cache.lux index c970fbe07..c2ba9e659 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache.lux @@ -31,10 +31,10 @@ context $//context.random] (all _.and (in (do [! async.monad] - [pre/0 (# fs directory? (/.path fs context)) + [pre/0 (at fs directory? (/.path fs context)) pre/1 (/.enabled? fs context) outcome (/.enable! ! fs context) - post/0 (# fs directory? (/.path fs context)) + post/0 (at fs directory? (/.path fs context)) post/1 (/.enabled? fs context)] (_.coverage' [/.path /.enabled? /.enable!] (and (not pre/0) diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux index 3d42ef1e1..b93c34577 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux @@ -67,11 +67,11 @@ try.trusted)]] (all _.and (in (do [! async.monad] - [pre/0 (# fs file? (/.descriptor fs context)) + [pre/0 (at fs file? (/.descriptor fs context)) enabled? (//.enable! ! fs context) cached? (/.cache! fs context archive) - actual (# fs read (/.descriptor fs context)) - post/0 (# fs file? (/.descriptor fs context))] + actual (at fs read (/.descriptor fs context)) + post/0 (at fs file? (/.descriptor fs context))] (_.coverage' [/.descriptor /.cache!] (and (not pre/0) (|> (do try.monad diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux index de5344cf1..2fcbf2246 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux @@ -36,10 +36,10 @@ expected ($binary.random 1)] (all _.and (in (do [! async.monad] - [pre (# fs file? (/.path fs context @module @artifact)) + [pre (at fs file? (/.path fs context @module @artifact)) _ (//module.enable! ! fs context @module) write! (/.cache! fs context @module @artifact expected) - post (# fs file? (/.path fs context @module @artifact)) + post (at fs file? (/.path fs context @module @artifact)) read! (/.cache fs context @module @artifact)] (_.coverage' [/.path /.cache! /.cache] (and (not pre) diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux index 8091e33c8..3975036e0 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux @@ -23,7 +23,7 @@ (~~ (template [<name>] [(def: <name> - (# it <name>))] + (at it <name>))] [separator] [file?] @@ -55,10 +55,10 @@ (in (do [! async.monad] [.let [/ "/" fs (file.mock /)] - pre/0 (# fs directory? (/.path fs context @module)) + pre/0 (at fs directory? (/.path fs context @module)) pre/1 (/.enabled? fs context @module) outcome (/.enable! ! fs context @module) - post/0 (# fs directory? (/.path fs context @module)) + post/0 (at fs directory? (/.path fs context @module)) post/1 (/.enabled? fs context @module)] (_.coverage' [/.path /.enabled? /.enable!] (and (not pre/0) @@ -73,10 +73,10 @@ (in (do [! async.monad] [.let [/ "/" fs (file.mock /)] - pre/0 (# fs directory? (/.path fs context @module)) + pre/0 (at fs directory? (/.path fs context @module)) pre/1 (/.enabled? fs context @module) outcome (/.enable! ! (..bad fs) context @module) - post/0 (# fs directory? (/.path fs context @module)) + post/0 (at fs directory? (/.path fs context @module)) post/1 (/.enabled? fs context @module)] (_.coverage' [/.cannot_enable] (and (not pre/0) diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux b/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux index bf231eba5..209f97b16 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux @@ -52,8 +52,8 @@ content/0 ($binary.random 1) name/1 (random.lower_case 2) module/1 (|> ($module.random random.nat) - (# ! each (has [module.#descriptor descriptor.#references] - (set.of_list text.hash (list name/0))))) + (at ! each (has [module.#descriptor descriptor.#references] + (set.of_list text.hash (list name/0))))) content/1 ($binary.random 2) .let [id/0 (the module.#id module/0) id/1 (the module.#id module/1) @@ -119,18 +119,18 @@ .let [dir (//module.path fs context id/0) file/0 (%.format dir / name/0) file/1 (%.format dir / name/1)] - _ (# fs write file/0 content/0) - _ (# fs write file/1 content/1) - pre (# fs directory_files dir) + _ (at fs write file/0 content/0) + _ (at fs write file/1 content/1) + pre (at fs directory_files dir) _ (/.purge! fs context id/0) - post (# fs directory_files dir)] + post (at fs directory_files dir)] (_.coverage' [/.purge!] (<| (try.else false) (do try.monad [pre pre] - (in (and (# set.equivalence = - (set.of_list text.hash pre) - (set.of_list text.hash (list file/0 file/1))) + (in (and (at set.equivalence = + (set.of_list text.hash pre) + (set.of_list text.hash (list file/0 file/1))) (case post {try.#Failure error} (exception.match? file.cannot_find_directory error) diff --git a/stdlib/source/test/lux/tool/compiler/meta/cli.lux b/stdlib/source/test/lux/tool/compiler/meta/cli.lux index 6df5fc3dd..cc1951950 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cli.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cli.lux @@ -33,7 +33,7 @@ (_.for [/.Service /.service]) (let [(open "list#[0]") (list.equivalence text.equivalence)]) (do [! random.monad] - [amount (# ! each (|>> (n.% 5) ++) random.nat) + [amount (at ! each (|>> (n.% 5) ++) random.nat) sources (random.list amount (random.lower_case 1)) host_dependencies (random.list amount (random.lower_case 2)) libraries (random.list amount (random.lower_case 3)) @@ -71,7 +71,7 @@ [/.Host_Dependency /.#host_dependencies (list#= host_dependencies)] [/.Library /.#libraries (list#= libraries)] - [/compiler.Compiler /.#compilers (# (list.equivalence /compiler.equivalence) = compilers)] + [/compiler.Compiler /.#compilers (at (list.equivalence /compiler.equivalence) = compilers)] [/.Source /.#sources (list#= sources)] [/.Target /.#target (same? target)] [/.Module /.#module (same? module)] @@ -94,7 +94,7 @@ [/.#host_dependencies (list#= host_dependencies)] [/.#libraries (list#= libraries)] - [/.#compilers (# (list.equivalence /compiler.equivalence) = compilers)] + [/.#compilers (at (list.equivalence /compiler.equivalence) = compilers)] [/.#sources (list#= sources)] [/.#target (same? target)] [/.#module (same? module)] diff --git a/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux b/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux index 988227519..1a7aacc6d 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux @@ -24,7 +24,7 @@ (Random /.Compiler) (do [! random.monad] [definition ($symbol.random 1 1) - amount (# ! each (n.% 5) random.nat) + amount (at ! each (n.% 5) random.nat) parameters (random.list amount (random.lower_case 2))] (in [/.#definition definition /.#parameters parameters]))) @@ -43,6 +43,6 @@ (|> expected /.format (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) )))) diff --git a/stdlib/source/test/lux/tool/compiler/meta/context.lux b/stdlib/source/test/lux/tool/compiler/meta/context.lux index 46d9c6343..9c993c22a 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/context.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/context.lux @@ -25,7 +25,7 @@ (in /.lua) (in /.python) (in /.ruby))] - (# ! each context (random.lower_case 1)))) + (at ! each context (random.lower_case 1)))) (def: .public test Test diff --git a/stdlib/source/test/lux/tool/compiler/meta/export.lux b/stdlib/source/test/lux/tool/compiler/meta/export.lux index eccebdfe0..c8e9fcb06 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/export.lux @@ -45,34 +45,34 @@ target (random.lower_case 3) .let [random_file (is (Random file.Path) - (# ! each (text.suffix io.lux_extension) (random.lower_case 4)))] + (at ! each (text.suffix io.lux_extension) (random.lower_case 4)))] file/0' random_file .let [file/0 (format source/0 / file/0')] dir/0 (random.lower_case 5) - file/1' (# ! each (|>> (format dir/0 /)) random_file) + file/1' (at ! each (|>> (format dir/0 /)) random_file) .let [file/1 (format source/1 / file/1')] .let [random_content (is (Random Binary) - (# ! each (|>> %.nat (# utf8.codec encoded)) random.nat))] + (at ! each (|>> %.nat (at utf8.codec encoded)) random.nat))] content/0 random_content content/1 random_content] (all _.and (in (do [! async.monad] [it (do (try.with !) [.let [fs (file.mock /)] - _ (# fs make_directory source/0) - _ (# fs write file/0 content/0) + _ (at fs make_directory source/0) + _ (at fs write file/0 content/0) - _ (# fs make_directory source/1) - _ (# fs make_directory (format source/1 / dir/0)) - _ (# fs write file/1 content/1) + _ (at fs make_directory source/1) + _ (at fs make_directory (format source/1 / dir/0)) + _ (at fs write file/1 content/1) - _ (# fs make_directory target) + _ (at fs make_directory target) library_tar (/.library fs (list source/0 source/1)) _ (/.export fs [(list source/0 source/1) target]) - export_tar (# fs read (format target / /.file)) - export_tar (# ! in (<binary>.result tar.parser export_tar))] + export_tar (at fs read (format target / /.file)) + export_tar (at ! in (<binary>.result tar.parser export_tar))] (in [library_tar export_tar]))] (all _.and' (_.coverage' [/.library /.mode /.ownership] diff --git a/stdlib/source/test/lux/tool/compiler/meta/import.lux b/stdlib/source/test/lux/tool/compiler/meta/import.lux index a055d3408..552be6616 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/import.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/import.lux @@ -49,14 +49,14 @@ .let [/ .module_separator random_file (is (Random file.Path) - (# ! each (text.suffix io.lux_extension) (random.lower_case 3)))] + (at ! each (text.suffix io.lux_extension) (random.lower_case 3)))] file/0 random_file dir/0 (random.lower_case 4) - file/1 (# ! each (|>> (format dir/0 /)) random_file) + file/1 (at ! each (|>> (format dir/0 /)) random_file) .let [random_content (is (Random Binary) - (# ! each (|>> %.nat (# utf8.codec encoded)) random.nat))] + (at ! each (|>> %.nat (at utf8.codec encoded)) random.nat))] now random.instant content/0 random_content content/1 random_content @@ -112,12 +112,12 @@ (in (do [! async.monad] [it/0 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library/0 library_content)] + _ (at fs write library/0 library_content)] (/.import fs (list library/0))) it/1 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library/0 library_content/0) - _ (# fs write library/1 library_content/1)] + _ (at fs write library/0 library_content/0) + _ (at fs write library/1 library_content/1)] (/.import fs (list library/0 library/1)))] (_.coverage' [/.import] (and (|> it/0 @@ -129,7 +129,7 @@ (in (do [! async.monad] [it (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library/0 library_content) + _ (at fs write library/0 library_content) _ (/.import fs (list library/0 library/0))] (in false))] (_.coverage' [/.duplicate] @@ -137,17 +137,17 @@ (in (do [! async.monad] [it/0 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library/0 library_content/-0) + _ (at fs write library/0 library_content/-0) _ (/.import fs (list library/0))] (in false)) it/1 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library/0 library_content/-1) + _ (at fs write library/0 library_content/-1) _ (/.import fs (list library/0))] (in false)) it/2 (do (try.with !) [.let [fs (file.mock /)] - _ (# fs write library/0 library_content/-2) + _ (at fs write library/0 library_content/-2) _ (/.import fs (list library/0))] (in false))] (_.coverage' [/.useless_tar_entry] diff --git a/stdlib/source/test/lux/tool/compiler/phase.lux b/stdlib/source/test/lux/tool/compiler/phase.lux index 6fa17a691..b5d392112 100644 --- a/stdlib/source/test/lux/tool/compiler/phase.lux +++ b/stdlib/source/test/lux/tool/compiler/phase.lux @@ -68,7 +68,7 @@ _ false)) (|> (/.lifted {try.#Success expected}) - (# /.functor each (same? expected)) + (at /.functor each (same? expected)) (/.result state) (try.else false)))) (_.coverage [/.except] @@ -105,24 +105,24 @@ (all _.and (_.coverage [/.state] (|> /.state - (# /.functor each (same? state)) + (at /.functor each (same? state)) (/.result state) (try.else false))) (_.coverage [/.with] (|> (do /.monad [_ (/.with state)] /.state) - (# /.functor each (same? state)) + (at /.functor each (same? state)) (/.result dummy) (try.else false))) (_.coverage [/.sub] - (|> (/.sub [(# n.hex encoded) + (|> (/.sub [(at n.hex encoded) (function (_ new old) - (|> new (# n.hex decoded) (try.else dummy)))] + (|> new (at n.hex decoded) (try.else dummy)))] (do /.monad [state/hex /.state] (in (|> state - (# n.hex encoded) + (at n.hex encoded) (text#= state/hex))))) (/.result' state) (pipe.case {try.#Success [state' verdict]} @@ -145,7 +145,7 @@ ($monad.spec ..injection (..comparison state) /.monad)) (_.coverage [/.result] - (|> (# /.monad in expected) + (|> (at /.monad in expected) (/.result state) (pipe.case {try.#Success actual} (same? expected actual) @@ -153,7 +153,7 @@ _ false))) (_.coverage [/.result'] - (|> (# /.monad in expected) + (|> (at /.monad in expected) (/.result' state) (pipe.case {try.#Success [state' actual]} (and (same? state state') @@ -180,10 +180,10 @@ (_.coverage [/.composite] (let [phase (/.composite (is (/.Phase Nat Int Frac) (function (_ archive input) - (# /.monad in (i.frac input)))) + (at /.monad in (i.frac input)))) (is (/.Phase Rev Frac Text) (function (_ archive input) - (# /.monad in (%.frac input)))))] + (at /.monad in (%.frac input)))))] (|> (phase archive.empty expected) (/.result' [state/0 state/1]) (pipe.case {try.#Success [[state/0' state/1'] actual]} diff --git a/stdlib/source/test/lux/tool/compiler/reference.lux b/stdlib/source/test/lux/tool/compiler/reference.lux index 37e61b319..183e872ff 100644 --- a/stdlib/source/test/lux/tool/compiler/reference.lux +++ b/stdlib/source/test/lux/tool/compiler/reference.lux @@ -63,7 +63,7 @@ )) (_.coverage [/.variable /.self] - (and (# /.equivalence = (/.self) (/.variable (variable.self))) + (and (at /.equivalence = (/.self) (/.variable (variable.self))) (case (/.self) (pattern (/.self)) true diff --git a/stdlib/source/test/lux/type.lux b/stdlib/source/test/lux/type.lux index e93535317..6279c98ac 100644 --- a/stdlib/source/test/lux/type.lux +++ b/stdlib/source/test/lux/type.lux @@ -39,7 +39,7 @@ (def: short (Random Text) (do [! random.monad] - [size (|> random.nat (# ! each (n.% 10)))] + [size (|> random.nat (at ! each (n.% 10)))] (random.unicode size))) (def: symbol @@ -90,11 +90,11 @@ aliasedT {.#Named symbol/1 namedT}]] (all _.and (_.coverage [/.de_aliased] - (# /.equivalence = namedT (/.de_aliased aliasedT))) + (at /.equivalence = namedT (/.de_aliased aliasedT))) (_.coverage [/.anonymous] - (# /.equivalence = anonymousT (/.anonymous aliasedT))))) + (at /.equivalence = anonymousT (/.anonymous aliasedT))))) (do [! random.monad] - [size (|> random.nat (# ! each (n.% 3))) + [size (|> random.nat (at ! each (n.% 3))) members (|> (..random 0) (random.only (function (_ type) (case type @@ -124,11 +124,11 @@ (do maybe.monad [partial (/.applied (list Bit) Ann) full (/.applied (list Int) partial)] - (in (# /.equivalence = full {.#Product Bit Int})))) + (in (at /.equivalence = full {.#Product Bit Int})))) (|> (/.applied (list Bit) Text) (pipe.case {.#None} #1 _ #0)))) (do [! random.monad] - [size (|> random.nat (# ! each (n.% 3))) + [size (|> random.nat (at ! each (n.% 3))) members (monad.all ! (list.repeated size (..random 0))) extra (|> (..random 0) (random.only (function (_ type) @@ -150,7 +150,7 @@ (n.= (list.size members) (list.size tparams)))) )) (do [! random.monad] - [size (|> random.nat (# ! each (|>> (n.% 3) ++))) + [size (|> random.nat (at ! each (|>> (n.% 3) ++))) body_type (|> (..random 0) (random.only (function (_ type) (case type @@ -176,7 +176,7 @@ (|> body_type (/.ex_q size) /.quantified?))) ))) (do [! random.monad] - [depth (|> random.nat (# ! each (|>> (n.% 3) ++))) + [depth (|> random.nat (at ! each (|>> (n.% 3) ++))) element_type (|> (..random 0) (random.only (function (_ type) (case type diff --git a/stdlib/source/test/lux/type/check.lux b/stdlib/source/test/lux/type/check.lux index d8e92bebc..292cb35c1 100644 --- a/stdlib/source/test/lux/type/check.lux +++ b/stdlib/source/test/lux/type/check.lux @@ -93,7 +93,7 @@ (def: injection (Injection (All (_ a) (/.Check a))) - (# /.monad in)) + (at /.monad in)) (def: comparison (Comparison (All (_ a) (/.Check a))) @@ -666,7 +666,7 @@ [parameter/0 parameter/1] (..non_twins type#= ..nominal) left_name ..symbol right_name ..symbol - ring_tail_size (# ! each (n.% 10) random.nat)] + ring_tail_size (at ! each (n.% 10) random.nat)] (_.coverage [/.check] (and (..handles_nominal_types! name/0 name/1 parameter/0 parameter/1) (..handles_products! name/0 name/1) @@ -888,7 +888,7 @@ [expected random.nat] (_.coverage [/.result] (case (/.result /.fresh_context - (# /.monad in expected)) + (at /.monad in expected)) {try.#Success actual} (same? expected actual) {try.#Failure error} false))) ..error_handling diff --git a/stdlib/source/test/lux/type/implicit.lux b/stdlib/source/test/lux/type/implicit.lux index 7a345cd53..590842360 100644 --- a/stdlib/source/test/lux/type/implicit.lux +++ b/stdlib/source/test/lux/type/implicit.lux @@ -25,7 +25,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [.let [digit (# ! each (n.% 10) random.nat)] + [.let [digit (at ! each (n.% 10) random.nat)] left digit right digit .let [start (n.min left right) @@ -34,31 +34,31 @@ left random.nat right random.nat] (all _.and - (_.coverage [/.##] + (_.coverage [/.a/an] (let [first_order! (let [(open "list#[0]") (list.equivalence n.equivalence)] - (and (bit#= (# n.equivalence = left right) - (/.## = left right)) - (list#= (# list.functor each ++ (enum.range n.enum start end)) - (/.## each ++ (enum.range n.enum start end))))) + (and (bit#= (at n.equivalence = left right) + (/.a/an = left right)) + (list#= (at list.functor each ++ (enum.range n.enum start end)) + (/.a/an each ++ (enum.range n.enum start end))))) second_order! - (/.## = - (enum.range n.enum start end) - (enum.range n.enum start end)) + (/.a/an = + (enum.range n.enum start end) + (enum.range n.enum start end)) third_order! - (let [lln (/.## each (enum.range n.enum start) - (enum.range n.enum start end))] - (/.## = lln lln))] + (let [lln (/.a/an each (enum.range n.enum start) + (enum.range n.enum start end))] + (/.a/an = lln lln))] (and first_order! second_order! third_order!))) (_.coverage [/.with] (/.with [n.addition] - (n.= (# n.addition composite left right) - (/.## composite left right)))) + (n.= (at n.addition composite left right) + (/.a/an composite left right)))) (_.coverage [/.implicit:] - (n.= (# n.multiplication composite left right) - (/.## composite left right))) + (n.= (at n.multiplication composite left right) + (/.a/an composite left right))) )))) diff --git a/stdlib/source/test/lux/type/poly/equivalence.lux b/stdlib/source/test/lux/type/poly/equivalence.lux index 6be8c7ec6..9f353f55a 100644 --- a/stdlib/source/test/lux/type/poly/equivalence.lux +++ b/stdlib/source/test/lux/type/poly/equivalence.lux @@ -57,8 +57,8 @@ (def: random (Random Record) (do [! random.monad] - [size (# ! each (n.% 2) random.nat) - .let [gen_int (|> random.int (# ! each (|>> i.abs (i.% +1,000,000))))]] + [size (at ! each (n.% 2) random.nat) + .let [gen_int (|> random.int (at ! each (|>> i.abs (i.% +1,000,000))))]] (all random.and random.bit gen_int diff --git a/stdlib/source/test/lux/type/poly/json.lux b/stdlib/source/test/lux/type/poly/json.lux index 9ecd3684c..3ec8050a6 100644 --- a/stdlib/source/test/lux/type/poly/json.lux +++ b/stdlib/source/test/lux/type/poly/json.lux @@ -85,12 +85,12 @@ (def: qty (All (_ unit) (Random (unit.Qty unit))) - (# random.monad each (debug.private unit.in') random.int)) + (at random.monad each (debug.private unit.in') random.int)) (def: gen_record (Random Record) (do [! random.monad] - [size (# ! each (n.% 2) random.nat)] + [size (at ! each (n.% 2) random.nat)] (all random.and random.bit random.safe_frac diff --git a/stdlib/source/test/lux/type/quotient.lux b/stdlib/source/test/lux/type/quotient.lux index c8652e8c7..7c4f03923 100644 --- a/stdlib/source/test/lux/type/quotient.lux +++ b/stdlib/source/test/lux/type/quotient.lux @@ -18,7 +18,7 @@ (def: .public (random class super) (All (_ t c %) (-> (/.Class t c %) (Random t) (Random (/.Quotient t c %)))) - (# random.monad each (/.quotient class) super)) + (at random.monad each (/.quotient class) super)) (def: mod_10_class (/.class (|>> (n.% 10) %.nat))) diff --git a/stdlib/source/test/lux/type/refinement.lux b/stdlib/source/test/lux/type/refinement.lux index 514d59e79..29856f4f5 100644 --- a/stdlib/source/test/lux/type/refinement.lux +++ b/stdlib/source/test/lux/type/refinement.lux @@ -29,10 +29,10 @@ (_.for [/.Refined]) (do [! random.monad] [raw random.nat - modulus (# ! each (|>> (n.% 10) (n.+ 2)) random.nat) + modulus (at ! each (|>> (n.% 10) (n.+ 2)) random.nat) .let [predicate (is (Predicate Nat) (|>> (n.% modulus) (n.= 0)))] - total_raws (# ! each (|>> (n.% 20) ++) random.nat) + total_raws (at ! each (|>> (n.% 20) ++) random.nat) raws (random.list total_raws random.nat)] (all _.and (_.for [/.Refiner] @@ -70,9 +70,9 @@ actual (/.only (/.refiner predicate) raws)] (and (n.= (list.size expected) (list.size actual)) - (# (list.equivalence n.equivalence) = - expected - (list#each /.value actual))))) + (at (list.equivalence n.equivalence) = + expected + (list#each /.value actual))))) (_.coverage [/.partition] (let [expected (list.only predicate raws) [actual alternative] (/.partition (/.refiner predicate) raws)] @@ -80,9 +80,9 @@ (list.size actual)) (n.= (n.- (list.size expected) total_raws) (list.size alternative)) - (# (list.equivalence n.equivalence) = - expected - (list#each /.value actual))))) + (at (list.equivalence n.equivalence) = + expected + (list#each /.value actual))))) (_.coverage [/.type] (exec (is (Maybe .._type) (.._refiner raw)) diff --git a/stdlib/source/test/lux/type/resource.lux b/stdlib/source/test/lux/type/resource.lux index a33c4817d..8a42a444e 100644 --- a/stdlib/source/test/lux/type/resource.lux +++ b/stdlib/source/test/lux/type/resource.lux @@ -29,8 +29,8 @@ (def: pure Test (monad.do [! random.monad] - [pre (# ! each %.nat random.nat) - post (# ! each %.nat random.nat) + [pre (at ! each %.nat random.nat) + post (at ! each %.nat random.nat) .let [! identity.monad]] (_.for [/.Linear /.run! /.monad] (`` (all _.and @@ -71,8 +71,8 @@ (def: sync Test (monad.do [! random.monad] - [pre (# ! each %.nat random.nat) - post (# ! each %.nat random.nat) + [pre (at ! each %.nat random.nat) + post (at ! each %.nat random.nat) .let [! io.monad]] (_.for [/.Linear /.run! /.monad] (`` (all _.and @@ -114,8 +114,8 @@ (def: async Test (monad.do [! random.monad] - [pre (# ! each %.nat random.nat) - post (# ! each %.nat random.nat) + [pre (at ! each %.nat random.nat) + post (at ! each %.nat random.nat) .let [! async.monad]] (_.for [/.Linear /.run! /.monad] (`` (all _.and diff --git a/stdlib/source/test/lux/type/unit.lux b/stdlib/source/test/lux/type/unit.lux index 7ea97fc3f..f976aae54 100644 --- a/stdlib/source/test/lux/type/unit.lux +++ b/stdlib/source/test/lux/type/unit.lux @@ -26,9 +26,9 @@ [(def: (<name> range) (-> Nat (Random (/.Qty <type>))) (|> random.int - (# random.monad each (i.% (.int range))) + (at random.monad each (i.% (.int range))) (random.only (|>> (i.= +0) not)) - (# random.monad each (# <unit> in))))] + (at random.monad each (at <unit> in))))] [meter /.Meter /.meter] [second /.Second /.second] @@ -56,8 +56,8 @@ (~~ (template [<type> <unit>] [(_.coverage [<type> <unit>] (|> expected - (# <unit> in) - (# <unit> out) + (at <unit> in) + (at <unit> out) (i.= expected)))] [/.Gram /.gram] @@ -72,15 +72,15 @@ (i.= expected))) (_.coverage [/.unit:] (|> expected - (# ..what in) - (# ..what out) + (at ..what in) + (at ..what out) (i.= expected))) ))))) (syntax: (natural []) - (# meta.monad each - (|>> code.nat list) - meta.seed)) + (at meta.monad each + (|>> code.nat list) + meta.seed)) (with_expansions [<from> (..natural) <to> (..natural)] @@ -95,26 +95,26 @@ Test (do [! random.monad] [small (|> random.int - (# ! each (i.% +1,000)) - (# ! each (# /.meter in))) + (at ! each (i.% +1,000)) + (at ! each (at /.meter in))) large (|> random.int - (# ! each (i.% +1,000)) - (# ! each (i.* +1,000,000,000)) - (# ! each (# /.meter in))) + (at ! each (i.% +1,000)) + (at ! each (i.* +1,000,000,000)) + (at ! each (at /.meter in))) .let [(open "meter#[0]") (is (Equivalence (/.Qty /.Meter)) /.equivalence)] unscaled (|> random.int - (# ! each (i.% +1,000)) - (# ! each (i.* (.int how::to))) - (# ! each (# /.meter in)))] + (at ! each (i.% +1,000)) + (at ! each (i.* (.int how::to))) + (at ! each (at /.meter in)))] (_.for [/.Scale] (`` (all _.and (~~ (template [<type> <scale>] [(_.coverage [<type> <scale>] (|> large - (# <scale> scale) + (at <scale> scale) (is (/.Qty (<type> /.Meter))) - (# <scale> de_scale) + (at <scale> de_scale) (is (/.Qty /.Meter)) (meter#= large)))] @@ -125,9 +125,9 @@ (~~ (template [<type> <scale>] [(_.coverage [<type> <scale>] (|> small - (# <scale> scale) + (at <scale> scale) (is (/.Qty (<type> /.Meter))) - (# <scale> de_scale) + (at <scale> de_scale) (is (/.Qty /.Meter)) (meter#= small)))] @@ -137,25 +137,25 @@ )) (_.coverage [/.re_scaled] (|> large (is (/.Qty /.Meter)) - (# /.kilo scale) (is (/.Qty (/.Kilo /.Meter))) + (at /.kilo scale) (is (/.Qty (/.Kilo /.Meter))) (/.re_scaled /.kilo /.milli) (is (/.Qty (/.Milli /.Meter))) (/.re_scaled /.milli /.kilo) (is (/.Qty (/.Kilo /.Meter))) - (# /.kilo de_scale) (is (/.Qty /.Meter)) + (at /.kilo de_scale) (is (/.Qty /.Meter)) (meter#= large))) (_.coverage [/.scale:] (and (|> unscaled - (# ..how scale) - (# ..how de_scale) + (at ..how scale) + (at ..how de_scale) (meter#= unscaled)) (ratio#= [..how::from ..how::to] - (# ..how ratio)))) + (at ..how ratio)))) ))))) (def: arithmetic Test (do random.monad - [.let [zero (# /.meter in +0) + [.let [zero (at /.meter in +0) (open "meter#[0]") (is (Equivalence (/.Qty /.Meter)) /.equivalence)] left (random.only (|>> (meter#= zero) not) (..meter 1,000)) @@ -164,14 +164,14 @@ (`` (all _.and (~~ (template [<q> <i>] [(_.coverage [<q>] - (i.= (<i> (# /.meter out left) (# /.meter out right)) - (# /.meter out (<q> left right))))] + (i.= (<i> (at /.meter out left) (at /.meter out right)) + (at /.meter out (<q> left right))))] [/.+ i.+] [/.- i.-] )) (_.coverage [/.*] - (let [expected (i.* (# /.meter out left) (# /.meter out right)) + (let [expected (i.* (at /.meter out left) (at /.meter out right)) actual ((debug.private /.out') (is (/.Qty [/.Meter /.Meter]) (/.* left right)))] (i.= expected actual))) diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux index cb0978bda..068a67aa7 100644 --- a/stdlib/source/test/lux/world/console.lux +++ b/stdlib/source/test/lux/world/console.lux @@ -61,7 +61,7 @@ (io.run! (do io.monad [?_ (/.write_line expected console) - ?actual (# console read_line [])] + ?actual (at console read_line [])] (in (<| (try.else false) (do try.monad [_ ?_ diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index 2e06d0af5..5617489b9 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -188,7 +188,7 @@ {.#Some {.#Right children}} (|> children (monad.only ! (..file? disk)) - (# ! each (|>> {try.#Success}))) + (at ! each (|>> {try.#Success}))) _ (in {try.#Failure ""})))) @@ -199,7 +199,7 @@ {.#Some {.#Right children}} (|> children (monad.only ! (..directory? disk)) - (# ! each (|>> {try.#Success}))) + (at ! each (|>> {try.#Success}))) _ (in {try.#Failure ""})))) @@ -252,7 +252,7 @@ (in (do async.monad [.let [fs (/.mock /)] - ? (# fs delete file)] + ? (at fs delete file)] (_.coverage' [/.cannot_delete] (case ? {try.#Failure error} @@ -262,7 +262,7 @@ false)))) (in (do async.monad [.let [fs (/.mock /)] - ? (# fs read file)] + ? (at fs read file)] (_.coverage' [/.cannot_find_file] (case ? {try.#Failure error} @@ -272,8 +272,8 @@ false)))) (in (do async.monad [.let [fs (/.mock /)] - ?/0 (# fs directory_files file) - ?/1 (# fs sub_directories file)] + ?/0 (at fs directory_files file) + ?/1 (at fs sub_directories file)] (_.coverage' [/.cannot_find_directory] (case [?/0 ?/1] [{try.#Failure error/0} {try.#Failure error/1}] diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux index 9ab9e68ec..b4d090cbb 100644 --- a/stdlib/source/test/lux/world/file/watch.lux +++ b/stdlib/source/test/lux/world/file/watch.lux @@ -33,7 +33,7 @@ (random#in [/.deletion /.deletion?]) )) -(def: concern##test +(def: concern::test Test (all _.and (_.coverage [/.creation /.creation?] @@ -71,8 +71,8 @@ .let [[fs watcher] (/.mock "/")]] (all _.and (in (do async.monad - [?concern (# watcher concern directory) - ?stop (# watcher stop directory)] + [?concern (at watcher concern directory) + ?stop (at watcher stop directory)] (_.coverage' [/.not_being_watched] (and (case ?concern {try.#Failure error} @@ -91,18 +91,18 @@ (def: (no_events_prior_to_creation! fs watcher directory) (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit))) (do [! (try.with async.monad)] - [_ (# fs make_directory directory) - _ (# watcher start /.all directory)] - (|> (# watcher poll []) - (# ! each list.empty?)))) + [_ (at fs make_directory directory) + _ (at watcher start /.all directory)] + (|> (at watcher poll []) + (at ! each list.empty?)))) (def: (after_creation! fs watcher expected_path) (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit))) (do (try.with async.monad) [_ (is (Async (Try Any)) (//.make_file async.monad fs (binary.empty 0) expected_path)) - poll/pre (# watcher poll []) - poll/post (# watcher poll [])] + poll/pre (at watcher poll []) + poll/post (at watcher poll [])] (in (and (case poll/pre (pattern (list [concern actual_path])) (and (text#= expected_path actual_path) @@ -118,9 +118,9 @@ (-> (//.System Async) (/.Watcher Async) Binary //.Path (Async (Try Bit))) (do (try.with async.monad) [_ (async.after 1 {try.#Success "Delay to make sure the over_write time-stamp always changes."}) - _ (# fs write expected_path data) - poll/2 (# watcher poll []) - poll/2' (# watcher poll [])] + _ (at fs write expected_path data) + poll/2 (at watcher poll []) + poll/2' (at watcher poll [])] (in (and (case poll/2 (pattern (list [concern actual_path])) (and (text#= expected_path actual_path) @@ -135,9 +135,9 @@ (def: (after_deletion! fs watcher expected_path) (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit))) (do (try.with async.monad) - [_ (# fs delete expected_path) - poll/3 (# watcher poll []) - poll/3' (# watcher poll [])] + [_ (at fs delete expected_path) + poll/3 (at watcher poll []) + poll/3' (at watcher poll [])] (in (and (case poll/3 (pattern (list [concern actual_path])) (and (not (/.creation? concern)) @@ -154,15 +154,15 @@ (_.for [/.Watcher]) (all _.and (_.for [/.Concern] - ..concern##test) + ..concern::test) ..exception (do [! random.monad] [directory (random.alphabetic 5) .let [/ "/" [fs watcher] (/.mock /)] - expected_path (# ! each (|>> (format directory /)) - (random.alphabetic 5)) + expected_path (at ! each (|>> (format directory /)) + (random.alphabetic 5)) data ($binary.random 10)] (in (do [! async.monad] [verdict (do (try.with !) @@ -188,7 +188,7 @@ .let [/ "/" [fs watcher] (/.mock /)]] (in (do async.monad - [started? (# watcher start /.all directory)] + [started? (at watcher start /.all directory)] (_.coverage' [/.cannot_poll_a_non_existent_directory] (case started? {try.#Success _} diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux index 3ffd0edf6..4e9db7301 100644 --- a/stdlib/source/test/lux/world/input/keyboard.lux +++ b/stdlib/source/test/lux/world/input/keyboard.lux @@ -140,7 +140,7 @@ (Random /.Key) (let [count (list.size ..listing)] (do [! random.monad] - [choice (# ! each (n.% count) random.nat)] + [choice (at ! each (n.% count) random.nat)] (in (maybe.trusted (list.item choice ..listing)))))) (def: .public test diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux index cf5005977..380e3a257 100644 --- a/stdlib/source/test/lux/world/net/http/client.lux +++ b/stdlib/source/test/lux/world/net/http/client.lux @@ -41,12 +41,12 @@ product.right (the //.#body) (function.on {.#None}) - (# ! each (|>> (pipe.do try.monad - [] - [product.right (# utf8.codec decoded)] - [(# nat.decimal decoded)] - [(nat.= expected) in]) - (try.else false)))) + (at ! each (|>> (pipe.do try.monad + [] + [product.right (at utf8.codec decoded)] + [(at nat.decimal decoded)] + [(nat.= expected) in]) + (try.else false)))) {try.#Failure error} (in false)))) @@ -65,7 +65,7 @@ on_connect random.nat on_options random.nat on_trace random.nat - num_headers (# ! each (nat.% 10) random.nat) + num_headers (at ! each (nat.% 10) random.nat) headers (random.dictionary text.hash num_headers (random.lower_case 3) (random.lower_case 3)) .let [mock (is (/.Client IO) (implementation @@ -81,8 +81,8 @@ {//.#Options} on_options {//.#Trace} on_trace) data (|> value - (# nat.decimal encoded) - (# utf8.codec encoded))] + (at nat.decimal encoded) + (at utf8.codec encoded))] {try.#Success [//status.ok [//.#headers headers //.#body (function (_ ?wanted_bytes) diff --git a/stdlib/source/test/lux/world/output/video/resolution.lux b/stdlib/source/test/lux/world/output/video/resolution.lux index 347162ff5..f9e679733 100644 --- a/stdlib/source/test/lux/world/output/video/resolution.lux +++ b/stdlib/source/test/lux/world/output/video/resolution.lux @@ -47,7 +47,7 @@ (Random /.Resolution) (let [count (list.size ..listing)] (do [! random.monad] - [choice (# ! each (n.% count) random.nat)] + [choice (at ! each (n.% count) random.nat)] (in (maybe.trusted (list.item choice ..listing)))))) (def: .public test diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux index 390a77515..3067422e0 100644 --- a/stdlib/source/test/lux/world/program.lux +++ b/stdlib/source/test/lux/world/program.lux @@ -42,7 +42,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [env_size (# ! each (|>> (n.% 10) ++) random.nat) + [env_size (at ! each (|>> (n.% 10) ++) random.nat) environment (..environment env_size) home ..path directory ..path @@ -68,7 +68,7 @@ (_.coverage [/.unknown_environment_variable] (let [program (/.mock environment home directory)] (|> unknown - (# program variable) + (at program variable) io.run! (pipe.case {try.#Success _} false diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux index c30aef45d..3ad40e908 100644 --- a/stdlib/source/test/lux/world/shell.lux +++ b/stdlib/source/test/lux/world/shell.lux @@ -98,11 +98,11 @@ .let [shell (/.async (..io_shell command oops input destruction exit))]] (in (do [! async.monad] [verdict (do (try.with !) - [process (# shell execute [environment.empty "~" command (list)]) - read (# process read []) - failure (# process fail []) + [process (at shell execute [environment.empty "~" command (list)]) + read (at process read []) + failure (at process fail []) wrote! (do ! - [write (# process write input)] + [write (at process write input)] (in {try.#Success (case write {try.#Success _} false @@ -110,14 +110,14 @@ {try.#Failure write} (text#= input write))})) destroyed! (do ! - [destroy (# process destroy [])] + [destroy (at process destroy [])] (in {try.#Success (case destroy {try.#Success _} false {try.#Failure destroy} (text#= destruction destroy))})) - await (# process await [])] + await (at process await [])] (in (and (text#= command read) (text#= oops failure) wrote! |