diff options
Diffstat (limited to 'stdlib/source/test')
287 files changed, 1542 insertions, 1542 deletions
diff --git a/stdlib/source/test/aedifex.lux b/stdlib/source/test/aedifex.lux index 929d5de80..ccdc14e05 100644 --- a/stdlib/source/test/aedifex.lux +++ b/stdlib/source/test/aedifex.lux @@ -25,7 +25,7 @@ ["[1][0]" repository] ["[1][0]" runtime]]) -(def: dependency +(def dependency Test (all _.and /dependency.test @@ -34,7 +34,7 @@ /dependency/status.test )) -(def: test +(def test Test (all _.and /artifact.test diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux index aefe175f4..1b9bad2f0 100644 --- a/stdlib/source/test/aedifex/artifact.lux +++ b/stdlib/source/test/aedifex/artifact.lux @@ -26,7 +26,7 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Artifact) (let [size 4] (all random.and @@ -34,7 +34,7 @@ (random.lower_case size) (random.lower_case size)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/aedifex/artifact/extension.lux b/stdlib/source/test/aedifex/artifact/extension.lux index 7ca90b6a6..80b49fdfb 100644 --- a/stdlib/source/test/aedifex/artifact/extension.lux +++ b/stdlib/source/test/aedifex/artifact/extension.lux @@ -18,7 +18,7 @@ ["/[1]" // ["[1]" type]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Extension] diff --git a/stdlib/source/test/aedifex/artifact/snapshot.lux b/stdlib/source/test/aedifex/artifact/snapshot.lux index 628412bee..8888dc848 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot.lux @@ -20,12 +20,12 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Snapshot) (random.or (random#in []) $/stamp.random)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Snapshot] diff --git a/stdlib/source/test/aedifex/artifact/snapshot/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux index 71024f4d0..f6224dd0b 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/build.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux @@ -15,11 +15,11 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Build) random.nat) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Build] diff --git a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux index ae1ffb7a5..c24a06f5a 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux @@ -20,14 +20,14 @@ ["[1][0]" time] ["[1][0]" build]]) -(def: .public random +(def .public random (Random /.Stamp) (all random.and $//time.random $//build.random )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Stamp]) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/time.lux b/stdlib/source/test/aedifex/artifact/snapshot/time.lux index a26532ce1..3b6136ce9 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/time.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/time.lux @@ -18,11 +18,11 @@ ["$[0]" /// ["[1][0]" time]]) -(def: .public random +(def .public random (Random /.Time) $///time.random) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Time]) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux index c5c8f0e71..d2a3e01e4 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux @@ -20,7 +20,7 @@ ["[1][0]" type] ["[1][0]" time]]) -(def: .public random +(def .public random (Random /.Version) (all random.and $///type.random @@ -28,7 +28,7 @@ $///time.random )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Version]) diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux index 5fcef9a0c..0c63a2215 100644 --- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux @@ -27,7 +27,7 @@ ["[1][0]" stamp] ["[1][0]" time]]]]) -(def: .public random +(def .public random (Random /.Value) (all random.and (random.alphabetic 5) @@ -35,7 +35,7 @@ $///stamp.random) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Value]) diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux index 8ee637360..c6ba0f2c0 100644 --- a/stdlib/source/test/aedifex/artifact/time.lux +++ b/stdlib/source/test/aedifex/artifact/time.lux @@ -23,14 +23,14 @@ ["[1][0]" date] ["[1][0]" time]]) -(def: .public random +(def .public random (Random /.Time) (do random.monad [date /date.random time /time.random] (in [date time]))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Time]) diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux index b53420e0a..6d2e4296a 100644 --- a/stdlib/source/test/aedifex/artifact/time/date.lux +++ b/stdlib/source/test/aedifex/artifact/time/date.lux @@ -23,7 +23,7 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Date) (random.one (function (_ raw) (try.maybe @@ -35,7 +35,7 @@ (/.date raw)))) random.date)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Date]) diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux index 9a7189e33..33bc56c87 100644 --- a/stdlib/source/test/aedifex/artifact/time/time.lux +++ b/stdlib/source/test/aedifex/artifact/time/time.lux @@ -18,14 +18,14 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Time) (random.one (|>> time.clock (has time.#milli_second 0) time.time) random.time)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Time]) diff --git a/stdlib/source/test/aedifex/artifact/type.lux b/stdlib/source/test/aedifex/artifact/type.lux index a2b5926e5..003123f40 100644 --- a/stdlib/source/test/aedifex/artifact/type.lux +++ b/stdlib/source/test/aedifex/artifact/type.lux @@ -16,7 +16,7 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Type) (all random.either (all random.either @@ -28,7 +28,7 @@ (random#in /.sha-1)) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Type] diff --git a/stdlib/source/test/aedifex/artifact/versioning.lux b/stdlib/source/test/aedifex/artifact/versioning.lux index d1efdb17f..451d0b824 100644 --- a/stdlib/source/test/aedifex/artifact/versioning.lux +++ b/stdlib/source/test/aedifex/artifact/versioning.lux @@ -19,7 +19,7 @@ ["[1][0]" snapshot (.only) ["[1]/[0]" version]]]) -(def: .public random +(def .public random (Random /.Versioning) (all random.and $//snapshot.random @@ -27,7 +27,7 @@ (random.list 5 $//snapshot/version.random) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Versioning]) diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux index 34173ce62..6456cc824 100644 --- a/stdlib/source/test/aedifex/cache.lux +++ b/stdlib/source/test/aedifex/cache.lux @@ -46,13 +46,13 @@ ["[1][0]" repository ["[1]/[0]" origin]]]]]) -(def: type +(def type (Random Type) (all random.either (random#in //artifact/type.lux_library) (random#in //artifact/type.jvm_library))) -(def: profile +(def profile (Random [Artifact Profile XML]) (random.one (function (_ profile) (try.maybe @@ -62,13 +62,13 @@ (in [identity profile pom])))) @profile.random)) -(def: content +(def content (Random Binary) (do [! random.monad] [content_size (at ! each (n.% 100) random.nat)] (_binary.random content_size))) -(def: package +(def package (Random [Dependency Package]) (do [! random.monad] [[identity profile pom] ..profile @@ -78,7 +78,7 @@ //dependency.#type type] (has //package.#origin {//repository/origin.#Remote ""} (//package.local pom content))]))) -(def: resolution +(def resolution (Random Resolution) (do [! random.monad] [[main_dependency main_package] ..package @@ -99,7 +99,7 @@ (has //package.#origin {//repository/origin.#Remote ""} (//package.local pom content))])))))] (in (dictionary.of_list //dependency.hash (list.partial [main_dependency main_package] dependencies))))) -(def: singular +(def singular Test (do [! random.monad] [[dependency expected_package] ..package @@ -120,7 +120,7 @@ (has //package.#origin {//repository/origin.#Local ""} expected_package) actual_package))))))))) -(def: plural +(def plural Test (do [! random.monad] [expected ..resolution @@ -143,7 +143,7 @@ expected) actual))))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux index f0b011180..a4af47e46 100644 --- a/stdlib/source/test/aedifex/cli.lux +++ b/stdlib/source/test/aedifex/cli.lux @@ -22,12 +22,12 @@ ["/[1]" // ["[1]" profile]]]]) -(def: compilation +(def compilation (Random /.Compilation) (random.or (random#in []) (random#in []))) -(def: command +(def command (Random /.Command) (all random.or ... #Version @@ -50,13 +50,13 @@ ... #Auto ..compilation)) -(def: (compilation_format value) +(def (compilation_format value) (-> /.Compilation (List Text)) (case value {/.#Build} (list "build") {/.#Test} (list "test"))) -(def: (format value) +(def (format value) (-> /.Command (List Text)) (case value {/.#Version} (list "version") @@ -68,7 +68,7 @@ {/.#Compilation compilation} (..compilation_format compilation) {/.#Auto compilation} (list.partial "auto" (..compilation_format compilation)))) -(def: without_profile +(def without_profile Test (do random.monad [expected ..command] @@ -84,7 +84,7 @@ {try.#Failure error} false))))) -(def: with_profile +(def with_profile Test (do random.monad [expected_profile (random.alphabetic 1) @@ -102,7 +102,7 @@ {try.#Failure error} false))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Compilation /.Command] diff --git a/stdlib/source/test/aedifex/command.lux b/stdlib/source/test/aedifex/command.lux index 537f93562..cf3068d3c 100644 --- a/stdlib/source/test/aedifex/command.lux +++ b/stdlib/source/test/aedifex/command.lux @@ -18,7 +18,7 @@ [\\program ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Command]) diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux index 6834fe8eb..2d6ed1354 100644 --- a/stdlib/source/test/aedifex/command/auto.lux +++ b/stdlib/source/test/aedifex/command/auto.lux @@ -44,7 +44,7 @@ [dependency [resolution (.only Resolution)]]]]]) -(def: (command expected_runs end_signal fs dummy_file) +(def (command expected_runs end_signal fs dummy_file) (-> Nat Text (file.System Async) file.Path [(Atom Nat) (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any]))]) @@ -61,7 +61,7 @@ _ (at fs modify dummy_file (|> actual_runs .int instant.of_millis))] (in [shell.normal []])))))])) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux index c740ad48f..47c3ac71a 100644 --- a/stdlib/source/test/aedifex/command/build.lux +++ b/stdlib/source/test/aedifex/command/build.lux @@ -37,50 +37,50 @@ ["[1][0]" dependency (.only Dependency) ["[1]/[0]" resolution (.only Resolution)]]]]]) -(def: .public good_shell +(def .public good_shell (-> Any (Shell IO)) (shell.mock (function (_ [actual_environment actual_working_directory actual_command actual_arguments]) {try.#Success (is (shell.Mock []) (implementation - (def: (on_read state) + (def (on_read state) (exception.except shell.no_more_output [])) - (def: (on_fail state) + (def (on_fail state) (exception.except shell.no_more_output [])) - (def: (on_write input state) + (def (on_write input state) {try.#Failure "on_write"}) - (def: (on_destroy state) + (def (on_destroy state) {try.#Failure "on_destroy"}) - (def: (on_await state) + (def (on_await state) {try.#Success [state shell.normal]})))}))) -(def: .public bad_shell +(def .public bad_shell (-> Any (Shell IO)) (shell.mock (function (_ [actual_environment actual_working_directory actual_command actual_arguments]) {try.#Success (is (shell.Mock []) (implementation - (def: (on_read state) + (def (on_read state) (exception.except shell.no_more_output [])) - (def: (on_fail state) + (def (on_fail state) (exception.except shell.no_more_output [])) - (def: (on_write input state) + (def (on_write input state) {try.#Failure "on_write"}) - (def: (on_destroy state) + (def (on_destroy state) {try.#Failure "on_destroy"}) - (def: (on_await state) + (def (on_await state) {try.#Success [state shell.error]})))}))) -(def: .public (reader_shell error?) +(def .public (reader_shell error?) (-> Bit (-> (List Text) (Shell IO))) (shell.mock (function (_ [actual_environment actual_working_directory actual_command actual_arguments]) {try.#Success (is (shell.Mock (List Text)) (implementation - (def: (on_read state) + (def (on_read state) (if error? (exception.except shell.no_more_output []) (case state @@ -89,7 +89,7 @@ {.#End} (exception.except shell.no_more_output [])))) - (def: (on_fail state) + (def (on_fail state) (if error? (case state {.#Item head tail} @@ -98,14 +98,14 @@ {.#End} (exception.except shell.no_more_output [])) (exception.except shell.no_more_output []))) - (def: (on_write input state) + (def (on_write input state) {try.#Failure "on_write"}) - (def: (on_destroy state) + (def (on_destroy state) {try.#Failure "on_destroy"}) - (def: (on_await state) + (def (on_await state) {try.#Success [state shell.error]})))}))) -(def: compiler +(def compiler (Random Dependency) (do random.monad [lux_version (random.alphabetic 5) @@ -127,7 +127,7 @@ [/.ruby_lux_name] )))))) -(def: .public resolution +(def .public resolution (Random [Dependency Resolution]) (do random.monad [dependency ..compiler @@ -136,7 +136,7 @@ (|> ///dependency/resolution.empty (dictionary.has dependency package))]))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux index 4f37c7bc3..7edf91440 100644 --- a/stdlib/source/test/aedifex/command/clean.lux +++ b/stdlib/source/test/aedifex/command/clean.lux @@ -36,11 +36,11 @@ ["[1]" profile] ["[1][0]" action (.only Action)]]]]) -(def: node_name +(def node_name (Random Text) (random.alphabetic 10)) -(def: (files prefix) +(def (files prefix) (-> Path (Random (List [Path Binary]))) (do [! random.monad] [count (at ! each (n.% 10) random.nat) @@ -49,11 +49,11 @@ (in (list.zipped_2 (list#each (|>> (format prefix)) (set.list names)) contents)))) -(def: (create_file! fs [path content]) +(def (create_file! fs [path content]) (-> (file.System Async) [Path Binary] (Async (Try Any))) (at fs write path content)) -(def: (create_directory! fs path files) +(def (create_directory! fs path files) (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any))) (do [! (try.with async.monad)] [_ (is (Async (Try Any)) @@ -61,15 +61,15 @@ _ (monad.each ! (..create_file! fs) files)] (in []))) -(def: (directory_exists? fs) +(def (directory_exists? fs) (-> (file.System Async) Path (Async (Try Bit))) (|>> (at fs directory?) (try.lifted async.monad))) -(def: (file_exists? fs) +(def (file_exists? fs) (-> (file.System Async) Path (Async (Try Bit))) (|>> (at fs file?) (try.lifted async.monad))) -(def: (assets_exist? fs directory_path files) +(def (assets_exist? fs directory_path files) (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit))) (do [! (try.with async.monad)] [directory_exists? (..directory_exists? fs directory_path) @@ -80,7 +80,7 @@ (in (and directory_exists? (list.every? (|>>) files_exist?))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 871083df6..7b709c82d 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -53,7 +53,7 @@ ["[1][0]" artifact (.only Artifact) ["[1]/[0]" extension]]]]]) -(def: (execute! program local remote fs artifact profile) +(def (execute! program local remote fs artifact profile) (-> (Program Async) (Repository Async) (Repository Async) (file.System Async) Artifact ///.Profile (Async (Try Text))) @@ -64,7 +64,7 @@ _ (/.do! program shell console local remote fs artifact profile)] (at console read_line []))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux index 450152fe2..14d0f040b 100644 --- a/stdlib/source/test/aedifex/command/deps.lux +++ b/stdlib/source/test/aedifex/command/deps.lux @@ -52,7 +52,7 @@ ["[1]/[0]" origin] ["[1]/[0]" local]]]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux index de26f5ecb..a55e96d95 100644 --- a/stdlib/source/test/aedifex/command/install.lux +++ b/stdlib/source/test/aedifex/command/install.lux @@ -38,7 +38,7 @@ ["[1][0]" repository ["[1]/[0]" local]]]]]) -(def: .public (make_sources! fs sources) +(def .public (make_sources! fs sources) (-> (file.System Async) (Set file.Path) (Action (List Any))) (let [/ (at fs separator) ! ///action.monad] @@ -51,7 +51,7 @@ (is (Async (Try Any)) (file.make_file async.monad fs (binary.empty 0) (format head / head ".lux"))))))))) -(def: (execute! program fs sample) +(def (execute! program fs sample) (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text))) (do ///action.monad [.let [console ($version.echo "")] @@ -59,7 +59,7 @@ _ (/.do! console fs (///repository/local.repository program fs) sample)] (at console read_line []))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux index 278d91209..f6ba0e28e 100644 --- a/stdlib/source/test/aedifex/command/pom.lux +++ b/stdlib/source/test/aedifex/command/pom.lux @@ -30,7 +30,7 @@ ["[1][0]" action] ["[1][0]" pom]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux index 9b01c2feb..7ab540925 100644 --- a/stdlib/source/test/aedifex/command/test.lux +++ b/stdlib/source/test/aedifex/command/test.lux @@ -39,7 +39,7 @@ ["[1][0]" dependency (.only) ["[1]/[0]" resolution]]]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] @@ -86,15 +86,15 @@ {try.#Success (is (shell.Mock []) (implementation - (def: (on_read state) + (def (on_read state) (exception.except shell.no_more_output [])) - (def: (on_fail state) + (def (on_fail state) (exception.except shell.no_more_output [])) - (def: (on_write input state) + (def (on_write input state) {try.#Failure "on_write"}) - (def: (on_destroy state) + (def (on_destroy state) {try.#Failure "on_destroy"}) - (def: (on_await state) + (def (on_await state) {try.#Success [state (if (list.any? (text#= "build") actual_arguments) shell.normal shell.error)]})))}) diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux index 740065820..c8f427a71 100644 --- a/stdlib/source/test/aedifex/command/version.lux +++ b/stdlib/source/test/aedifex/command/version.lux @@ -29,10 +29,10 @@ (exception: .public console_is_closed!) -(def: mock +(def mock (Mock [Bit Text]) (implementation - (def: (on_read [open? state]) + (def (on_read [open? state]) (if open? (try.of_maybe (do maybe.monad @@ -40,29 +40,29 @@ [_ tail] (text.split_at 1 state)] (in [[open? tail] head]))) (exception.except ..console_is_closed! []))) - (def: (on_read_line [open? state]) + (def (on_read_line [open? state]) (if open? (try.of_maybe (do maybe.monad [[output state] (text.split_by text.new_line state)] (in [[open? state] output]))) (exception.except ..console_is_closed! []))) - (def: (on_write input [open? state]) + (def (on_write input [open? state]) (if open? {try.#Success [open? (format state input)]} (exception.except ..console_is_closed! []))) - (def: (on_close [open? buffer]) + (def (on_close [open? buffer]) (if open? {try.#Success [false buffer]} (exception.except ..console_is_closed! []))))) -(def: .public echo +(def .public echo (-> Text (Console Async)) (|>> [true] (console.mock ..mock) console.async)) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/aedifex/dependency.lux b/stdlib/source/test/aedifex/dependency.lux index 2d4e6b981..93acdb4c6 100644 --- a/stdlib/source/test/aedifex/dependency.lux +++ b/stdlib/source/test/aedifex/dependency.lux @@ -15,13 +15,13 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Dependency) (all random.and @artifact.random (random.alphabetic 1))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Dependency] diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index 0c605141a..456897460 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -49,7 +49,7 @@ ["[0]" repository (.only) ["[0]" remote]]]]]]) -(def: good_upload +(def good_upload (@http.Response IO) [http/status.created [@http.#headers (http.headers (list)) @@ -61,10 +61,10 @@ (type: Cache (Atom (Dictionary URL Binary))) -(def: (http cache) +(def (http cache) (-> Cache (http.Client IO)) (implementation - (def: (request method url headers input) + (def (request method url headers input) (do io.monad [_ (is (IO Any) (case [method input] @@ -75,7 +75,7 @@ (in [])))] (in {try.#Success ..good_upload}))))) -(def: (verify_one expected_deployments address package cache expected_artifact actual_artifact) +(def (verify_one expected_deployments address package cache expected_artifact actual_artifact) (-> Nat URL Package (Dictionary URL Binary) Artifact Artifact Bit) (let [url (is (-> URI URL) (|>> (format address))) @@ -131,7 +131,7 @@ artifact_metadata_upload! project_metadata_upload!))) -(def: bundle +(def bundle (Random [Dependency Artifact Package]) (do random.monad [[profile package] $///package.random @@ -143,7 +143,7 @@ artifact/type.lux_library])]] (in [dependency artifact package]))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux index 598b7fa24..ae4366042 100644 --- a/stdlib/source/test/aedifex/dependency/resolution.lux +++ b/stdlib/source/test/aedifex/dependency/resolution.lux @@ -48,7 +48,7 @@ ["[1][0]" repository (.only Mock) ["[1]/[0]" origin]]]]]) -(def: random +(def random (Random /.Resolution) (do [! random.monad] [artifact $///artifact.random @@ -58,51 +58,51 @@ package /.empty)))) -(def: lux_sha-1 +(def lux_sha-1 Text (format ///artifact/extension.lux_library ///artifact/extension.sha-1)) -(def: lux_md5 +(def lux_md5 Text (format ///artifact/extension.lux_library ///artifact/extension.md5)) -(def: pom_sha-1 +(def pom_sha-1 Text (format ///artifact/extension.pom ///artifact/extension.sha-1)) -(def: pom_md5 +(def pom_md5 Text (format ///artifact/extension.pom ///artifact/extension.md5)) -(def: sha-1 +(def sha-1 (-> Binary Binary) (|>> ///hash.sha-1 (at ///hash.sha-1_codec encoded) (at utf8.codec encoded))) -(def: md5 +(def md5 (-> Binary Binary) (|>> ///hash.md5 (at ///hash.md5_codec encoded) (at utf8.codec encoded))) -(def: .public nope +(def .public nope (Mock Any) (implementation - (def: the_description + (def the_description "[0]") - (def: (on_download uri state) + (def (on_download uri state) {try.#Failure "NOPE"}) - (def: (on_upload uri binary state) + (def (on_upload uri binary state) {try.#Failure "NOPE"}))) -(def: .public (single artifact package) +(def .public (single artifact package) (-> Artifact Package (Mock Any)) (let [expected (///artifact.uri (the ///artifact.#version artifact) artifact)] (implementation - (def: the_description + (def the_description "[1]") - (def: (on_download uri state) + (def (on_download uri state) (if (text.contains? expected uri) (let [library (is Binary (|> package @@ -135,15 +135,15 @@ ... else {try.#Failure "NOPE"})) {try.#Failure "NOPE"})) - (def: (on_upload uri binary state) + (def (on_upload uri binary state) {try.#Failure "NOPE"})))) -(def: (bad_sha-1 expected_artifact expected_package dummy_package) +(def (bad_sha-1 expected_artifact expected_package dummy_package) (-> Artifact Package Package (Mock Any)) (implementation - (def: the_description + (def the_description "[~SHA-1]") - (def: (on_download uri state) + (def (on_download uri state) (if (text.contains? (///artifact.uri (the ///artifact.#version expected_artifact) expected_artifact) uri) (cond (text.ends_with? ///artifact/extension.lux_library uri) {try.#Success [state (|> expected_package @@ -188,15 +188,15 @@ ... else {try.#Failure "NOPE"}) {try.#Failure "NOPE"})) - (def: (on_upload uri binary state) + (def (on_upload uri binary state) {try.#Failure "NOPE"}))) -(def: (bad_md5 expected_artifact expected_package dummy_package) +(def (bad_md5 expected_artifact expected_package dummy_package) (-> Artifact Package Package (Mock Any)) (implementation - (def: the_description + (def the_description "[~MD5]") - (def: (on_download uri state) + (def (on_download uri state) (if (text.contains? (///artifact.uri (the ///artifact.#version expected_artifact) expected_artifact) uri) (cond (text.ends_with? ///artifact/extension.lux_library uri) {try.#Success [state (|> expected_package @@ -241,10 +241,10 @@ ... else {try.#Failure "NOPE"}) {try.#Failure "NOPE"})) - (def: (on_upload uri binary state) + (def (on_upload uri binary state) {try.#Failure "NOPE"}))) -(def: one +(def one Test (do [! random.monad] [expected_artifact $///artifact.random @@ -289,7 +289,7 @@ )) )))) -(def: any +(def any Test (do [! random.monad] [expected_artifact $///artifact.random @@ -336,7 +336,7 @@ false)))) ))) -(def: artifacts +(def artifacts (Random [Artifact Artifact Artifact]) (do random.monad [dependee_artifact $///artifact.random @@ -349,7 +349,7 @@ $///artifact.random)] (in [dependee_artifact depender_artifact ignored_artifact]))) -(def: (packages [dependee_artifact depender_artifact ignored_artifact]) +(def (packages [dependee_artifact depender_artifact ignored_artifact]) (-> [Artifact Artifact Artifact] (Random [[Dependency Dependency Dependency] [Package Package Package]])) @@ -397,7 +397,7 @@ (in [[dependee depender ignored] [dependee_package depender_package ignored_package]]))) -(def: all +(def all Test (do [! random.monad] [[dependee_artifact depender_artifact ignored_artifact] ..artifacts @@ -427,7 +427,7 @@ (not (dictionary.key? resolution ignored)))))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Resolution]) diff --git a/stdlib/source/test/aedifex/dependency/status.lux b/stdlib/source/test/aedifex/dependency/status.lux index 6b59fa394..ef3d704f6 100644 --- a/stdlib/source/test/aedifex/dependency/status.lux +++ b/stdlib/source/test/aedifex/dependency/status.lux @@ -18,7 +18,7 @@ ["//[1]" /// ["[1][0]" hash]]]]) -(def: .public random +(def .public random (Random /.Status) (all random.or (random#in []) @@ -28,7 +28,7 @@ ($///hash.random ///hash.md5)) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Status] diff --git a/stdlib/source/test/aedifex/hash.lux b/stdlib/source/test/aedifex/hash.lux index b4ef53c73..28d912a48 100644 --- a/stdlib/source/test/aedifex/hash.lux +++ b/stdlib/source/test/aedifex/hash.lux @@ -25,7 +25,7 @@ [data ["_[0]" binary]]]]) -(def: .public (random hash) +(def .public (random hash) (All (_ h) (-> (-> Binary (/.Hash h)) (Random (/.Hash h)))) @@ -33,7 +33,7 @@ [size (at ! each (n.% 100) random.nat)] (at ! each hash (_binary.random size)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Hash /.SHA-1 /.MD5]) diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index 6932ccf56..47d8bf0c9 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -31,17 +31,17 @@ [repository [remote (.only Address)]]]]]) -(def: (with_default_source sources) +(def (with_default_source sources) (-> (Set //.Source) (Set //.Source)) (if (set.empty? sources) (set.has //.default_source sources) sources)) -(def: with_default_repository +(def with_default_repository (-> (Set Address) (Set Address)) (set.has //.default_repository)) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/local.lux b/stdlib/source/test/aedifex/local.lux index d5f058050..9adef30d6 100644 --- a/stdlib/source/test/aedifex/local.lux +++ b/stdlib/source/test/aedifex/local.lux @@ -15,7 +15,7 @@ ["/[1]" // ["[1][0]" artifact]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/metadata.lux b/stdlib/source/test/aedifex/metadata.lux index bdac5dfac..f5179d2a9 100644 --- a/stdlib/source/test/aedifex/metadata.lux +++ b/stdlib/source/test/aedifex/metadata.lux @@ -16,7 +16,7 @@ [\\program ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux index 041bad539..a43777707 100644 --- a/stdlib/source/test/aedifex/metadata/artifact.lux +++ b/stdlib/source/test/aedifex/metadata/artifact.lux @@ -41,7 +41,7 @@ ["[1][0]" repository ["[1]/[0]" local]]]]]]) -(def: .public random +(def .public random (Random /.Metadata) (all random.and (random.alphabetic 5) @@ -66,7 +66,7 @@ time.#milli_second 0])] (in (instant.of_date_time date time)))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Metadata]) diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux index 7cff9954a..a40ed0553 100644 --- a/stdlib/source/test/aedifex/metadata/snapshot.lux +++ b/stdlib/source/test/aedifex/metadata/snapshot.lux @@ -49,7 +49,7 @@ ["[1][0]" repository ["[1]/[0]" local]]]]]]) -(def: random_instant +(def random_instant (Random Instant) (do [! random.monad] [year (at ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) @@ -70,7 +70,7 @@ time.#milli_second 0])] (in (instant.of_date_time date time))))))) -(def: random_versioning +(def random_versioning (Random Versioning) (all random.and (random#in {///snapshot.#Local}) @@ -78,14 +78,14 @@ (random.list 5 $///artifact/snapshot/version.random) )) -(def: .public random +(def .public random (Random /.Metadata) (all random.and $///artifact.random ..random_versioning )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Metadata]) diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux index 2e669228a..42eded5a5 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -40,7 +40,7 @@ [repository ["[1][0]" origin]]]]]) -(def: .public random +(def .public random (Random [//.Profile /.Package]) (do [! random.monad] [content_size (at ! each (n.% 100) random.nat) @@ -53,7 +53,7 @@ $profile.random)] (in [profile (/.local pom content)]))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Package]) diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index 945576470..f887958b2 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -33,27 +33,27 @@ ["[1][0]" dependency (.only Dependency)] ["[1][0]" format]]]]) -(def: name +(def name (Random //.Name) (random.alphabetic 1)) -(def: (list_of random) +(def (list_of random) (All (_ a) (-> (Random a) (Random (List a)))) (do [! random.monad] [size (at ! each (n.% 5) random.nat)] (random.list size random))) -(def: (dictionary_of key_hash key_random value_random) +(def (dictionary_of key_hash key_random value_random) (All (_ k v) (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v)))) (at random.functor each (dictionary.of_list key_hash) (..list_of (random.and key_random value_random)))) -(def: random +(def random (Random Project) (..dictionary_of text.hash ..name @profile.random)) -(def: with_default_sources +(def with_default_sources (-> //.Profile //.Profile) (revised //.#sources (is (-> (Set //.Source) (Set //.Source)) @@ -62,17 +62,17 @@ (set.of_list text.hash (list //.default_source)) sources))))) -(def: with_default_repository +(def with_default_repository (-> //.Profile //.Profile) (revised //.#repositories (set.has //.default_repository))) -(def: (with_empty_profile project) +(def (with_empty_profile project) (-> Project Project) (if (dictionary.empty? project) (//project.project //.default (at //.monoid identity)) project)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.covering //format._) diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux index ab19c1c7f..e72eef0ef 100644 --- a/stdlib/source/test/aedifex/pom.lux +++ b/stdlib/source/test/aedifex/pom.lux @@ -22,7 +22,7 @@ ["/[1]" // ["[1]" profile]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux index 5a040973e..a71284333 100644 --- a/stdlib/source/test/aedifex/profile.lux +++ b/stdlib/source/test/aedifex/profile.lux @@ -39,62 +39,62 @@ [repository [remote (.only Address)]]]]]) -(def: distribution +(def distribution (Random /.Distribution) (random.or (random#in []) (random#in []))) -(def: license +(def license (Random /.License) (all random.and (random.alphabetic 1) (random.alphabetic 1) ..distribution)) -(def: scm +(def scm (Random /.SCM) (random.alphabetic 1)) -(def: organization +(def organization (Random /.Organization) (all random.and (random.alphabetic 1) (random.alphabetic 1))) -(def: email +(def email (Random /.Email) (random.alphabetic 1)) -(def: developer +(def developer (Random /.Developer) (all random.and (random.alphabetic 1) (random.alphabetic 1) (random.maybe organization))) -(def: contributor +(def contributor (Random /.Contributor) ..developer) -(def: (list_of random) +(def (list_of random) (All (_ a) (-> (Random a) (Random (List a)))) (do [! random.monad] [size (at ! each (n.% 5) random.nat)] (random.list size random))) -(def: (set_of hash random) +(def (set_of hash random) (All (_ a) (-> (Hash a) (Random a) (Random (Set a)))) (at random.functor each (set.of_list hash) (..list_of random))) -(def: (dictionary_of key_hash key_random value_random) +(def (dictionary_of key_hash key_random value_random) (All (_ k v) (-> (Hash k) (Random k) (Random v) (Random (Dictionary k v)))) (at random.functor each (dictionary.of_list key_hash) (..list_of (random.and key_random value_random)))) -(def: info +(def info (Random /.Info) (all random.and (random.maybe (random.alphabetic 1)) @@ -107,23 +107,23 @@ (..list_of ..contributor) )) -(def: name +(def name (Random /.Name) (random.alphabetic 1)) -(def: repository +(def repository (Random Address) (random.alphabetic 1)) -(def: source +(def source (Random /.Source) (random.alphabetic 1)) -(def: target +(def target (Random /.Target) (random.alphabetic 1)) -(def: .public random +(def .public random (Random /.Profile) (all random.and (..list_of ..name) @@ -147,7 +147,7 @@ (random#in //runtime.default_ruby) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Distribution /.License /.SCM /.Organization diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux index d0f658040..e66284a31 100644 --- a/stdlib/source/test/aedifex/project.lux +++ b/stdlib/source/test/aedifex/project.lux @@ -24,19 +24,19 @@ ["/[1]" // ["[1]" profile]]]]) -(def: profile +(def profile (Random [//.Name //.Profile]) (|> @profile.random (random#each (has //.#parents (list))) (random.and (random.alphabetic 1)))) -(def: .public random +(def .public random (Random /.Project) (do random.monad [[name profile] ..profile] (in (/.project name profile)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Project /.project] diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux index 6b4feec76..5ef8a77c8 100644 --- a/stdlib/source/test/aedifex/repository.lux +++ b/stdlib/source/test/aedifex/repository.lux @@ -38,7 +38,7 @@ ["[1][0]" artifact (.only Version Artifact) ["[1]/[0]" extension (.only Extension)]]]]]) -(def: artifact +(def artifact (-> Version Artifact) (|>> ["com.github.luxlang" "test-artifact"])) @@ -53,24 +53,24 @@ (type: Store (Dictionary URI Binary)) -(def: .public empty +(def .public empty Store (dictionary.empty text.hash)) -(def: valid_version +(def valid_version Version "1.2.3-YES") -(def: invalid_version +(def invalid_version Version "4.5.6-NO") -(def: .public mock +(def .public mock (/.Mock Store) (implementation - (def: the_description + (def the_description "@") - (def: (on_download uri state) + (def (on_download uri state) (case (dictionary.value uri state) {.#Some content} (case (binary.size content) @@ -79,12 +79,12 @@ {.#None} (exception.except ..not_found [uri]))) - (def: (on_upload uri content state) + (def (on_upload uri content state) (if (dictionary.key? state uri) (exception.except ..cannot_upload [uri]) {try.#Success (dictionary.has uri content state)})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/aedifex/repository/identity.lux b/stdlib/source/test/aedifex/repository/identity.lux index b7ab8e23d..5b556db20 100644 --- a/stdlib/source/test/aedifex/repository/identity.lux +++ b/stdlib/source/test/aedifex/repository/identity.lux @@ -10,14 +10,14 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Identity) (all random.and (random.alphabetic 10) (random.alphabetic 10) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.User /.Password /.Identity] diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux index 93bb28f1d..5a6be7777 100644 --- a/stdlib/source/test/aedifex/repository/local.lux +++ b/stdlib/source/test/aedifex/repository/local.lux @@ -23,7 +23,7 @@ [\\program ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/repository/origin.lux b/stdlib/source/test/aedifex/repository/origin.lux index 0f0fe6191..a414c8371 100644 --- a/stdlib/source/test/aedifex/repository/origin.lux +++ b/stdlib/source/test/aedifex/repository/origin.lux @@ -10,14 +10,14 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Origin) (all random.or (random.alphabetic 10) (random.alphabetic 10) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Origin] diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux index 75e9ff35e..1c16ddf09 100644 --- a/stdlib/source/test/aedifex/repository/remote.lux +++ b/stdlib/source/test/aedifex/repository/remote.lux @@ -31,16 +31,16 @@ ["/[1]" // ["[1][0]" identity]]]]) -(def: (url_body url) +(def (url_body url) (-> URL (@http.Body IO)) (let [url (at utf8.codec encoded url)] (function (_ _) (io.io {try.#Success [(binary.size url) url]})))) -(def: (good_http user password) +(def (good_http user password) (-> //identity.User //identity.Password (http.Client IO)) (implementation - (def: (request method url headers input) + (def (request method url headers input) (with_expansions [<failure> [http/status.bad_request [@http.#headers (http.headers (list)) @http.#body (..url_body "")]]] @@ -70,17 +70,17 @@ <failure>) <failure>)))))) -(def: bad_http +(def bad_http (http.Client IO) (implementation - (def: (request method url headers input) + (def (request method url headers input) (<| io.io {try.#Success} [http/status.bad_request [@http.#headers (http.headers (list)) @http.#body (..url_body "")]])))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux index 58d539584..dfe5abfac 100644 --- a/stdlib/source/test/aedifex/runtime.lux +++ b/stdlib/source/test/aedifex/runtime.lux @@ -20,7 +20,7 @@ [\\program ["[0]" /]]) -(def: .public random +(def .public random (Random /.Runtime) (all random.either (random#in /.default_java) @@ -30,7 +30,7 @@ (random#in /.default_ruby) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Runtime]) diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux index aa18015e5..71f03201e 100644 --- a/stdlib/source/test/lux.lux +++ b/stdlib/source/test/lux.lux @@ -75,7 +75,7 @@ (.~~ (.these))))] ]))) -(def: for_bit +(def for_bit Test (do random.monad [expected random.nat @@ -138,7 +138,7 @@ dummy)))) )))) -(def: for_try +(def for_try Test (do random.monad [expected_error (random.lower_case 5) @@ -167,7 +167,7 @@ false)) ))) -(def: for_list +(def for_list Test (do random.monad [e/0 random.nat @@ -190,23 +190,23 @@ (is (-> Any a) return))) -(def: (global_returner value) +(def (global_returner value) (All (_ a) (-> a (Returner a))) (/.implementation - (def: (return _) + (def (return _) value))) -(def: static_return 123) +(def static_return 123) (/.open: "global#[0]" (..global_returner ..static_return)) -(def: for_interface +(def for_interface Test (do random.monad [expected random.nat .let [local_returner (is (Returner Nat) (/.implementation - (def: (return _) + (def (return _) expected)))]] (_.for [/.Interface] (all _.and @@ -221,7 +221,7 @@ (n.= expected (/.at local_returner return []))) )))) -(def: for_module +(def for_module Test (all _.and (let [[module short] (/.symbol .example)] @@ -234,7 +234,7 @@ (not (text.contains? /.module_separator short))))) )) -(def: for_pipe +(def for_pipe Test (do random.monad [start random.nat @@ -255,15 +255,15 @@ ((/.<<| (n.* factor) ++) start))) ))) -(def: example_symbol "YOLO") -(def: i8 8) +(def example_symbol "YOLO") +(def i8 8) -(def: current_module +(def current_module Text (let [[module _] (symbol .._)] module)) -(def: for_code/' +(def for_code/' Test (do random.monad [example_nat random.nat] @@ -293,7 +293,7 @@ (/.' (~ (code.nat example_nat))))) )))) -(def: for_code/` +(def for_code/` Test (do random.monad [example_nat random.nat] @@ -322,7 +322,7 @@ (code#= (code.nat example_nat) (/.` (~ (code.nat example_nat)))))))) -(def: for_code/`' +(def for_code/`' Test (do random.monad [example_nat random.nat] @@ -351,7 +351,7 @@ (code#= (code.nat example_nat) (/.`' (~ (code.nat example_nat)))))))) -(def: for_code +(def for_code Test (do [! random.monad] [example (at ! each code.nat random.nat)] @@ -368,19 +368,19 @@ (location#= location.dummy))) ))) -(def: identity_macro +(def identity_macro (/.macro (_ tokens) (at meta.monad in tokens))) -(def: crosshair +(def crosshair "This is an arbitrary text whose only purpose is to be found, somewhere, in the source-code.") -(def: found_crosshair? +(def found_crosshair? (macro (_ tokens lux) (let [[_ _ source_code] (the .#source lux)] {.#Right [lux (list (code.bit (text.contains? ..crosshair source_code)))]}))) -(def: for_macro +(def for_macro Test (let [macro (is /.Macro' (function (_ tokens lux) @@ -522,7 +522,7 @@ (/.type: (for_type/all parameter) [parameter parameter]) -(def: for_type +(def for_type Test (do [! random.monad] [expected random.nat @@ -608,7 +608,7 @@ true)) )))) -(def: for_i64 +(def for_i64 Test (do random.monad [expected random.i64] @@ -633,7 +633,7 @@ expected))) ))) -(def: for_function +(def for_function Test (do random.monad [expected_left random.nat @@ -650,11 +650,11 @@ (n.= (n.* (++ expected_left) (-- expected_right)) (actual [expected_left expected_right]))))))) -(def: !n/+ +(def !n/+ (/.template (_ <left> <right>) [(n.+ <left> <right>)])) -(def: for_template +(def for_template Test (`` (all _.and (_.coverage [/.with_template] @@ -673,11 +673,11 @@ (!n/+ left right)))) ))) -(def: option/0 "0") -(def: option/1 "1") -(def: static_char "@") +(def option/0 "0") +(def option/1 "1") +(def static_char "@") -(def: for_static +(def for_static Test (do random.monad [sample (random.either (in option/0) @@ -704,7 +704,7 @@ [#big_left Nat #big_right Small])) -(def: for_slot +(def for_slot Test (do random.monad [start/s random.nat @@ -788,7 +788,7 @@ (n.= expected/s))))) ))) -(def: for_associative +(def for_associative Test (do random.monad [left (random.lower_case 1) @@ -809,7 +809,7 @@ (not (code#= (' <left_association>) (' <right_association>)))))))) -(def: for_expansion +(def for_expansion Test (do random.monad [left random.nat @@ -850,7 +850,7 @@ dummy)))) ))) -(def: for_value +(def for_value Test (do random.monad [left random.nat @@ -937,12 +937,12 @@ [#left l #right r])) -(def: !pair +(def !pair (template (_ <left> <right>) [[..#left <left> ..#right <right>]])) -(def: for_case +(def for_case Test (do [! random.monad] [expected_nat (at ! each (n.% 1) random.nat) @@ -998,7 +998,7 @@ (/.same? expected_int actual_right))))) ))) -(def: for_control_flow +(def for_control_flow Test (all _.and (do random.monad @@ -1023,24 +1023,24 @@ (same? post (io.run! (atom.read! box))))))) )) -(def: identity/constant +(def identity/constant (All (_ a) (-> a a)) (function (_ value) value)) -(def: (identity/function value) +(def (identity/function value) (All (_ a) (-> a a)) value) -(def: for_def: +(def for_def Test (do random.monad [expected random.nat] - (_.coverage [/.def:] + (_.coverage [/.def] (and (same? expected (identity/constant expected)) (same? expected (identity/function expected)))))) -(def: possible_targets +(def possible_targets (Set @.Target) (<| (set.of_list text.hash) (list @.old @@ -1050,7 +1050,7 @@ @.python @.ruby))) -(def: for_meta|Info +(def for_meta|Info (syntax (_ []) (function (_ lux) (let [info (the .#info lux) @@ -1065,7 +1065,7 @@ {.#Right [lux (list (code.bit (and conforming_target! compiling!)))]})))) -(def: for_meta|Module_State +(def for_meta|Module_State (syntax (_ []) (do meta.monad [prelude (meta.module .prelude)] @@ -1073,7 +1073,7 @@ {.#Active} false _ true))))))) -(def: for_meta +(def for_meta Test (all _.and (_.coverage [/.Mode /.Info] @@ -1082,7 +1082,7 @@ (for_meta|Module_State)) )) -(def: for_export +(def for_export Test (all _.and (_.coverage [/.public /.private] @@ -1093,7 +1093,7 @@ )) (for @.old (these) - (these (def: for_bindings|test + (these (def for_bindings|test (syntax (_ lux_state [fn/0 <code>.local var/0 <code>.local @@ -1154,7 +1154,7 @@ _ false)))))) - (def: for_bindings + (def for_bindings Test ((<| (template.with_locals [fn/0 var/0 let/0 fn/1 var/1 let/1 @@ -1174,7 +1174,7 @@ verdict))) 0 1 2)))) -(def: test|lux +(def test|lux Test (`` (`` (all _.and ..for_bit @@ -1196,14 +1196,14 @@ ..for_value ..for_case ..for_control_flow - ..for_def: + ..for_def ..for_meta ..for_export (~~ (for @.old (~~ (these)) (~~ (these ..for_bindings)))) )))) -(def: test +(def test Test (<| (_.covering /._) (`` (`` (_.in_parallel diff --git a/stdlib/source/test/lux/abstract.lux b/stdlib/source/test/lux/abstract.lux index b044876aa..a20f2f871 100644 --- a/stdlib/source/test/lux/abstract.lux +++ b/stdlib/source/test/lux/abstract.lux @@ -20,28 +20,28 @@ ["[1][0]" order] ["[1][0]" predicate]]) -(def: functor +(def functor Test (all _.and /functor.test /functor/contravariant.test )) -(def: monad +(def monad Test (all _.and /monad.test /monad/free.test )) -(def: comonad +(def comonad Test (all _.and /comonad.test /comonad/free.test )) -(def: .public test +(def .public test Test (all _.and /apply.test diff --git a/stdlib/source/test/lux/abstract/apply.lux b/stdlib/source/test/lux/abstract/apply.lux index d7845ae47..7eed1d6bc 100644 --- a/stdlib/source/test/lux/abstract/apply.lux +++ b/stdlib/source/test/lux/abstract/apply.lux @@ -16,7 +16,7 @@ [\\library ["[0]" / (.only Apply)]]) -(def: .public test +(def .public test Test (do random.monad [left random.nat diff --git a/stdlib/source/test/lux/abstract/codec.lux b/stdlib/source/test/lux/abstract/codec.lux index 6169669c5..8d70588c8 100644 --- a/stdlib/source/test/lux/abstract/codec.lux +++ b/stdlib/source/test/lux/abstract/codec.lux @@ -17,23 +17,23 @@ [// [equivalence (.only Equivalence)]]]]) -(def: json +(def json (Codec JSON Bit) (let [field "value"] (implementation - (def: encoded + (def encoded (|>> {json.#Boolean} [field] list json.object)) - (def: decoded + (def decoded (json.boolean_field field))))) -(def: codec +(def codec (Codec Text Bit) (/.composite json.codec ..json)) -(def: .public test +(def .public test Test (do random.monad [expected random.bit] diff --git a/stdlib/source/test/lux/abstract/comonad.lux b/stdlib/source/test/lux/abstract/comonad.lux index 450a1e1ae..9c752b46d 100644 --- a/stdlib/source/test/lux/abstract/comonad.lux +++ b/stdlib/source/test/lux/abstract/comonad.lux @@ -13,7 +13,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (do random.monad [sample random.nat] diff --git a/stdlib/source/test/lux/abstract/comonad/free.lux b/stdlib/source/test/lux/abstract/comonad/free.lux index 9c84654c2..093f5eda1 100644 --- a/stdlib/source/test/lux/abstract/comonad/free.lux +++ b/stdlib/source/test/lux/abstract/comonad/free.lux @@ -19,25 +19,25 @@ [\\library ["[0]" /]]) -(def: (injection value) +(def (injection value) (Injection (/.Free Stream)) [value (stream#each injection (stream.repeated value))]) -(def: (interpret [head tail]) +(def (interpret [head tail]) (All (_ a) (-> (/.Free Stream a) (Stream a))) (|> tail (stream#each (at (/.comonad stream.functor) out)) [head] //.pending)) -(def: comparison +(def comparison (Comparison (/.Free Stream)) (function (_ == left right) (at (list.equivalence ==) = (stream.first 100 (..interpret left)) (stream.first 100 (..interpret right))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Free]) diff --git a/stdlib/source/test/lux/abstract/enum.lux b/stdlib/source/test/lux/abstract/enum.lux index 9848653ba..98a139603 100644 --- a/stdlib/source/test/lux/abstract/enum.lux +++ b/stdlib/source/test/lux/abstract/enum.lux @@ -17,7 +17,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (let [limit (is (Random Nat) (at random.monad each (n.% 20) random.nat))] diff --git a/stdlib/source/test/lux/abstract/equivalence.lux b/stdlib/source/test/lux/abstract/equivalence.lux index 7740565ed..339279e00 100644 --- a/stdlib/source/test/lux/abstract/equivalence.lux +++ b/stdlib/source/test/lux/abstract/equivalence.lux @@ -49,14 +49,14 @@ #tuple [Int Frac Text] #recursive Recursive])) -(def: gen_recursive +(def gen_recursive (Random Recursive) (random.rec (function (_ gen_recursive) (random.or random.safe_frac (random.and random.safe_frac gen_recursive))))) -(def: random +(def random (Random Record) (do [! random.monad] [size (at ! each (n.% 2) random.nat) @@ -79,18 +79,18 @@ gen_recursive))) (for @.old (these) - (these (def: equivalence + (these (def equivalence (Equivalence ..Record) (\\polytypic.equivalence ..Record)))) -(def: \\polytypic +(def \\polytypic Test (<| (_.covering \\polytypic._) (_.for [\\polytypic.equivalence] (for @.old (_.property "PLACEHOLDER" true) (\\specification.spec ..equivalence ..random))))) -(def: .public test +(def .public test Test (do random.monad [leftN random.nat @@ -101,7 +101,7 @@ different (|> random.nat (random.only (|>> (n.= sample) not))) .let [equivalence (is (Equivalence (Equivalence Nat)) (implementation - (def: (= left right) + (def (= left right) (and (bit#= (at left = leftN leftN) (at right = leftN leftN)) (bit#= (at left = rightN rightN) @@ -116,7 +116,7 @@ (let [equivalence (is (Equivalence (List Nat)) (/.rec (function (_ equivalence) (implementation - (def: (= left right) + (def (= left right) (case [left right] [{.#End} {.#End}] true diff --git a/stdlib/source/test/lux/abstract/functor.lux b/stdlib/source/test/lux/abstract/functor.lux index 5bef11061..33a1df347 100644 --- a/stdlib/source/test/lux/abstract/functor.lux +++ b/stdlib/source/test/lux/abstract/functor.lux @@ -21,29 +21,29 @@ ["[0]" / (.only Functor)]]) (for @.old (these) - (these (def: maybe_functor + (these (def maybe_functor (Functor .Maybe) (\\polytypic.functor .Maybe)) - (def: list_functor + (def list_functor (Functor .List) (\\polytypic.functor .List)) - (def: state_functor + (def state_functor (All (_ s) (Functor (state.State s))) (\\polytypic.functor state.State)) - (def: identity_functor + (def identity_functor (Functor identity.Identity) (\\polytypic.functor identity.Identity)))) -(def: \\polytypic +(def \\polytypic Test (<| (_.covering \\polytypic._) (_.coverage [\\polytypic.functor] true))) -(def: .public test +(def .public test Test (do random.monad [left random.nat diff --git a/stdlib/source/test/lux/abstract/functor/contravariant.lux b/stdlib/source/test/lux/abstract/functor/contravariant.lux index a23aee828..12b95bf9d 100644 --- a/stdlib/source/test/lux/abstract/functor/contravariant.lux +++ b/stdlib/source/test/lux/abstract/functor/contravariant.lux @@ -5,7 +5,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.in_parallel (list)))) diff --git a/stdlib/source/test/lux/abstract/hash.lux b/stdlib/source/test/lux/abstract/hash.lux index cd9a966da..153cd1ec2 100644 --- a/stdlib/source/test/lux/abstract/hash.lux +++ b/stdlib/source/test/lux/abstract/hash.lux @@ -18,14 +18,14 @@ [// [equivalence (.only Equivalence)]]]]) -(def: .public test +(def .public test Test (do random.monad [leftN random.nat rightN random.nat .let [hash (is (Equivalence (/.Hash Nat)) (implementation - (def: (= (open "left#[0]") (open "right#[0]")) + (def (= (open "left#[0]") (open "right#[0]")) (and (bit#= (left#= (left#hash leftN) (left#hash leftN)) (right#= (right#hash leftN) (right#hash leftN))) (bit#= (left#= (left#hash rightN) (left#hash rightN)) diff --git a/stdlib/source/test/lux/abstract/interval.lux b/stdlib/source/test/lux/abstract/interval.lux index 9917756e8..30ac69ccc 100644 --- a/stdlib/source/test/lux/abstract/interval.lux +++ b/stdlib/source/test/lux/abstract/interval.lux @@ -21,7 +21,7 @@ ["[0]" / (.only Interval) (.open: "[1]#[0]" equivalence)]]) (with_template [<name> <cmp>] - [(def: .public <name> + [(def .public <name> (Random (Interval Nat)) (do random.monad [bottom random.nat @@ -35,20 +35,20 @@ [outer n.>] ) -(def: .public singleton +(def .public singleton (Random (Interval Nat)) (do random.monad [point random.nat] (in (/.singleton n.enum point)))) -(def: .public interval +(def .public interval (Random (Interval Nat)) (all random.either ..inner ..outer ..singleton)) -(def: types +(def types Test (do random.monad [inner ..inner @@ -63,7 +63,7 @@ (/.singleton? singleton)) ))) -(def: boundaries +(def boundaries Test (do random.monad [bottom random.nat @@ -82,7 +82,7 @@ (/.borders? interval top))) ))) -(def: union +(def union Test (do random.monad [some_interval ..interval @@ -103,7 +103,7 @@ (/.inner? (/.union left_outer right_outer)))) ))) -(def: intersection +(def intersection Test (do random.monad [some_interval ..interval @@ -124,7 +124,7 @@ (/.outer? (/.intersection left_outer right_outer))) ))) -(def: complement +(def complement Test (do random.monad [some_interval ..interval] @@ -135,7 +135,7 @@ (not (/.overlaps? some_interval (/.complement some_interval)))) ))) -(def: location +(def location Test (do [! random.monad] [[l m r] (|> (random.set n.hash 3 random.nat) @@ -158,7 +158,7 @@ (/.after? m right))) ))) -(def: touch +(def touch Test (do [! random.monad] [[b t1 t2] (|> (random.set n.hash 3 random.nat) @@ -185,7 +185,7 @@ (/.between n.enum t1 t2))) ))) -(def: nested +(def nested Test (do [! random.monad] [some_interval ..interval @@ -219,7 +219,7 @@ (/.nested? outer right_inner)))) ))) -(def: overlap +(def overlap Test (do [! random.monad] [some_interval ..interval @@ -248,7 +248,7 @@ (/.overlaps? outer right_inner)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/abstract/mix.lux b/stdlib/source/test/lux/abstract/mix.lux index 42fba9a6c..8754df110 100644 --- a/stdlib/source/test/lux/abstract/mix.lux +++ b/stdlib/source/test/lux/abstract/mix.lux @@ -14,7 +14,7 @@ [\\library ["[0]" / (.only Mix)]]) -(def: .public test +(def .public test Test (do random.monad [samples (random.list 10 random.nat)] diff --git a/stdlib/source/test/lux/abstract/monad.lux b/stdlib/source/test/lux/abstract/monad.lux index 7ea1093aa..7cfe4f080 100644 --- a/stdlib/source/test/lux/abstract/monad.lux +++ b/stdlib/source/test/lux/abstract/monad.lux @@ -13,7 +13,7 @@ [\\library ["[0]" / (.only Monad do)]]) -(def: .public test +(def .public test Test (do random.monad [mono random.nat diff --git a/stdlib/source/test/lux/abstract/monad/free.lux b/stdlib/source/test/lux/abstract/monad/free.lux index d98fb1cbd..8031bf189 100644 --- a/stdlib/source/test/lux/abstract/monad/free.lux +++ b/stdlib/source/test/lux/abstract/monad/free.lux @@ -18,11 +18,11 @@ [\\library ["[0]" /]]) -(def: injection +(def injection (Injection (/.Free List)) (|>> {/.#Pure})) -(def: (interpret free) +(def (interpret free) (All (_ a) (-> (/.Free List a) (List a))) (case free {/.#Pure value} @@ -33,14 +33,14 @@ (list#each interpret) list.together))) -(def: comparison +(def comparison (Comparison (/.Free List)) (function (_ == left right) (at (list.equivalence ==) = (..interpret left) (..interpret right)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Free]) diff --git a/stdlib/source/test/lux/abstract/monoid.lux b/stdlib/source/test/lux/abstract/monoid.lux index 0b30b882c..75a5f6863 100644 --- a/stdlib/source/test/lux/abstract/monoid.lux +++ b/stdlib/source/test/lux/abstract/monoid.lux @@ -14,7 +14,7 @@ [// [equivalence (.only Equivalence)]]]]) -(def: .public test +(def .public test Test (do random.monad [natL random.nat diff --git a/stdlib/source/test/lux/abstract/order.lux b/stdlib/source/test/lux/abstract/order.lux index d8792eafa..941c9cccb 100644 --- a/stdlib/source/test/lux/abstract/order.lux +++ b/stdlib/source/test/lux/abstract/order.lux @@ -18,7 +18,7 @@ [// [equivalence (.only Equivalence)]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad @@ -26,7 +26,7 @@ right (|> random.nat (random.only (|>> (n.= left) not))) .let [equivalence (is (Equivalence (/.Order Nat)) (implementation - (def: (= leftO rightO) + (def (= leftO rightO) (and (bit#= (at leftO < left left) (at rightO < left left)) (bit#= (at leftO < right right) diff --git a/stdlib/source/test/lux/abstract/predicate.lux b/stdlib/source/test/lux/abstract/predicate.lux index 9fb8bd1a5..1d1839804 100644 --- a/stdlib/source/test/lux/abstract/predicate.lux +++ b/stdlib/source/test/lux/abstract/predicate.lux @@ -22,13 +22,13 @@ [\\library ["[0]" /]]) -(def: (multiple? factor) +(def (multiple? factor) (-> Nat (/.Predicate Nat)) (case factor 0 (function.constant false) _ (|>> (n.% factor) (n.= 0)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] @@ -36,7 +36,7 @@ samples (random.list 10 random.nat) .let [equivalence (is (Equivalence (/.Predicate Nat)) (implementation - (def: (= left right) + (def (= left right) (bit#= (left sample) (right sample)))))]]) (_.for [/.Predicate]) diff --git a/stdlib/source/test/lux/control.lux b/stdlib/source/test/lux/control.lux index 3fff75e05..0f99b21b2 100644 --- a/stdlib/source/test/lux/control.lux +++ b/stdlib/source/test/lux/control.lux @@ -31,7 +31,7 @@ ["[1][0]" try] ["[1][0]" writer]]) -(def: concurrency +(def concurrency Test (all _.and /concurrency/actor.test @@ -43,14 +43,14 @@ /concurrency/stm.test )) -(def: security +(def security Test (all _.and /policy.test /capability.test )) -(def: .public test +(def .public test Test (all _.and /concatenative.test diff --git a/stdlib/source/test/lux/control/concatenative.lux b/stdlib/source/test/lux/control/concatenative.lux index 4092dbd0d..26e98f649 100644 --- a/stdlib/source/test/lux/control/concatenative.lux +++ b/stdlib/source/test/lux/control/concatenative.lux @@ -19,7 +19,7 @@ [\\library ["[0]" / (.only =>)]]) -(def: stack_shuffling +(def stack_shuffling Test (do random.monad [sample random.nat @@ -91,7 +91,7 @@ /.drop /.drop)))) )))) -(def: !numerical +(def !numerical (template (_ <=> <generator> <only> <arithmetic> <order>) [(is Test (with_expansions [<arithmetic>' (template.spliced <arithmetic>) @@ -118,7 +118,7 @@ <order>')) )))))])) -(def: numerical +(def numerical Test (all _.and (!numerical n.= random.nat (|>> (n.= 0) not) @@ -135,7 +135,7 @@ [[/.f/= f.=] [/.f/< f.<] [/.f/<= f.<=] [/.f/> f.>] [/.f/>= f.>=]]) )) -(def: control_flow +(def control_flow Test (do random.monad [choice random.bit @@ -296,12 +296,12 @@ /.?)))) ))) -(def: square +(def square (=> [Nat] [Nat]) (|>> /.dup (/.apply_2 n.*))) -(def: definition +(def definition Test (do random.monad [sample random.nat] @@ -310,7 +310,7 @@ (/.value (|>> (/.push sample) ..square)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/control/concurrency/actor.lux b/stdlib/source/test/lux/control/concurrency/actor.lux index 4570a3708..db84ea614 100644 --- a/stdlib/source/test/lux/control/concurrency/actor.lux +++ b/stdlib/source/test/lux/control/concurrency/actor.lux @@ -27,24 +27,24 @@ (exception: got_wrecked) -(def: counter +(def counter (/.Behavior Nat) (function (_ message state self) (message state self))) -(def: (count! increment) +(def (count! increment) (-> Nat (/.Message Nat Nat)) (function (_ state self) (let [state' (n.+ increment state)] (async#in {try.#Success [state' state']})))) -(def: (mailed? outcome) +(def (mailed? outcome) (-> (Try Any) Bit) (case outcome {try.#Success _} true {try.#Failure _} false)) -(def: .public test +(def .public test Test (do [! random.monad] [initial_state random.nat diff --git a/stdlib/source/test/lux/control/concurrency/async.lux b/stdlib/source/test/lux/control/concurrency/async.lux index 1e343c32d..2be98d4d2 100644 --- a/stdlib/source/test/lux/control/concurrency/async.lux +++ b/stdlib/source/test/lux/control/concurrency/async.lux @@ -25,11 +25,11 @@ [// ["[0]" atom (.only Atom)]]]]) -(def: injection +(def injection (Injection /.Async) /.resolved) -(def: comparison +(def comparison (Comparison /.Async) (function (_ == left right) (io.run! @@ -44,11 +44,11 @@ _ false)))))) -(def: delay +(def delay (for @.js (i64.left_shifted 4 1) (i64.left_shifted 3 1))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/control/concurrency/atom.lux b/stdlib/source/test/lux/control/concurrency/atom.lux index 2654e109a..21dbe86d5 100644 --- a/stdlib/source/test/lux/control/concurrency/atom.lux +++ b/stdlib/source/test/lux/control/concurrency/atom.lux @@ -13,7 +13,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/control/concurrency/frp.lux b/stdlib/source/test/lux/control/concurrency/frp.lux index 004659886..e2e8c286d 100644 --- a/stdlib/source/test/lux/control/concurrency/frp.lux +++ b/stdlib/source/test/lux/control/concurrency/frp.lux @@ -28,12 +28,12 @@ ["[0]" async (.only Async) (.open: "[1]#[0]" monad)] ["[0]" atom (.only Atom atom)]]]]) -(def: injection +(def injection (Injection /.Channel) (|>> async.resolved /.of_async)) -(def: comparison +(def comparison (Comparison /.Channel) (function (_ == left right) (io.run! @@ -48,7 +48,7 @@ _ false)))))) -(def: (take_amount amount_of_polls [channel sink]) +(def (take_amount amount_of_polls [channel sink]) (All (_ a) (-> Nat [(/.Channel a) (/.Sink a)] (Async (List a)))) (case amount_of_polls 0 (do async.monad @@ -64,7 +64,7 @@ (at ! each (|>> {.#Item (variance.read head)}) (take_amount (-- amount_of_polls) [channel sink])))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (let [(open "list#[0]") (list.equivalence n.equivalence)] diff --git a/stdlib/source/test/lux/control/concurrency/semaphore.lux b/stdlib/source/test/lux/control/concurrency/semaphore.lux index e71f42484..65eef901f 100644 --- a/stdlib/source/test/lux/control/concurrency/semaphore.lux +++ b/stdlib/source/test/lux/control/concurrency/semaphore.lux @@ -29,11 +29,11 @@ [\\library ["[0]" /]]) -(def: delay +(def delay (for @.js (i64.left_shifted 4 1) (i64.left_shifted 3 1))) -(def: semaphore +(def semaphore Test (_.for [/.Semaphore] (all _.and @@ -92,7 +92,7 @@ false))))) ))) -(def: mutex +(def mutex Test (_.for [/.Mutex] (all _.and @@ -129,14 +129,14 @@ outcome)))))) ))) -(def: (waiter resource barrier id) +(def (waiter resource barrier id) (-> (Atom Text) /.Barrier Nat (Async Any)) (do async.monad [_ (/.block! barrier) _ (async.future (atom.update! (|>> (format (%.nat id))) resource))] (in []))) -(def: barrier +(def barrier Test (_.for [/.Barrier] (all _.and @@ -177,7 +177,7 @@ expected_ids)))))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/control/concurrency/stm.lux b/stdlib/source/test/lux/control/concurrency/stm.lux index a06248ba1..3400840ff 100644 --- a/stdlib/source/test/lux/control/concurrency/stm.lux +++ b/stdlib/source/test/lux/control/concurrency/stm.lux @@ -25,17 +25,17 @@ ["[0]" async] ["[0]" frp (.only Channel)]]]]) -(def: injection +(def injection (Injection /.STM) (at /.monad in)) -(def: comparison +(def comparison (Comparison /.STM) (function (_ == left right) (== (product.right (left (list))) (product.right (right (list)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/control/concurrency/thread.lux b/stdlib/source/test/lux/control/concurrency/thread.lux index 7ed7aff8c..e9e9f0c03 100644 --- a/stdlib/source/test/lux/control/concurrency/thread.lux +++ b/stdlib/source/test/lux/control/concurrency/thread.lux @@ -20,7 +20,7 @@ ["[0]" atom (.only Atom)] ["[0]" async]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/control/continuation.lux b/stdlib/source/test/lux/control/continuation.lux index 94b90e540..b0055b0b3 100644 --- a/stdlib/source/test/lux/control/continuation.lux +++ b/stdlib/source/test/lux/control/continuation.lux @@ -18,16 +18,16 @@ [\\library ["[0]" /]]) -(def: injection +(def injection (All (_ o) (Injection (All (_ i) (/.Cont i o)))) (|>> /.pending)) -(def: comparison +(def comparison (Comparison /.Cont) (function (_ == left right) (== (/.result left) (/.result right)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/control/exception.lux b/stdlib/source/test/lux/control/exception.lux index 8dcdb7ec6..b755a370b 100644 --- a/stdlib/source/test/lux/control/exception.lux +++ b/stdlib/source/test/lux/control/exception.lux @@ -19,11 +19,11 @@ (exception: an_exception) (exception: another_exception) -(def: label "YOLO") +(def label "YOLO") (exception: (custom_exception [value Nat]) (/.report label (%.nat value))) -(def: .public test +(def .public test Test (do [! random.monad] [expected random.nat diff --git a/stdlib/source/test/lux/control/function.lux b/stdlib/source/test/lux/control/function.lux index 4a95a0065..e867ccdfd 100644 --- a/stdlib/source/test/lux/control/function.lux +++ b/stdlib/source/test/lux/control/function.lux @@ -20,7 +20,7 @@ ["[1][0]" mutual] ["[1][0]" inline]]) -(def: .public test +(def .public test Test (do [! random.monad] [expected random.nat @@ -32,7 +32,7 @@ (all _.and (let [equivalence (is (Equivalence (-> Nat Nat)) (implementation - (def: (= left right) + (def (= left right) (n.= (left extra) (right extra))))) generator (is (Random (-> Nat Nat)) diff --git a/stdlib/source/test/lux/control/function/contract.lux b/stdlib/source/test/lux/control/function/contract.lux index 84b1f52d9..ea99016d5 100644 --- a/stdlib/source/test/lux/control/function/contract.lux +++ b/stdlib/source/test/lux/control/function/contract.lux @@ -16,7 +16,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/control/function/inline.lux b/stdlib/source/test/lux/control/function/inline.lux index 6bd4eee3e..ed01e9b0c 100644 --- a/stdlib/source/test/lux/control/function/inline.lux +++ b/stdlib/source/test/lux/control/function/inline.lux @@ -11,15 +11,15 @@ [\\library ["[0]" /]]) -(def: !quadrance/2 +(def !quadrance/2 (template (_ m0 m1) [(i.+ (i.* m0 m0) (i.* m1 m1))])) -(/.inline: .public (quadrance/2 m0 m1) +(/.inlined .public (quadrance/2 m0 m1) (-> Int Int Int) (!quadrance/2 m0 m1)) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] @@ -27,7 +27,7 @@ m0 measurement m1 measurement]) (all _.and - (_.coverage [/.inline:] + (_.coverage [/.inlined] (i.= (..!quadrance/2 m0 m1) (..quadrance/2 m0 m1))) ))) diff --git a/stdlib/source/test/lux/control/function/memo.lux b/stdlib/source/test/lux/control/function/memo.lux index 3a74921cf..093f32626 100644 --- a/stdlib/source/test/lux/control/function/memo.lux +++ b/stdlib/source/test/lux/control/function/memo.lux @@ -27,7 +27,7 @@ ["/[1]" // ["[1]" mixin]]]]) -(def: (fibonacci again input) +(def (fibonacci again input) (/.Memo Nat Nat) (case input 0 (state#in 0) @@ -37,7 +37,7 @@ output_2 (again (n.- 2 input))] (in (n.+ output_1 output_2))))) -(def: (time function input) +(def (time function input) (All (_ i o) (-> (-> i o) i (IO [Duration o]))) (do io.monad [before instant.now @@ -46,17 +46,17 @@ (in [(instant.span before after) output]))) -(def: milli_seconds +(def milli_seconds (-> Duration Nat) (|>> (duration.ticks duration.milli_second) .nat)) ... the wiggle room is there to account for GC pauses ... and other issues that might mess with duration -(def: wiggle_room +(def wiggle_room Nat (i64.left_shifted 4 1)) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/control/function/mixin.lux b/stdlib/source/test/lux/control/function/mixin.lux index 02ea34ad3..3e03102fd 100644 --- a/stdlib/source/test/lux/control/function/mixin.lux +++ b/stdlib/source/test/lux/control/function/mixin.lux @@ -23,7 +23,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] @@ -32,7 +32,7 @@ shift (|> random.nat (random.only (|>> (n.= dummy) not))) .let [equivalence (is (Equivalence (/.Mixin Nat Nat)) (implementation - (def: (= left right) + (def (= left right) (n.= ((/.fixed left) input) ((/.fixed right) input))))) generator (is (Random (/.Mixin Nat Nat)) diff --git a/stdlib/source/test/lux/control/function/mutual.lux b/stdlib/source/test/lux/control/function/mutual.lux index a263e5c96..433c51b7e 100644 --- a/stdlib/source/test/lux/control/function/mutual.lux +++ b/stdlib/source/test/lux/control/function/mutual.lux @@ -15,7 +15,7 @@ [\\library ["[0]" /]]) -(def: test_let +(def test_let Test (do [! random.monad] [sample (at ! each (n.% 10) random.nat) @@ -35,7 +35,7 @@ (and (bit#= expected (even? sample)) (bit#= (not expected) (odd? sample))))))) -(/.def: +(/.def [(even? number) (-> Nat Bit) (case number @@ -48,16 +48,16 @@ 0 false _ (even? (-- number)))]) -(def: test_def +(def test_def Test (do [! random.monad] [sample (at ! each (n.% 10) random.nat) .let [expected (n.even? sample)]] - (<| (_.coverage [/.def:]) + (<| (_.coverage [/.def]) (and (bit#= expected (..even? sample)) (bit#= (not expected) (..odd? sample)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/control/io.lux b/stdlib/source/test/lux/control/io.lux index bee5da8db..6260f5a74 100644 --- a/stdlib/source/test/lux/control/io.lux +++ b/stdlib/source/test/lux/control/io.lux @@ -17,16 +17,16 @@ [// ["[0]" function]]]]) -(def: injection +(def injection (Injection IO) (|>> /.io)) -(def: comparison +(def comparison (Comparison IO) (function (_ == left right) (== (/.run! left) (/.run! right)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.IO]) diff --git a/stdlib/source/test/lux/control/lazy.lux b/stdlib/source/test/lux/control/lazy.lux index 26e1baba6..5c9551f71 100644 --- a/stdlib/source/test/lux/control/lazy.lux +++ b/stdlib/source/test/lux/control/lazy.lux @@ -18,20 +18,20 @@ [\\library ["[0]" / (.only Lazy)]]) -(def: injection +(def injection (Injection Lazy) (|>> /.lazy)) -(def: comparison +(def comparison (Comparison Lazy) (function (_ ==) (at (/.equivalence ==) =))) -(def: .public lazy +(def .public lazy (All (_ a) (-> (Random a) (Random (Lazy a)))) (at random.functor each (|>> /.lazy))) -(def: .public test +(def .public test Test (with_expansions [<eager> (is [Nat Nat] [(n.+ left right) diff --git a/stdlib/source/test/lux/control/maybe.lux b/stdlib/source/test/lux/control/maybe.lux index 7b5c61659..1ca6c8498 100644 --- a/stdlib/source/test/lux/control/maybe.lux +++ b/stdlib/source/test/lux/control/maybe.lux @@ -25,7 +25,7 @@ [\\library ["[0]" / (.open: "[1]#[0]" monoid monad)]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Maybe]) diff --git a/stdlib/source/test/lux/control/parser.lux b/stdlib/source/test/lux/control/parser.lux index cca247004..8bd0632d5 100644 --- a/stdlib/source/test/lux/control/parser.lux +++ b/stdlib/source/test/lux/control/parser.lux @@ -36,7 +36,7 @@ ["[1][0]" type] ["[1][0]" xml]]) -(def: (should_fail expected input) +(def (should_fail expected input) (All (_ a) (-> Text (Try a) Bit)) (case input {try.#Failure actual} @@ -45,7 +45,7 @@ _ #0)) -(def: (enforced? parser input) +(def (enforced? parser input) (All (_ s) (-> (Parser s Any) s Bit)) (case (/.result parser input) {try.#Success [_ []]} @@ -54,7 +54,7 @@ _ #0)) -(def: (found? parser input) +(def (found? parser input) (All (_ s) (-> (Parser s Bit) s Bit)) (case (/.result parser input) {try.#Success [_ #1]} @@ -63,7 +63,7 @@ _ #0)) -(def: (fails? input) +(def (fails? input) (All (_ a) (-> (Try a) Bit)) (case input {try.#Failure _} @@ -72,7 +72,7 @@ _ #0)) -(def: match +(def match (syntax (_ [pattern <code>.any then <code>.any input <code>.any]) @@ -83,7 +83,7 @@ (~' _) #0)))))) -(def: combinators_0 +(def combinators_0 Test (do [! random.monad] [expected0 random.nat @@ -174,7 +174,7 @@ (match [] #1)))) ))) -(def: combinators_1 +(def combinators_1 Test (do [! random.monad] [variadic (at ! each (|>> (n.max 1) (n.min 20)) random.nat) @@ -253,7 +253,7 @@ )) ))) -(def: combinators_2 +(def combinators_2 Test (do random.monad [expected random.nat @@ -327,11 +327,11 @@ (match actual (n.= expected actual)))) ))) -(def: injection +(def injection (Injection (All (_ a i) (Parser i a))) (at /.monad in)) -(def: comparison +(def comparison (Comparison (All (_ a i) (Parser i a))) (function (_ == left right) (case [(/.result left []) (/.result right [])] @@ -341,7 +341,7 @@ _ false))) -(def: .public test +(def .public test Test (do random.monad [expected random.nat diff --git a/stdlib/source/test/lux/control/parser/cli.lux b/stdlib/source/test/lux/control/parser/cli.lux index 686207191..c0d0ba4f6 100644 --- a/stdlib/source/test/lux/control/parser/cli.lux +++ b/stdlib/source/test/lux/control/parser/cli.lux @@ -20,7 +20,7 @@ [\\library ["[0]" /]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -29,7 +29,7 @@ _ false)])) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Parser]) diff --git a/stdlib/source/test/lux/control/parser/code.lux b/stdlib/source/test/lux/control/parser/code.lux index c0fecf490..959285faa 100644 --- a/stdlib/source/test/lux/control/parser/code.lux +++ b/stdlib/source/test/lux/control/parser/code.lux @@ -28,7 +28,7 @@ [\\library ["[0]" /]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -37,18 +37,18 @@ _ false)])) -(def: local +(def local (Random Text) (random.lower_case 1)) -(def: global +(def global (Random Symbol) (all random.and (random.lower_case 1) (random.lower_case 1) )) -(def: any_symbol +(def any_symbol (Random Symbol) (all random.either (random#each (|>> [""]) @@ -56,7 +56,7 @@ ..global )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Parser]) diff --git a/stdlib/source/test/lux/control/parser/environment.lux b/stdlib/source/test/lux/control/parser/environment.lux index d009918c4..ad4bb4711 100644 --- a/stdlib/source/test/lux/control/parser/environment.lux +++ b/stdlib/source/test/lux/control/parser/environment.lux @@ -19,7 +19,7 @@ ["[0]" / (.only) ["/[1]" // (.open: "[1]#[0]" monad)]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Environment /.Parser]) diff --git a/stdlib/source/test/lux/control/parser/json.lux b/stdlib/source/test/lux/control/parser/json.lux index 15b110eed..cf4faf7c4 100644 --- a/stdlib/source/test/lux/control/parser/json.lux +++ b/stdlib/source/test/lux/control/parser/json.lux @@ -30,7 +30,7 @@ [\\library ["[0]" /]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -39,11 +39,11 @@ _ false)])) -(def: safe_frac +(def safe_frac (Random Frac) (random.only (|>> frac.not_a_number? not) random.frac)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Parser]) diff --git a/stdlib/source/test/lux/control/parser/tree.lux b/stdlib/source/test/lux/control/parser/tree.lux index f10b11b26..9564e58e1 100644 --- a/stdlib/source/test/lux/control/parser/tree.lux +++ b/stdlib/source/test/lux/control/parser/tree.lux @@ -21,7 +21,7 @@ ["[0]" / (.only) ["/[1]" //]]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -30,7 +30,7 @@ _ false)])) -(def: !cover +(def !cover (template (_ <coverage> <parser> <sample>) [(do [! random.monad] [dummy random.nat @@ -41,7 +41,7 @@ (!expect (^.multi {try.#Success actual} (n.= expected actual))))))])) -(def: !cover/2 +(def !cover/2 (template (_ <coverage> <parser> <sample0> <sample1>) [(do [! random.monad] [dummy random.nat @@ -54,7 +54,7 @@ (!expect (^.multi {try.#Success actual} (n.= expected actual)))))))])) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Parser]) diff --git a/stdlib/source/test/lux/control/parser/type.lux b/stdlib/source/test/lux/control/parser/type.lux index 43935a76f..4764eb381 100644 --- a/stdlib/source/test/lux/control/parser/type.lux +++ b/stdlib/source/test/lux/control/parser/type.lux @@ -25,7 +25,7 @@ ["[0]" / (.only) ["/[1]" //]]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -34,13 +34,13 @@ _ false)])) -(def: primitive +(def primitive (Random Type) (|> (random.alpha_numeric 1) (at random.monad each (function (_ name) {.#Primitive name (list)})))) -(def: test|matches +(def test|matches Test (<| (_.for [/.types_do_not_match]) (do [! random.monad] @@ -76,7 +76,7 @@ (exception.match? /.types_do_not_match error)))))) ))) -(def: test|aggregate +(def test|aggregate Test (do [! random.monad] [expected_left ..primitive @@ -124,7 +124,7 @@ (exception.match? /.not_application error)))))) )))) -(def: test|parameter +(def test|parameter Test (do random.monad [quantification ..primitive @@ -185,7 +185,7 @@ (!expect {try.#Success [quantification::binding argument::binding _]}))) ))) -(def: test|polymorphic +(def test|polymorphic Test (do [! random.monad] [not_polymorphic ..primitive @@ -208,7 +208,7 @@ (same? not_polymorphic bodyT)))))) ))) -(def: test|recursive +(def test|recursive Test (do random.monad [expected ..primitive] @@ -238,7 +238,7 @@ (exception.match? /.not_recursive error)))))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Parser]) diff --git a/stdlib/source/test/lux/control/parser/xml.lux b/stdlib/source/test/lux/control/parser/xml.lux index 818f48a14..b671c071e 100644 --- a/stdlib/source/test/lux/control/parser/xml.lux +++ b/stdlib/source/test/lux/control/parser/xml.lux @@ -28,7 +28,7 @@ ["[0]" / (.only) ["/[1]" // (.open: "[1]#[0]" monad)]]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -37,7 +37,7 @@ _ false)])) -(def: !failure +(def !failure (template (_ <exception> <cases>) [(with_expansions [<<cases>> (template.spliced <cases>)] (do [! random.monad] @@ -50,15 +50,15 @@ <<cases>>)))))))])) -(def: random_label +(def random_label (Random Symbol) (random.and (random.alphabetic 1) (random.alphabetic 1))) -(def: random_tag ..random_label) -(def: random_attribute ..random_label) +(def random_tag ..random_label) +(def random_attribute ..random_label) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Parser]) diff --git a/stdlib/source/test/lux/control/pipe.lux b/stdlib/source/test/lux/control/pipe.lux index 3bee082a9..e818021a2 100644 --- a/stdlib/source/test/lux/control/pipe.lux +++ b/stdlib/source/test/lux/control/pipe.lux @@ -16,7 +16,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/control/reader.lux b/stdlib/source/test/lux/control/reader.lux index cfe5fe76b..57d862206 100644 --- a/stdlib/source/test/lux/control/reader.lux +++ b/stdlib/source/test/lux/control/reader.lux @@ -17,17 +17,17 @@ [// ["[0]" io (.only IO)]]]]) -(def: (injection value) +(def (injection value) (Injection (All (_ a r) (Reader r a))) (function (_ env) value)) -(def: comparison +(def comparison (Comparison (All (_ a r) (Reader r a))) (function (_ == left right) (== (/.result [] left) (/.result [] right)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Reader]) diff --git a/stdlib/source/test/lux/control/region.lux b/stdlib/source/test/lux/control/region.lux index 999d1fa6b..31e6f2f8c 100644 --- a/stdlib/source/test/lux/control/region.lux +++ b/stdlib/source/test/lux/control/region.lux @@ -30,7 +30,7 @@ (exception: oops) -(def: (success? result) +(def (success? result) (All (_ a) (-> (Try a) Bit)) (case result {try.#Success _} @@ -39,7 +39,7 @@ {try.#Failure _} false)) -(def: (throws? exception result) +(def (throws? exception result) (All (_ e a) (-> (Exception e) (Try a) Bit)) (case result {try.#Success _} @@ -48,14 +48,14 @@ {try.#Failure error} (exception.match? exception error))) -(def: (injection value) +(def (injection value) (Injection (All (_ a) (All (_ ! r) (Region r (Thread !) a)))) (function (_ [region scope]) (function (_ !) [scope {try.#Success value}]))) -(def: comparison +(def comparison (Comparison (All (_ a) (All (_ ! r) (Region r (Thread !) a)))) (function (_ == left right) (case [(sharing [a] @@ -74,7 +74,7 @@ _ false))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Region]) diff --git a/stdlib/source/test/lux/control/remember.lux b/stdlib/source/test/lux/control/remember.lux index 263209c34..2e1a93f38 100644 --- a/stdlib/source/test/lux/control/remember.lux +++ b/stdlib/source/test/lux/control/remember.lux @@ -28,11 +28,11 @@ [\\library ["[0]" /]]) -(def: deadline (Random Date) random.date) -(def: message (Random Text) (random#each %.bit random.bit)) -(def: focus (Random Code) (random#each code.bit random.bit)) +(def deadline (Random Date) random.date) +(def message (Random Text) (random#each %.bit random.bit)) +(def focus (Random Code) (random#each code.bit random.bit)) -(def: (memory macro deadline message focus) +(def (memory macro deadline message focus) (-> Symbol Date Text (Maybe Code) Code) (` ((~ (code.symbol macro)) (~ (code.text (%.date deadline))) @@ -41,7 +41,7 @@ {.#None} (list) {.#Some focus} (list focus)))))) -(def: (attempt computation) +(def (attempt computation) (All (_ a) (-> (Meta a) (Meta (Try a)))) (function (_ compiler) (case (computation compiler) @@ -51,7 +51,7 @@ {try.#Failure error} {try.#Success [compiler {try.#Failure error}]}))) -(def: (test_failure deadline message focus failure) +(def (test_failure deadline message focus failure) (-> Date Text (Maybe Code) Text Bit) (and (text.contains? (%.date deadline) failure) (text.contains? message failure) @@ -62,7 +62,7 @@ {.#Some focus} (text.contains? (%.code focus) failure)))) -(def: test_macro +(def test_macro (syntax (_ [macro <code>.symbol extra <code>.text]) (let [now (io.run! instant.now) @@ -106,7 +106,7 @@ false) )))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/control/security/capability.lux b/stdlib/source/test/lux/control/security/capability.lux index e47e71509..efaae0687 100644 --- a/stdlib/source/test/lux/control/security/capability.lux +++ b/stdlib/source/test/lux/control/security/capability.lux @@ -21,7 +21,7 @@ (/.capability: Can_IO (can_io [] (IO Nat))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/control/security/policy.lux b/stdlib/source/test/lux/control/security/policy.lux index 8e188702b..52e0f786f 100644 --- a/stdlib/source/test/lux/control/security/policy.lux +++ b/stdlib/source/test/lux/control/security/policy.lux @@ -20,12 +20,12 @@ [\\library ["[0]" / (.only Context Privacy Can_Conceal Can_Reveal Privilege Private)]]) -(def: (injection can_conceal) +(def (injection can_conceal) (All (_ label) (-> (Can_Conceal label) (Injection (All (_ value) (Private value label))))) can_conceal) -(def: (comparison can_reveal) +(def (comparison can_reveal) (All (_ label) (-> (Can_Reveal label) (Comparison (All (_ value) (Private value label))))) (function (_ == left right) @@ -46,30 +46,30 @@ (is (Privilege Privacy %) privilege))) -(def: (policy _) +(def (policy _) (Ex (_ %) (-> Any (Policy %))) (/.with_policy (is (Context Privacy Policy) (function (_ (^.let privilege (open "%[0]"))) (implementation - (def: &hash + (def &hash (implementation - (def: equivalence + (def equivalence (implementation - (def: (= reference sample) + (def (= reference sample) (text#= (%#can_downgrade reference) (%#can_downgrade sample))))) - (def: hash + (def hash (|>> %#can_downgrade (at text.hash hash))))) - (def: password + (def password %#can_upgrade) - (def: privilege + (def privilege privilege)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Policy diff --git a/stdlib/source/test/lux/control/state.lux b/stdlib/source/test/lux/control/state.lux index 81c10a970..728304f50 100644 --- a/stdlib/source/test/lux/control/state.lux +++ b/stdlib/source/test/lux/control/state.lux @@ -20,14 +20,14 @@ [\\library ["[0]" / (.only State)]]) -(def: (with_conditions [state output] computation) +(def (with_conditions [state output] computation) (-> [Nat Nat] (State Nat Nat) Bit) (|> computation (/.result state) product.right (n.= output))) -(def: basics +(def basics (do random.monad [state random.nat value random.nat] @@ -54,18 +54,18 @@ /.get))) ))) -(def: (injection value) +(def (injection value) (All (_ s) (Injection (State s))) (function (_ state) [state value])) -(def: (comparison init) +(def (comparison init) (All (_ s) (-> s (Comparison (State s)))) (function (_ == left right) (== (product.right (/.result init left)) (product.right (/.result init right))))) -(def: structures +(def structures Test (do random.monad [state random.nat] @@ -78,7 +78,7 @@ ($monad.spec ..injection (..comparison state) /.monad)) ))) -(def: loops +(def loops Test (do [! random.monad] [limit (|> random.nat (at ! each (n.% 10))) @@ -100,7 +100,7 @@ (n.= 1 state')))))) ))) -(def: monad_transformer +(def monad_transformer Test (do random.monad [state random.nat @@ -120,7 +120,7 @@ (n.= (n.+ left right) output'))))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/control/thread.lux b/stdlib/source/test/lux/control/thread.lux index 7d7e9ae43..e57457306 100644 --- a/stdlib/source/test/lux/control/thread.lux +++ b/stdlib/source/test/lux/control/thread.lux @@ -17,16 +17,16 @@ [// ["[0]" io]]]]) -(def: (injection value) +(def (injection value) (Injection (All (_ a !) (Thread ! a))) (at /.monad in value)) -(def: comparison +(def comparison (Comparison (All (_ a !) (Thread ! a))) (function (_ == left right) (== (/.result left) (/.result right)))) -(def: .public test +(def .public test Test (do random.monad [sample random.nat diff --git a/stdlib/source/test/lux/control/try.lux b/stdlib/source/test/lux/control/try.lux index d448bedc2..b039e6221 100644 --- a/stdlib/source/test/lux/control/try.lux +++ b/stdlib/source/test/lux/control/try.lux @@ -21,22 +21,22 @@ [\\library ["[0]" / (.only Try)]]) -(def: injection +(def injection (Injection Try) (|>> {/.#Success})) -(def: comparison +(def comparison (Comparison Try) (function (_ ==) (at (/.equivalence ==) =))) -(def: .public (attempt element) +(def .public (attempt element) (All (_ a) (-> (Random a) (Random (Try a)))) (all random.or (random.unicode 1) element)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Try]) diff --git a/stdlib/source/test/lux/control/writer.lux b/stdlib/source/test/lux/control/writer.lux index 986ffa366..2b873c6e7 100644 --- a/stdlib/source/test/lux/control/writer.lux +++ b/stdlib/source/test/lux/control/writer.lux @@ -22,16 +22,16 @@ [\\library ["[0]" / (.only Writer)]]) -(def: (injection monoid value) +(def (injection monoid value) (All (_ w) (-> (Monoid w) (Injection (Writer w)))) [(at monoid identity) value]) -(def: comparison +(def comparison (All (_ w) (Comparison (Writer w))) (function (_ == [_ left] [_ right]) (== left right))) -(def: .public test +(def .public test Test (do random.monad [log (random.ascii 1) diff --git a/stdlib/source/test/lux/data.lux b/stdlib/source/test/lux/data.lux index 68e1b03f8..e4668dfc4 100644 --- a/stdlib/source/test/lux/data.lux +++ b/stdlib/source/test/lux/data.lux @@ -22,14 +22,14 @@ ["[1][0]" collection]]) ... TODO: Get rid of this ASAP -(def: !bundle +(def !bundle (template (_ body) [(is Test (do random.monad [_ (in [])] body))])) -(def: format +(def format Test (all _.and /format/json.test @@ -37,7 +37,7 @@ /format/xml.test )) -(def: test/0 +(def test/0 Test (all _.and /binary.test @@ -45,19 +45,19 @@ /color.test /color/named.test)) -(def: test/1 +(def test/1 Test (all _.and /identity.test)) -(def: test/2 +(def test/2 Test (all _.and /product.test /sum.test /text.test)) -(def: .public test +(def .public test Test ... TODO: Inline ASAP (all _.and diff --git a/stdlib/source/test/lux/data/binary.lux b/stdlib/source/test/lux/data/binary.lux index 691b6ff55..cdb0d9101 100644 --- a/stdlib/source/test/lux/data/binary.lux +++ b/stdlib/source/test/lux/data/binary.lux @@ -50,7 +50,7 @@ ["[0]" \\format] ["[0]" \\parser]]]) -(def: !expect +(def !expect (template (_ <expectation> <computation>) [(case <computation> <expectation> @@ -59,9 +59,9 @@ _ false)])) -(def: segment_size 10) +(def segment_size 10) -(def: (utf8_conversion_does_not_alter? value) +(def (utf8_conversion_does_not_alter? value) (Predicate Text) (|> value (at utf8.codec encoded) @@ -73,32 +73,32 @@ {try.#Failure error} false))) -(def: random_text +(def random_text (Random Text) (random.only ..utf8_conversion_does_not_alter? (random.unicode ..segment_size))) -(def: random_symbol +(def random_symbol (Random Symbol) (random.and ..random_text ..random_text)) -(def: location_equivalence +(def location_equivalence (Equivalence Location) (implementation - (def: (= [expected_module expected_line expected_column] + (def (= [expected_module expected_line expected_column] [sample_module sample_line sample_column]) (and (text#= expected_module sample_module) (n.= expected_line sample_line) (n.= expected_column sample_column))))) -(def: random_location +(def random_location (Random Location) (all random.and ..random_text random.nat random.nat)) -(def: random_code +(def random_code (Random Code) (random.rec (function (_ again) @@ -121,7 +121,7 @@ random_sequence ))))))) -(def: random_type +(def random_type (Random Type) (let [(open "[0]") random.monad] (all random.either @@ -130,7 +130,7 @@ (in .Code) (in .Type)))) -(def: size +(def size Test (<| (_.for [\\parser.Size]) (`` (all _.and @@ -151,7 +151,7 @@ [\\parser.size_64 \\parser.bits_64 \\format.bits_64] )))))) -(def: binary +(def binary Test (`` (all _.and (~~ (with_template [<parser> <format>] @@ -169,7 +169,7 @@ [\\parser.binary_64 \\format.binary_64] ))))) -(def: utf8 +(def utf8 Test (`` (all _.and (~~ (with_template [<parser> <format>] @@ -188,7 +188,7 @@ [\\parser.text \\format.text] ))))) -(def: sequence +(def sequence Test (`` (all _.and (~~ (with_template [<parser> <format>] @@ -207,7 +207,7 @@ [\\parser.sequence_64 \\format.sequence_64] ))))) -(def: simple +(def simple Test (`` (all _.and (~~ (with_template [<parser> <format> <random> <equivalence>] @@ -246,7 +246,7 @@ (exception.match? \\parser.not_a_bit error)))))) ))) -(def: complex +(def complex Test (`` (all _.and (~~ (with_template [<parser> <format> <random> <equivalence>] @@ -326,7 +326,7 @@ actual)))))) ))) -(def: \\parser +(def \\parser Test (<| (_.covering \\parser._) (_.for [\\parser.Parser]) @@ -399,18 +399,18 @@ ..complex )))) -(def: equivalence +(def equivalence (Equivalence \\format.Specification) (implementation - (def: (= reference subject) + (def (= reference subject) (/#= (\\format.instance reference) (\\format.instance subject))))) -(def: random_specification +(def random_specification (Random \\format.Specification) (at random.monad each \\format.nat random.nat)) -(def: \\format +(def \\format Test (<| (_.covering \\format._) (_.for [\\format.Mutation \\format.Specification \\format.Writer]) @@ -419,7 +419,7 @@ ($monoid.spec ..equivalence \\format.monoid ..random_specification)) ))) -(def: (succeed result) +(def (succeed result) (-> (Try Bit) Bit) (case result {try.#Failure _} @@ -428,7 +428,7 @@ {try.#Success output} output)) -(def: .public (random size) +(def .public (random size) (-> Nat (Random /.Binary)) (let [output (/.empty size)] (loop (again [idx 0]) @@ -439,7 +439,7 @@ (again (++ idx)))) (at random.monad in output))))) -(def: (throws? exception try) +(def (throws? exception try) (All (_ e a) (-> (Exception e) (Try a) Bit)) (case try {try.#Failure error} @@ -448,7 +448,7 @@ {try.#Success _} false)) -(def: (binary_io power read write value) +(def (binary_io power read write value) (-> Nat (-> Nat /.Binary (Try Nat)) (-> Nat Nat /.Binary (Try Any)) Nat Bit) (let [bytes (i64.left_shifted power 1) binary (/.empty bytes) @@ -466,13 +466,13 @@ (throws? /.index_out_of_bounds (read 1 binary)) (throws? /.index_out_of_bounds (write 1 value binary))))) -(def: as_list +(def as_list (-> /.Binary (List Nat)) (/.mix (function (_ head tail) {.#Item head tail}) (list))) -(def: test|unsafe +(def test|unsafe Test (<| (_.covering !._) (_.for [!.Binary]) @@ -536,7 +536,7 @@ (n.= 0 copy/1))))) ))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Binary]) diff --git a/stdlib/source/test/lux/data/bit.lux b/stdlib/source/test/lux/data/bit.lux index 868c673f6..7b6b72d08 100644 --- a/stdlib/source/test/lux/data/bit.lux +++ b/stdlib/source/test/lux/data/bit.lux @@ -16,7 +16,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/data/collection.lux b/stdlib/source/test/lux/data/collection.lux index ffbe005bb..2f85ba057 100644 --- a/stdlib/source/test/lux/data/collection.lux +++ b/stdlib/source/test/lux/data/collection.lux @@ -21,7 +21,7 @@ ["[1]/[0]" finger] ["[1]/[0]" zipper]]]) -(def: dictionary +(def dictionary Test (all _.and /dictionary.test @@ -29,14 +29,14 @@ /dictionary/plist.test )) -(def: queue +(def queue Test (all _.and /queue.test /queue/priority.test )) -(def: set +(def set Test (all _.and /set.test @@ -44,7 +44,7 @@ /set/ordered.test )) -(def: tree +(def tree Test (all _.and /tree.test @@ -52,7 +52,7 @@ /tree/zipper.test )) -(def: .public test +(def .public test Test (all _.and /array.test diff --git a/stdlib/source/test/lux/data/collection/array.lux b/stdlib/source/test/lux/data/collection/array.lux index d62e20981..73d2b7b3a 100644 --- a/stdlib/source/test/lux/data/collection/array.lux +++ b/stdlib/source/test/lux/data/collection/array.lux @@ -28,16 +28,16 @@ ["[0]" / (.only Array) ["!" \\unsafe]]]) -(def: injection +(def injection (Injection Array) (|>> list /.of_list)) -(def: bounded_size +(def bounded_size (Random Nat) (at random.monad each (|>> (n.% 20) ++) random.nat)) -(def: structures +(def structures Test (do [! random.monad] [size ..bounded_size] @@ -52,7 +52,7 @@ ($mix.spec ..injection /.equivalence /.mix)) ))) -(def: search +(def search Test (do [! random.monad] [size ..bounded_size @@ -114,7 +114,7 @@ (/.any? n.even? the_array))) ))) -(def: test|unsafe +(def test|unsafe Test (<| (_.covering !._) (_.for [!.Array]) @@ -134,8 +134,8 @@ (_.for [!.composite] ($monoid.spec (/.equivalence n.equivalence) (implementation - (def: identity (!.empty 0)) - (def: (composite left right) + (def identity (!.empty 0)) + (def (composite left right) (!.composite left right))) (random.array size random.nat))) (_.for [!.each] @@ -304,7 +304,7 @@ (!.any? n.even? the_array))) ))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Array]) diff --git a/stdlib/source/test/lux/data/collection/bits.lux b/stdlib/source/test/lux/data/collection/bits.lux index 72bd8a31f..a53a0f042 100644 --- a/stdlib/source/test/lux/data/collection/bits.lux +++ b/stdlib/source/test/lux/data/collection/bits.lux @@ -14,12 +14,12 @@ [\\library ["[0]" / (.only Bits)]]) -(def: (size min max) +(def (size min max) (-> Nat Nat (Random Nat)) (|> random.nat (at random.monad each (|>> (n.% (++ max)) (n.max min))))) -(def: .public random +(def .public random (Random Bits) (do [! random.monad] [size (at ! each (n.% 1,000) random.nat)] @@ -29,7 +29,7 @@ [idx (|> random.nat (at ! each (n.% size)))] (in (/.one idx /.empty)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Bits]) diff --git a/stdlib/source/test/lux/data/collection/dictionary.lux b/stdlib/source/test/lux/data/collection/dictionary.lux index f5c0b4c9d..e4207f540 100644 --- a/stdlib/source/test/lux/data/collection/dictionary.lux +++ b/stdlib/source/test/lux/data/collection/dictionary.lux @@ -24,11 +24,11 @@ [\\library ["[0]" /]]) -(def: injection +(def injection (Injection (/.Dictionary Nat)) (|>> [0] list (/.of_list n.hash))) -(def: for_dictionaries +(def for_dictionaries Test (do [! random.monad] [.let [capped_nat (at random.monad each (n.% 100) random.nat)] @@ -56,8 +56,8 @@ [constant random.nat .let [hash (is (Hash Nat) (implementation - (def: equivalence n.equivalence) - (def: (hash _) + (def equivalence n.equivalence) + (def (hash _) constant)))]] (_.coverage [/.key_hash] (same? hash (/.key_hash (/.empty hash))))) @@ -130,7 +130,7 @@ (|> dict /.entries (/.of_list n.hash) (= dict))))) ))) -(def: for_entries +(def for_entries Test (do random.monad [.let [capped_nat (at random.monad each (n.% 100) random.nat)] @@ -248,7 +248,7 @@ (maybe.trusted (/.value non_key rebound))))))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Dictionary]) diff --git a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux index 19454582a..c90d91cda 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux @@ -23,7 +23,7 @@ [\\library ["[0]" /]]) -(def: .public (dictionary order gen_key gen_value size) +(def .public (dictionary order gen_key gen_value size) (All (_ k v) (-> (Order k) (Random k) (Random v) Nat (Random (/.Dictionary k v)))) (case size @@ -38,7 +38,7 @@ value gen_value] (in (/.has key value partial))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Dictionary]) diff --git a/stdlib/source/test/lux/data/collection/dictionary/plist.lux b/stdlib/source/test/lux/data/collection/dictionary/plist.lux index 7cd9ad3aa..46874e2d1 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/plist.lux @@ -22,7 +22,7 @@ [\\library ["[0]" /]]) -(def: .public (random size gen_key gen_value) +(def .public (random size gen_key gen_value) (All (_ v) (-> Nat (Random Text) (Random v) (Random (/.PList v)))) (do random.monad @@ -30,7 +30,7 @@ values (random.list size gen_value)] (in (list.zipped_2 (set.list keys) values)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.PList]) diff --git a/stdlib/source/test/lux/data/collection/list.lux b/stdlib/source/test/lux/data/collection/list.lux index f82ac2f35..61d1f7a0d 100644 --- a/stdlib/source/test/lux/data/collection/list.lux +++ b/stdlib/source/test/lux/data/collection/list.lux @@ -32,12 +32,12 @@ [\\library ["[0]" / (.open: "[1]#[0]" monad)]]) -(def: bounded_size +(def bounded_size (Random Nat) (at random.monad each (n.% 100) random.nat)) -(def: random +(def random (Random (List Nat)) (do [! random.monad] [size ..bounded_size] @@ -45,7 +45,7 @@ (random.set n.hash size) (at ! each set.list)))) -(def: signatures +(def signatures Test (all _.and (_.for [/.equivalence] @@ -84,7 +84,7 @@ false))))) )) -(def: whole +(def whole Test (do [! random.monad] [size ..bounded_size @@ -128,7 +128,7 @@ symmetry!))) ))) -(def: indices +(def indices Test (let [(open "/#[0]") (/.equivalence n.equivalence) (open "/#[0]") /.functor] @@ -188,7 +188,7 @@ _ (not changed?)))) )))) -(def: slice +(def slice Test (let [(open "/#[0]") (/.equivalence n.equivalence) (open "/#[0]") /.monoid] @@ -237,7 +237,7 @@ (/.together subs))))) )))) -(def: member +(def member Test (let [(open "/#[0]") (/.equivalence n.equivalence)] (do [! random.monad] @@ -275,7 +275,7 @@ )) ))))) -(def: grouping +(def grouping Test (let [(open "/#[0]") (/.equivalence n.equivalence) (open "/#[0]") /.functor @@ -370,7 +370,7 @@ (/.together (list sample/0 sample/1 sample/2))))) )))) -(def: search +(def search Test (let [(open "/#[0]") /.functor @@ -411,7 +411,7 @@ (not (/.any? n.even? sample)))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.List]) diff --git a/stdlib/source/test/lux/data/collection/queue.lux b/stdlib/source/test/lux/data/collection/queue.lux index 460c64618..c5fe69611 100644 --- a/stdlib/source/test/lux/data/collection/queue.lux +++ b/stdlib/source/test/lux/data/collection/queue.lux @@ -19,11 +19,11 @@ [\\library ["[0]" /]]) -(def: injection +(def injection (Injection /.Queue) (|>> list /.of_list)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Queue]) diff --git a/stdlib/source/test/lux/data/collection/queue/priority.lux b/stdlib/source/test/lux/data/collection/queue/priority.lux index 106884fa1..9013b4a44 100644 --- a/stdlib/source/test/lux/data/collection/queue/priority.lux +++ b/stdlib/source/test/lux/data/collection/queue/priority.lux @@ -15,7 +15,7 @@ [\\library ["[0]" / (.only Queue)]]) -(def: .public (random size) +(def .public (random size) (-> Nat (Random (Queue Nat))) (do [! random.monad] [inputs (random.list size random.nat)] @@ -26,7 +26,7 @@ /.empty inputs))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Queue]) diff --git a/stdlib/source/test/lux/data/collection/sequence.lux b/stdlib/source/test/lux/data/collection/sequence.lux index 445d6b033..c6d9f6d4d 100644 --- a/stdlib/source/test/lux/data/collection/sequence.lux +++ b/stdlib/source/test/lux/data/collection/sequence.lux @@ -27,7 +27,7 @@ [\\library ["[0]" / (.open: "[1]#[0]" monad)]]) -(def: signatures +(def signatures Test (do [! random.monad] [size (at ! each (n.% 100) random.nat)] @@ -46,7 +46,7 @@ ($monad.spec /#in /.equivalence /.monad)) ))) -(def: whole +(def whole Test (do [! random.monad] [size (at ! each (n.% 100) random.nat) @@ -79,7 +79,7 @@ (/.any? (bit.complement n.even?) sample))) ))) -(def: index_based +(def index_based Test (do [! random.monad] [size (at ! each (|>> (n.% 100) ++) random.nat)] @@ -130,7 +130,7 @@ )) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Sequence]) diff --git a/stdlib/source/test/lux/data/collection/set.lux b/stdlib/source/test/lux/data/collection/set.lux index be1168ad5..7dfd3b682 100644 --- a/stdlib/source/test/lux/data/collection/set.lux +++ b/stdlib/source/test/lux/data/collection/set.lux @@ -20,12 +20,12 @@ [\\library ["[0]" / (.open: "[1]#[0]" equivalence)]]) -(def: gen_nat +(def gen_nat (Random Nat) (at random.monad each (n.% 100) random.nat)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Set]) @@ -55,9 +55,9 @@ [hash (at ! each (function (_ constant) (is (Hash Nat) (implementation - (def: equivalence n.equivalence) + (def equivalence n.equivalence) - (def: (hash _) + (def (hash _) constant)))) random.nat)] (_.coverage [/.member_hash] diff --git a/stdlib/source/test/lux/data/collection/set/multi.lux b/stdlib/source/test/lux/data/collection/set/multi.lux index 0cabf93c6..6a05d80c9 100644 --- a/stdlib/source/test/lux/data/collection/set/multi.lux +++ b/stdlib/source/test/lux/data/collection/set/multi.lux @@ -21,11 +21,11 @@ [\\library ["[0]" /]]) -(def: count +(def count (Random Nat) (at random.monad each (|>> (n.% 10) ++) random.nat)) -(def: .public (random size hash count element) +(def .public (random size hash count element) (All (_ a) (-> Nat (Hash a) (Random Nat) (Random a) (Random (/.Set a)))) (do [! random.monad] [elements (random.set hash size element) @@ -36,7 +36,7 @@ (list.zipped_2 element_counts (set.list elements)))))) -(def: signature +(def signature Test (do [! random.monad] [diversity (at ! each (n.% 10) random.nat)] @@ -50,7 +50,7 @@ ($hash.spec /.hash))) ))) -(def: composition +(def composition Test (do [! random.monad] [diversity (at ! each (n.% 10) random.nat) @@ -108,7 +108,7 @@ common_changes!))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Set]) diff --git a/stdlib/source/test/lux/data/collection/set/ordered.lux b/stdlib/source/test/lux/data/collection/set/ordered.lux index 95f1644a1..f95f2e481 100644 --- a/stdlib/source/test/lux/data/collection/set/ordered.lux +++ b/stdlib/source/test/lux/data/collection/set/ordered.lux @@ -19,11 +19,11 @@ ["[0]" / (.only Set) ["[0]" //]]]) -(def: size +(def size (random.Random Nat) (at random.monad each (n.% 100) random.nat)) -(def: .public (random size order gen_value) +(def .public (random size order gen_value) (All (_ a) (-> Nat (Order a) (Random a) (Random (Set a)))) (case size 0 @@ -36,7 +36,7 @@ gen_value)] (in (/.has value partial))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Set]) diff --git a/stdlib/source/test/lux/data/collection/stack.lux b/stdlib/source/test/lux/data/collection/stack.lux index 3f600a958..64339fccd 100644 --- a/stdlib/source/test/lux/data/collection/stack.lux +++ b/stdlib/source/test/lux/data/collection/stack.lux @@ -18,11 +18,11 @@ [\\library ["[0]" /]]) -(def: (injection value) +(def (injection value) (Injection /.Stack) (/.top value /.empty)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Stack]) diff --git a/stdlib/source/test/lux/data/collection/stream.lux b/stdlib/source/test/lux/data/collection/stream.lux index 17bb614ad..398873f2f 100644 --- a/stdlib/source/test/lux/data/collection/stream.lux +++ b/stdlib/source/test/lux/data/collection/stream.lux @@ -21,15 +21,15 @@ [\\library ["[0]" /]]) -(def: (equivalence super) +(def (equivalence super) (All (_ a) (-> (Equivalence a) (Equivalence (/.Stream a)))) (implementation - (def: (= reference subject) + (def (= reference subject) (at (list.equivalence super) = (/.first 100 reference) (/.first 100 subject))))) -(def: (iterations step) +(def (iterations step) (All (_ a) (-> (-> a a) (-> a (/.Stream a)))) @@ -38,7 +38,7 @@ (let [state' (step state)] [state' state])))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Stream]) diff --git a/stdlib/source/test/lux/data/collection/tree.lux b/stdlib/source/test/lux/data/collection/tree.lux index f1d964e2e..a302565f9 100644 --- a/stdlib/source/test/lux/data/collection/tree.lux +++ b/stdlib/source/test/lux/data/collection/tree.lux @@ -19,7 +19,7 @@ [\\library ["[0]" / (.only Tree)]]) -(def: .public (tree gen_value) +(def .public (tree gen_value) (All (_ a) (-> (Random a) (Random [Nat (Tree a)]))) (do [! random.monad] [value gen_value @@ -31,7 +31,7 @@ [/.#value value /.#children (list#each product.right children)]]))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Tree]) diff --git a/stdlib/source/test/lux/data/collection/tree/finger.lux b/stdlib/source/test/lux/data/collection/tree/finger.lux index bb6d9ac98..bad7dec35 100644 --- a/stdlib/source/test/lux/data/collection/tree/finger.lux +++ b/stdlib/source/test/lux/data/collection/tree/finger.lux @@ -18,16 +18,16 @@ [\\library ["[0]" /]]) -(def: builder +(def builder (/.builder text.monoid)) -(def: :@: +(def :@: (by_example [@] (is (/.Builder @ Text) ..builder) @)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Tree]) diff --git a/stdlib/source/test/lux/data/collection/tree/zipper.lux b/stdlib/source/test/lux/data/collection/tree/zipper.lux index eb4a1c553..c98560160 100644 --- a/stdlib/source/test/lux/data/collection/tree/zipper.lux +++ b/stdlib/source/test/lux/data/collection/tree/zipper.lux @@ -25,7 +25,7 @@ ["[0]" / (.only Zipper) ["tree" //]]]) -(def: move +(def move Test (do random.monad [expected random.nat @@ -151,7 +151,7 @@ (maybe.else false)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Zipper]) diff --git a/stdlib/source/test/lux/data/color.lux b/stdlib/source/test/lux/data/color.lux index e1d06c542..a59494de6 100644 --- a/stdlib/source/test/lux/data/color.lux +++ b/stdlib/source/test/lux/data/color.lux @@ -21,30 +21,30 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Color) (|> (all random.and random.nat random.nat random.nat) (at random.monad each /.of_rgb))) -(def: scale +(def scale (-> Nat Frac) (|>> .int int.frac)) -(def: square +(def square (-> Frac Frac) (f.pow +2.0)) -(def: square_root +(def square_root (-> Frac Frac) (f.pow +0.5)) -(def: (distance/1 from to) +(def (distance/1 from to) (-> Frac Frac Frac) (square_root (square (f.- from to)))) -(def: (distance/3 from to) +(def (distance/3 from to) (-> /.Color /.Color Frac) (let [[fr fg fb] (/.rgb from) [tr tg tb] (/.rgb to)] @@ -54,10 +54,10 @@ (|> (scale tg) (f.- (scale fg)) square) (|> (scale tb) (f.- (scale fb)) square))))) -(def: rgb_error_margin +1.8) +(def rgb_error_margin +1.8) (with_template [<field>] - [(def: (<field> color) + [(def (<field> color) (-> /.Color Frac) (let [[hue saturation luminance] (/.hsl color)] <field>))] @@ -66,7 +66,7 @@ [luminance] ) -(def: (encoding expected) +(def (encoding expected) (-> /.Color Test) (all _.and (_.coverage [/.RGB /.rgb /.of_rgb] @@ -86,7 +86,7 @@ (f.<= ..rgb_error_margin))) )) -(def: transformation +(def transformation Test (do random.monad [colorful (|> ..random @@ -125,7 +125,7 @@ (f.<= ..rgb_error_margin))))) ))) -(def: palette +(def palette Test (_.for [/.Spread /.Palette] (do [! random.monad] @@ -174,7 +174,7 @@ [/.tetradic])) ))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Color]) diff --git a/stdlib/source/test/lux/data/color/named.lux b/stdlib/source/test/lux/data/color/named.lux index 7034f41d1..4365468df 100644 --- a/stdlib/source/test/lux/data/color/named.lux +++ b/stdlib/source/test/lux/data/color/named.lux @@ -200,7 +200,7 @@ [/.yellow /.yellow_green]] )] - (def: all_colors + (def all_colors (list.together (`` (list (~~ (with_template [<definition> <by_letter>] [((is (-> Any (List //.Color)) (function (_ _) @@ -209,22 +209,22 @@ <colors>)))))) - (def: unique_colors + (def unique_colors (set.of_list //.hash ..all_colors)) - (def: verdict + (def verdict (n.= (list.size ..all_colors) (set.size ..unique_colors))) (with_template [<definition> <by_letter>] - [(def: <definition> + [(def <definition> Test (_.coverage <by_letter> ..verdict))] <colors>) - (def: .public test + (def .public test Test (<| (_.covering /._) (`` (all _.and diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index 613767144..13d7f11cc 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -76,7 +76,7 @@ #date date.Date #grams (unit.Qty unit.Gram)])) -(def: gen_recursive +(def gen_recursive (Random Recursive) (random.rec (function (_ gen_recursive) @@ -84,11 +84,11 @@ (random.and random.safe_frac gen_recursive))))) -(def: qty +(def qty (All (_ unit) (Random (unit.Qty unit))) (at random.monad each unit.quantity random.int)) -(def: gen_record +(def gen_record (Random Record) (do [! random.monad] [size (at ! each (n.% 2) random.nat)] @@ -109,22 +109,22 @@ ))) (for @.old (these) - (these (def: equivalence + (these (def equivalence (Equivalence Record) (\\polytypic/equivalence.equivalence Record)) - (def: codec + (def codec (Codec JSON Record) (\\polytypic.codec Record)))) -(def: \\polytypic +(def \\polytypic Test (<| (_.covering \\polytypic._) (_.for [\\polytypic.codec] (for @.old (_.property "PLACEHOLDER" true) ($codec.spec ..equivalence ..codec ..gen_record))))) -(def: .public random +(def .public random (Random /.JSON) (random.rec (function (_ again) @@ -139,25 +139,25 @@ (random.dictionary text.hash size (random.unicode size) again) ))))) -(def: boolean +(def boolean (syntax (_ []) (do meta.monad [value meta.seed] (in (list (code.bit (n.even? value))))))) -(def: number +(def number (syntax (_ []) (do meta.monad [value meta.seed] (in (list (code.frac (n.frac value))))))) -(def: string +(def string (syntax (_ []) (do meta.monad [value (macro.symbol "string")] (in (list (code.text (%.code value))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.JSON]) diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 16bf8fb62..dad5eea06 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -35,7 +35,7 @@ [\\library ["[0]" /]]) -(def: path +(def path Test (_.for [/.Path] (do [! random.monad] @@ -70,7 +70,7 @@ (exception.match? /.not_ascii error))) ))))) -(def: name +(def name Test (_.for [/.Name] (do [! random.monad] @@ -103,7 +103,7 @@ (exception.match? /.not_ascii error))) ))))) -(def: small +(def small Test (_.for [/.Small] (do [! random.monad] @@ -127,7 +127,7 @@ (exception.match? /.not_a_small_number error))) ))))) -(def: big +(def big Test (_.for [/.Big] (do [! random.monad] @@ -151,9 +151,9 @@ (exception.match? /.not_a_big_number error))) ))))) -(def: chunk_size 32) +(def chunk_size 32) -(def: entry +(def entry Test (do [! random.monad] [expected_path (random.lower_case (-- /.path_size)) @@ -221,7 +221,7 @@ [/.Contiguous /.#Contiguous] )))))))) -(def: random_mode +(def random_mode (Random /.Mode) (do [! random.monad] [] @@ -238,7 +238,7 @@ (random.either (in /.set_group_id_on_execution) (in /.set_user_id_on_execution))))))) -(def: mode +(def mode Test (_.for [/.Mode /.mode] (do [! random.monad] @@ -311,7 +311,7 @@ [/.set_user_id_on_execution] ))))))) -(def: ownership +(def ownership Test (do [! random.monad] [path (random.lower_case /.path_size) @@ -390,7 +390,7 @@ (try.else false))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Tar]) diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux index 72be44fa1..0798b1d83 100644 --- a/stdlib/source/test/lux/data/format/xml.lux +++ b/stdlib/source/test/lux/data/format/xml.lux @@ -29,35 +29,35 @@ [\\library ["[0]" / (.only XML)]]) -(def: char_range +(def char_range Text (format "_" "abcdefghijklmnopqrstuvwxyz" "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) -(def: char +(def char (Random Nat) (do [! random.monad] [idx (|> random.nat (at ! each (n.% (text.size char_range))))] (in (maybe.trusted (text.char idx char_range))))) -(def: (size bottom top) +(def (size bottom top) (-> Nat Nat (Random Nat)) (let [constraint (|>> (n.% top) (n.max bottom))] (random#each constraint random.nat))) -(def: (text bottom top) +(def (text bottom top) (-> Nat Nat (Random Text)) (do random.monad [size (..size bottom top)] (random.text ..char size))) -(def: symbol +(def symbol (Random Symbol) (random.and (..text 0 10) (..text 1 10))) -(def: .public random +(def .public random (Random XML) (random.rec (function (_ random) (random.or (..text 1 10) @@ -68,7 +68,7 @@ (random.dictionary symbol.hash size ..symbol (..text 0 10)) (random.list size random))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.XML]) diff --git a/stdlib/source/test/lux/data/identity.lux b/stdlib/source/test/lux/data/identity.lux index a6b0fb397..b7d1ff001 100644 --- a/stdlib/source/test/lux/data/identity.lux +++ b/stdlib/source/test/lux/data/identity.lux @@ -12,16 +12,16 @@ [\\library ["[0]" / (.only Identity)]]) -(def: injection +(def injection (Injection Identity) (|>>)) -(def: comparison +(def comparison (Comparison Identity) (function (_ ==) ==)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Identity]) diff --git a/stdlib/source/test/lux/data/product.lux b/stdlib/source/test/lux/data/product.lux index 1cde90959..df2d4dc93 100644 --- a/stdlib/source/test/lux/data/product.lux +++ b/stdlib/source/test/lux/data/product.lux @@ -14,7 +14,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Tuple .And]) diff --git a/stdlib/source/test/lux/data/sum.lux b/stdlib/source/test/lux/data/sum.lux index 8543ddba6..fd3f4fecc 100644 --- a/stdlib/source/test/lux/data/sum.lux +++ b/stdlib/source/test/lux/data/sum.lux @@ -21,7 +21,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Union .Or]) diff --git a/stdlib/source/test/lux/data/text.lux b/stdlib/source/test/lux/data/text.lux index 3c65ea9ff..15e456a9c 100644 --- a/stdlib/source/test/lux/data/text.lux +++ b/stdlib/source/test/lux/data/text.lux @@ -79,13 +79,13 @@ ["[0]" \\parser] ["[0]" \\format]) -(def: (equivalence example) +(def (equivalence example) (All (_ a) (-> a (Equivalence (\\format.Format a)))) (implementation - (def: (= reference subject) + (def (= reference subject) (/#= (reference example) (subject example))))) -(def: random_contravariant +(def random_contravariant (Random (Ex (_ a) [(\\format.Format a) (Random a)])) @@ -97,7 +97,7 @@ (random#in [\\format.frac random.frac]) )) -(def: codec +(def codec Test (`` (all _.and (~~ (with_template [<format> <codec> <random>] @@ -145,7 +145,7 @@ )) ))) -(def: \\format +(def \\format Test (<| (_.covering \\format._) (_.for [\\format.Format]) @@ -212,7 +212,7 @@ (\\format.mod sample)))) )))) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -221,7 +221,7 @@ _ false)])) -(def: (should_fail' sample parser exception) +(def (should_fail' sample parser exception) (All (_ a e) (-> Text (\\parser.Parser a) (Exception e) Bit)) (case (\\parser.result parser sample) {try.#Failure error} @@ -230,7 +230,7 @@ _ false)) -(def: (should_fail sample parser) +(def (should_fail sample parser) (All (_ a) (-> Text (\\parser.Parser a) Bit)) (case (\\parser.result parser sample) {try.#Failure _} @@ -239,18 +239,18 @@ _ false)) -(def: (should_pass expected parser) +(def (should_pass expected parser) (-> Text (\\parser.Parser Text) Bit) (|> expected (\\parser.result parser) (at try.functor each (/#= expected)) (try.else false))) -(def: (should_pass! expected parser) +(def (should_pass! expected parser) (-> Text (\\parser.Parser \\parser.Slice) Bit) (..should_pass expected (\\parser.slice parser))) -(def: \\parser#character_classes +(def \\parser#character_classes Test (all _.and (do [! random.monad] @@ -387,7 +387,7 @@ ))) )) -(def: \\parser#runs +(def \\parser#runs Test (let [octal! (\\parser.one_of! "01234567")] (all _.and @@ -473,7 +473,7 @@ (..should_fail (\\format.format first) (\\parser.between! 2 1 octal!))))) ))) -(def: \\parser +(def \\parser Test (<| (_.covering \\parser._) (_.for [\\parser.Parser]) @@ -624,12 +624,12 @@ \\parser#runs ))) -(def: bounded_size +(def bounded_size (random.Random Nat) (|> random.nat (at random.monad each (|>> (nat.% 20) (nat.+ 1))))) -(def: size +(def size Test (do [! random.monad] [size (at ! each (nat.% 10) random.nat) @@ -641,7 +641,7 @@ (or (/.empty? sample) (not (nat.= 0 size))))))) -(def: affix +(def affix Test (do [! random.monad] [inner (random.unicode 1) @@ -670,7 +670,7 @@ (/.contains? inner sample)))) )))) -(def: index +(def index Test (do [! random.monad] [inner (random.unicode 1) @@ -717,7 +717,7 @@ (nat.= 2))))) ))) -(def: char +(def char Test (all _.and (_.for [/.Char /.of_char] @@ -768,7 +768,7 @@ ))))) )) -(def: manipulation +(def manipulation Test (do [! random.monad] [size (at ! each (|>> (nat.% 10) (nat.+ 2)) random.nat) @@ -851,7 +851,7 @@ inverse!))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Text]) diff --git a/stdlib/source/test/lux/data/text/buffer.lux b/stdlib/source/test/lux/data/text/buffer.lux index 6c1531b66..f11248cd8 100644 --- a/stdlib/source/test/lux/data/text/buffer.lux +++ b/stdlib/source/test/lux/data/text/buffer.lux @@ -14,13 +14,13 @@ [\\library ["[0]" /]]) -(def: part +(def part (Random Text) (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat)] (random.alphabetic size))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Buffer]) diff --git a/stdlib/source/test/lux/data/text/encoding.lux b/stdlib/source/test/lux/data/text/encoding.lux index 12be514b8..a3686fc6a 100644 --- a/stdlib/source/test/lux/data/text/encoding.lux +++ b/stdlib/source/test/lux/data/text/encoding.lux @@ -189,35 +189,35 @@ [])] <encodings>)] - (def: all_encodings + (def all_encodings (list.together (list <named>))) - (def: unique_encodings + (def unique_encodings (list#mix (function (_ encoding set) (set.has (/.name encoding) set)) (set.empty text.hash) ..all_encodings)) - (def: verdict + (def verdict (n.= (list.size ..all_encodings) (set.size ..unique_encodings))) (with_template [<definition> <by_letter>] - [(def: <definition> + [(def <definition> Test (`` (_.coverage [/.name (~~ (template.spliced <by_letter>))] ..verdict)))] <encodings>) - (def: .public random + (def .public random (Random /.Encoding) (let [options (list.size ..all_encodings)] (do [! random.monad] [choice (at ! each (n.% options) random.nat)] (in (maybe.trusted (list.item choice ..all_encodings)))))) - (def: .public test + (def .public test Test (<| (_.covering /._) (_.for [/.Encoding]) diff --git a/stdlib/source/test/lux/data/text/encoding/utf8.lux b/stdlib/source/test/lux/data/text/encoding/utf8.lux index 20f49c113..e7cdc660d 100644 --- a/stdlib/source/test/lux/data/text/encoding/utf8.lux +++ b/stdlib/source/test/lux/data/text/encoding/utf8.lux @@ -12,7 +12,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.codec] diff --git a/stdlib/source/test/lux/data/text/escape.lux b/stdlib/source/test/lux/data/text/escape.lux index a583c2b6e..082f638c2 100644 --- a/stdlib/source/test/lux/data/text/escape.lux +++ b/stdlib/source/test/lux/data/text/escape.lux @@ -31,30 +31,30 @@ ["[0]" unicode ["[1]" set]]]]]) -(def: (range max min) +(def (range max min) (-> Char Char (Random Char)) (let [range (n.- min max)] (at random.monad each (|>> (n.% range) (n.+ min)) random.nat))) -(def: under_range +(def under_range (Random Char) (..range (debug.private /.ascii_bottom) 0)) -(def: over_range +(def over_range (Random Char) (..range (hex "FFFF") (++ (debug.private /.ascii_top)))) -(def: in_range +(def in_range (Random Char) (..range (++ (debug.private /.ascii_top)) (debug.private /.ascii_bottom))) -(def: ascii_range +(def ascii_range (Random Char) (..range (++ (debug.private /.ascii_top)) 0)) -(def: valid_sigils +(def valid_sigils (Set Char) (set.of_list n.hash (list (debug.private /.\0_sigil) @@ -69,7 +69,7 @@ (debug.private /.\\_sigil) (debug.private /.\u_sigil)))) -(def: static_sample +(def static_sample (syntax (_ []) (do meta.monad [seed meta.seed @@ -78,11 +78,11 @@ (random.result (random.pcg_32 [seed seed])))]] (in (list (code.text expected)))))) -(def: static_escaped +(def static_escaped (syntax (_ [un_escaped <code>.text]) (in (list (code.text (/.escaped un_escaped)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux index a31b6247b..787d432a6 100644 --- a/stdlib/source/test/lux/data/text/regex.lux +++ b/stdlib/source/test/lux/data/text/regex.lux @@ -22,7 +22,7 @@ [\\library ["[0]" /]]) -(def: (should_pass regex input) +(def (should_pass regex input) (-> (Parser Text) Text Bit) (|> input (<text>.result regex) @@ -33,7 +33,7 @@ _ #0))) -(def: (text_should_pass test regex input) +(def (text_should_pass test regex input) (-> Text (Parser Text) Text Bit) (|> input (<text>.result regex) @@ -44,7 +44,7 @@ _ false))) -(def: (should_fail regex input) +(def (should_fail regex input) (All (_ a) (-> (Parser a) Text Bit)) (|> input (<text>.result regex) @@ -55,7 +55,7 @@ _ false))) -(def: should_check +(def should_check (syntax (_ [pattern <code>.any regex <code>.any input <code>.any]) @@ -69,7 +69,7 @@ (~ g!_) false)))))))) -(def: basics +(def basics Test (_.property "Can parse character literals." (and (should_pass (/.regex "a") "a") @@ -77,7 +77,7 @@ (should_pass (/.regex "\.") ".") (should_fail (/.regex "\.") "a")))) -(def: system_character_classes +(def system_character_classes Test (all _.and (_.property "Can parse anything." @@ -108,7 +108,7 @@ (should_fail (/.regex "\W") "a"))) )) -(def: special_system_character_classes +(def special_system_character_classes Test (all _.and (_.property "Lower-case." @@ -155,7 +155,7 @@ (should_fail (/.regex "\p{Print}") (text.of_char (hex "1234"))))) )) -(def: custom_character_classes +(def custom_character_classes Test (all _.and (_.property "Can parse using custom character classes." @@ -194,7 +194,7 @@ (should_fail RE "p"))))) )) -(def: references +(def references Test (let [number (/.regex "\d+")] (_.property "Can build complex regexs by combining simpler ones." @@ -202,7 +202,7 @@ (/.regex "(\@<number>)-(\@<number>)-(\@<number>)") "809-345-6789")))) -(def: fuzzy_quantifiers +(def fuzzy_quantifiers Test (all _.and (_.property "Can sequentially combine patterns." @@ -222,7 +222,7 @@ (should_fail (/.regex "a+") ""))) )) -(def: crisp_quantifiers +(def crisp_quantifiers Test (all _.and (_.property "Can match a pattern N times." @@ -244,7 +244,7 @@ (text_should_pass "aa" (/.regex "a{1,2}") "aa"))) )) -(def: groups +(def groups Test (all _.and (_.property "Can extract groups of sub-matches specified in a pattern." @@ -260,7 +260,7 @@ (should_check ["809-345-6789" "809" ["345-6789" "345" "6789"]] (/.regex "(\d{3})-((\d{3})-(\d{4}))") "809-345-6789")) )) -(def: alternation +(def alternation Test (all _.and (_.property "Can specify alternative patterns." @@ -277,7 +277,7 @@ "123-456-7890"))) )) -(def: expands? +(def expands? (syntax (_ [form <code>.any]) (function (_ lux) {try.#Success [lux (list (code.bit (case (macro.single_expansion form lux) @@ -287,7 +287,7 @@ {try.#Failure error} false)))]}))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/data/text/unicode/block.lux b/stdlib/source/test/lux/data/text/unicode/block.lux index c07da3b71..4c07e1531 100644 --- a/stdlib/source/test/lux/data/text/unicode/block.lux +++ b/stdlib/source/test/lux/data/text/unicode/block.lux @@ -22,7 +22,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Block) (do [! random.monad] [start (at ! each (n.% 1,000,000) random.nat) @@ -154,7 +154,7 @@ <blocks>)] (with_template [<definition> <part>] - [(def: <definition> + [(def <definition> Test (`` (_.coverage [(~~ (template.spliced <part>))] (let [all (list.together (list <named>)) @@ -165,7 +165,7 @@ <blocks> ) - (def: .public test + (def .public test Test (<| (_.covering /._) (_.for [/.Block]) diff --git a/stdlib/source/test/lux/data/text/unicode/set.lux b/stdlib/source/test/lux/data/text/unicode/set.lux index e4eed7710..e2bbc663c 100644 --- a/stdlib/source/test/lux/data/text/unicode/set.lux +++ b/stdlib/source/test/lux/data/text/unicode/set.lux @@ -23,14 +23,14 @@ [// ["[0]" block]]]]) -(def: .public random +(def .public random (Random /.Set) (do [! random.monad] [left //block.random right //block.random] (in (/.set [left (list right)])))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Set]) diff --git a/stdlib/source/test/lux/debug.lux b/stdlib/source/test/lux/debug.lux index d0292ab1a..4888bc61b 100644 --- a/stdlib/source/test/lux/debug.lux +++ b/stdlib/source/test/lux/debug.lux @@ -48,7 +48,7 @@ ["[1][0]" location] ["[1][0]" symbol]]]) -(def: can_represent_simple_types +(def can_represent_simple_types (Random Bit) (do random.monad [sample_bit random.bit @@ -70,7 +70,7 @@ [Text %.text sample_text])) ))))) -(def: can_represent_structure_types +(def can_represent_structure_types (Random Bit) (do random.monad [sample_bit random.bit @@ -103,7 +103,7 @@ ... )) ))))) -(def: can_represent_complex_types +(def can_represent_complex_types (Random Bit) (do random.monad [sample_ratio $//ratio.random @@ -127,7 +127,7 @@ [JSON %.json sample_json])) ))))) -(def: can_represent_time_types +(def can_represent_time_types (Random Bit) (do random.monad [sample_instant random.instant @@ -149,7 +149,7 @@ [Day %.day sample_day])) ))))) -(def: representation +(def representation Test (do random.monad [sample_bit random.bit @@ -192,7 +192,7 @@ (exception.match? /.cannot_represent_value error))) ))) -(def: inspection +(def inspection Test (do random.monad [sample_bit random.bit @@ -216,7 +216,7 @@ (/.inspection [sample_bit sample_int sample_frac sample_text])) ))))) -(def: macro_error +(def macro_error (syntax (_ [macro <code>.any]) (function (_ compiler) (case ((macro.expansion macro) compiler) @@ -229,7 +229,7 @@ (type: My_Text Text) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/documentation.lux b/stdlib/source/test/lux/documentation.lux index 600030da4..ddfc1c876 100644 --- a/stdlib/source/test/lux/documentation.lux +++ b/stdlib/source/test/lux/documentation.lux @@ -20,7 +20,7 @@ [\\library ["[0]" /]]) -(def: macro_error +(def macro_error (syntax (_ [macro <code>.any]) (function (_ compiler) {try.#Success [compiler (list (code.bit (case ((macro.expansion macro) compiler) @@ -30,7 +30,7 @@ {try.#Success _} false)))]}))) -(def: description +(def description (syntax (_ []) (at meta.monad each (|>> %.nat code.text list) @@ -40,15 +40,15 @@ (with_expansions ['definition_description' (..description) 'sub_description' (..description) 'super_description' (..description)] - (these (def: .public g!default + (these (def .public g!default Nat 123) - (def: documentation + (def documentation (/.documentation /.documentation 'definition_description')) - (def: .public test + (def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/extension.lux b/stdlib/source/test/lux/extension.lux index 22b8813e7..81fa7e1df 100644 --- a/stdlib/source/test/lux/extension.lux +++ b/stdlib/source/test/lux/extension.lux @@ -61,10 +61,10 @@ [\\library ["[0]" / (.only analysis synthesis generation directive)]]))) -(def: dummy_generation "dummy generation") +(def dummy_generation "dummy generation") (with_template [<name>] - [(def: <name> + [(def <name> Text (`` (%.symbol (symbol (~~ (template.symbol [.._ <name>]))))))] @@ -180,7 +180,7 @@ (`` ((~~ (static ..my_directive)) (n.* 2 3))) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/ffi.js.lux b/stdlib/source/test/lux/ffi.js.lux index 6de496499..19d33cae6 100644 --- a/stdlib/source/test/lux/ffi.js.lux +++ b/stdlib/source/test/lux/ffi.js.lux @@ -45,7 +45,7 @@ (new [/.String]) (decode [Uint8Array] /.String)) -(def: .public test +(def .public test Test (do [! random.monad] [boolean random.bit diff --git a/stdlib/source/test/lux/ffi.jvm.lux b/stdlib/source/test/lux/ffi.jvm.lux index 327c2c77f..fde11038a 100644 --- a/stdlib/source/test/lux/ffi.jvm.lux +++ b/stdlib/source/test/lux/ffi.jvm.lux @@ -57,7 +57,7 @@ (getName [] java/lang/String)) (with_template [<name> <type> <conversion> <lux> <=>] - [(def: (<name> left right) + [(def (<name> left right) (-> <type> <type> Bit) (<=> (as <lux> (<conversion> left)) (as <lux> (<conversion> right))))] @@ -72,7 +72,7 @@ [character#= /.Character /.char_to_long Int i#=] ) -(def: macro_error +(def macro_error (syntax (_ [expression <code>.any]) (function (_ lux) (|> (macro.single_expansion expression) @@ -84,7 +84,7 @@ {try.#Failure error} {try.#Success [lux (list (code.text error))]}))))) -(def: for_conversions +(def for_conversions Test (do [! random.monad] [long (at ! each (|>> /.as_long) random.int) @@ -119,7 +119,7 @@ [float float#= /.float_to_double /.double_to_float] )))))) -(def: for_arrays +(def for_arrays Test (do [! random.monad] [size (|> random.nat (at ! each (|>> (n.% 100) (n.max 1)))) @@ -145,7 +145,7 @@ ..macro_error (text.contains? (the exception.#label /.cannot_convert_to_jvm_type)))))))) -(def: for_miscellaneous +(def for_miscellaneous Test (`` (do [! random.monad] [sample (at ! each (|>> (as java/lang/Object)) @@ -298,7 +298,7 @@ "[1]::[0]" (actual4 [long long] long)) -(def: for_interface +(def for_interface Test (do random.monad [expected random.nat @@ -551,7 +551,7 @@ (new [a]) ("read_only" value11 a)) -(def: for_class +(def for_class Test (do [! random.monad] [expected random.nat @@ -668,7 +668,7 @@ example/9!) ))) -(def: expands? +(def expands? (syntax (_ [expression <code>.any]) (function (_ lux) (|> (macro.single_expansion expression) @@ -684,7 +684,7 @@ [lux] {try.#Success})))) -(def: for_exception +(def for_exception Test (do [! random.monad] [var/0 (random.lower_case 1) @@ -721,7 +721,7 @@ false))))) ))) -(def: .public test +(def .public test (<| (_.covering /._) (all _.and ..for_conversions diff --git a/stdlib/source/test/lux/ffi.lua.lux b/stdlib/source/test/lux/ffi.lua.lux index 4ca013d88..aac4a2091 100644 --- a/stdlib/source/test/lux/ffi.lua.lux +++ b/stdlib/source/test/lux/ffi.lua.lux @@ -15,7 +15,7 @@ (/.import (os/getenv [/.String] "io" "?" /.String)) -(def: .public test +(def .public test Test (do [! random.monad] [boolean random.bit diff --git a/stdlib/source/test/lux/ffi.old.lux b/stdlib/source/test/lux/ffi.old.lux index 917e18949..9fc124852 100644 --- a/stdlib/source/test/lux/ffi.old.lux +++ b/stdlib/source/test/lux/ffi.old.lux @@ -71,7 +71,7 @@ (up [] java/lang/Long) (down [] java/lang/Long)) -(def: (test_object increase counter) +(def (test_object increase counter) (-> Int Int test/lux/ffi/TestInterface) (/.object [] [test/lux/ffi/TestInterface] [] @@ -88,7 +88,7 @@ test/lux/ffi/TestInterface (test_object increase (i.- increase counter))))) -(def: conversions +(def conversions Test (do [! random.monad] [long random.int @@ -156,7 +156,7 @@ (|> capped <to> <from> /.int_to_long (i.= (/.int_to_long capped)))))))) )))) -(def: arrays +(def arrays Test (do [! random.monad] [size (|> random.nat (at ! each (|>> (n.% 100) (n.max 1)))) @@ -172,7 +172,7 @@ (i.= value))) ))) -(def: null +(def null Test (do random.monad [sample (random.ascii 1)] @@ -194,7 +194,7 @@ (not (/.null? (/.!!! (/.??? sample)))))) ))) -(def: miscellaneous +(def miscellaneous Test (do random.monad [sample (random.ascii 1) @@ -233,7 +233,7 @@ (/.type (java/util/List java/lang/Byte))))) ))) -(def: .public test +(def .public test (<| (_.covering /._) (all _.and ..conversions diff --git a/stdlib/source/test/lux/ffi.php.lux b/stdlib/source/test/lux/ffi.php.lux index 22532f1b1..4e4537188 100644 --- a/stdlib/source/test/lux/ffi.php.lux +++ b/stdlib/source/test/lux/ffi.php.lux @@ -16,7 +16,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (do [! random.monad] [] diff --git a/stdlib/source/test/lux/ffi.py.lux b/stdlib/source/test/lux/ffi.py.lux index bdaab94c5..b559ee5c3 100644 --- a/stdlib/source/test/lux/ffi.py.lux +++ b/stdlib/source/test/lux/ffi.py.lux @@ -18,7 +18,7 @@ ("static" R_OK /.Integer) ("static" W_OK /.Integer)) -(def: .public test +(def .public test Test (do [! random.monad] [boolean random.bit diff --git a/stdlib/source/test/lux/ffi.rb.lux b/stdlib/source/test/lux/ffi.rb.lux index f5185ea81..7f2c25334 100644 --- a/stdlib/source/test/lux/ffi.rb.lux +++ b/stdlib/source/test/lux/ffi.rb.lux @@ -15,7 +15,7 @@ "[1]::[0]" ("static" SEPARATOR /.String)) -(def: .public test +(def .public test Test (do [! random.monad] [boolean random.bit diff --git a/stdlib/source/test/lux/ffi.scm.lux b/stdlib/source/test/lux/ffi.scm.lux index 22532f1b1..4e4537188 100644 --- a/stdlib/source/test/lux/ffi.scm.lux +++ b/stdlib/source/test/lux/ffi.scm.lux @@ -16,7 +16,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (do [! random.monad] [] diff --git a/stdlib/source/test/lux/ffi/export.js.lux b/stdlib/source/test/lux/ffi/export.js.lux index 37402fc3b..a0d5dcf16 100644 --- a/stdlib/source/test/lux/ffi/export.js.lux +++ b/stdlib/source/test/lux/ffi/export.js.lux @@ -12,17 +12,17 @@ (with_expansions [<nat> (static.random_nat)] (/.export - (def: constant + (def constant Nat <nat>) - (def: shift + (def shift (-> Nat Nat) (|>> (n.+ <nat>)))) (//.import (constant Nat)) (//.import (shift (-> Nat Nat))) - (def: .public test + (def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/ffi/export.jvm.lux b/stdlib/source/test/lux/ffi/export.jvm.lux index e9468a8fe..efa8d80fb 100644 --- a/stdlib/source/test/lux/ffi/export.jvm.lux +++ b/stdlib/source/test/lux/ffi/export.jvm.lux @@ -24,15 +24,15 @@ ["[0]" / (.only) ["/[1]" //]]]) -(def: expected_boolean (//.as_boolean (static.random_bit))) -(def: expected_byte (//.as_byte (static.random_int))) -(def: expected_short (//.as_short (static.random_int))) -(def: expected_int (//.as_int (static.random_int))) -(def: expected_long (//.as_long (static.random_int))) -(def: expected_char (//.as_char (static.random_int))) -(def: expected_float (//.as_float (static.random_frac))) -(def: expected_double (//.as_double (static.random_frac))) -(def: expected_string (//.as_string (static.random code.text (random.lower_case 2)))) +(def expected_boolean (//.as_boolean (static.random_bit))) +(def expected_byte (//.as_byte (static.random_int))) +(def expected_short (//.as_short (static.random_int))) +(def expected_int (//.as_int (static.random_int))) +(def expected_long (//.as_long (static.random_int))) +(def expected_char (//.as_char (static.random_int))) +(def expected_float (//.as_float (static.random_frac))) +(def expected_double (//.as_double (static.random_frac))) +(def expected_string (//.as_string (static.random code.text (random.lower_case 2)))) (`` (`` (/.export Primitives ... Constants @@ -110,19 +110,19 @@ ("static" [a] left [a a] a) ("static" [a] right [a a] a)) -(def: tiny_int +(def tiny_int (Random Int) (random#each (|>> (i64.and (hex "F")) .int) random.nat)) -(def: tiny_frac +(def tiny_frac (Random Frac) (random#each (|>> (i64.and (hex "FFFF")) .int int.frac) random.nat)) -(`` (`` (def: .public test +(`` (`` (def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/ffi/export.lua.lux b/stdlib/source/test/lux/ffi/export.lua.lux index f3c9b90ea..8af9418af 100644 --- a/stdlib/source/test/lux/ffi/export.lua.lux +++ b/stdlib/source/test/lux/ffi/export.lua.lux @@ -12,17 +12,17 @@ (with_expansions [<nat> (static.random_nat)] (/.export - (def: constant + (def constant Nat <nat>) - (def: shift + (def shift (-> Nat Nat) (|>> (n.+ <nat>)))) (//.import (constant Nat)) (//.import (shift (-> Nat Nat))) - (def: .public test + (def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/ffi/export.py.lux b/stdlib/source/test/lux/ffi/export.py.lux index 37402fc3b..a0d5dcf16 100644 --- a/stdlib/source/test/lux/ffi/export.py.lux +++ b/stdlib/source/test/lux/ffi/export.py.lux @@ -12,17 +12,17 @@ (with_expansions [<nat> (static.random_nat)] (/.export - (def: constant + (def constant Nat <nat>) - (def: shift + (def shift (-> Nat Nat) (|>> (n.+ <nat>)))) (//.import (constant Nat)) (//.import (shift (-> Nat Nat))) - (def: .public test + (def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/ffi/export.rb.lux b/stdlib/source/test/lux/ffi/export.rb.lux index f107536f2..3b17b4c2c 100644 --- a/stdlib/source/test/lux/ffi/export.rb.lux +++ b/stdlib/source/test/lux/ffi/export.rb.lux @@ -12,16 +12,16 @@ (with_expansions [<nat> (static.random_nat)] (/.export - (def: nullary + (def nullary Nat <nat>) - (def: unary + (def unary (-> Nat Nat) (|>> (n.+ <nat>))) - (def: CONSTANT + (def CONSTANT Nat <nat>) - (def: $global + (def $global (-> Nat Nat) (|>> (n.+ <nat>)))) @@ -30,7 +30,7 @@ (//.import (CONSTANT Nat)) (//.import ($global (-> Nat Nat))) - (def: .public test + (def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/locale.lux b/stdlib/source/test/lux/locale.lux index 0a05619e8..8d114aacd 100644 --- a/stdlib/source/test/lux/locale.lux +++ b/stdlib/source/test/lux/locale.lux @@ -22,22 +22,22 @@ ["[0]" language (.only Language)] ["[0]" territory (.only Territory)]]]) -(def: random_language +(def random_language (Random Language) (random.either (random#in language.afar) (random#in language.zaza))) -(def: random_territory +(def random_territory (Random Territory) (random.either (random#in territory.afghanistan) (random#in territory.zimbabwe))) -(def: random_encoding +(def random_encoding (Random Encoding) (random.either (random#in encoding.ascii) (random#in encoding.koi8_u))) -(def: random_locale +(def random_locale (Random /.Locale) (do random.monad [language ..random_language @@ -45,7 +45,7 @@ encoding ..random_encoding] (in (/.locale language {.#Some territory} {.#Some encoding})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Locale]) diff --git a/stdlib/source/test/lux/locale/language.lux b/stdlib/source/test/lux/locale/language.lux index 8691b1dc4..010328aeb 100644 --- a/stdlib/source/test/lux/locale/language.lux +++ b/stdlib/source/test/lux/locale/language.lux @@ -32,7 +32,7 @@ #test Test])) (with_template [<bundle> <languages>] - [(def: <bundle> + [(def <bundle> Bundle (let [amount (template.amount <languages>) languages (is (List /.Language) @@ -152,7 +152,7 @@ [languages/etc [/.uncoded /.multiple /.undetermined /.not_applicable]] ) -(def: languages +(def languages (List Bundle) (list ..languages/a ..languages/b @@ -184,7 +184,7 @@ ..languages/etc )) -(def: (aggregate lens hash territories) +(def (aggregate lens hash territories) (All (_ a) (-> (-> Bundle (Set a)) (Hash a) (List Bundle) @@ -195,7 +195,7 @@ [0 (set.empty hash)] territories)) -(def: languages_test +(def languages_test Test (|> ..languages list.reversed @@ -213,13 +213,13 @@ )) ))))) -(def: !aliases +(def !aliases (template (_ <reference> <aliases>) [(_.coverage <aliases> (list.every? (at /.equivalence = <reference>) (`` (list (~~ (template.spliced <aliases>))))))])) -(def: aliases_test/0 +(def aliases_test/0 Test (all _.and ... A @@ -243,7 +243,7 @@ (!aliases /.khotanese [/.sakan]) )) -(def: aliases_test/1 +(def aliases_test/1 Test (all _.and ... M @@ -270,14 +270,14 @@ (!aliases /.zaza [/.dimili /.dimli /.kirdki /.kirmanjki /.zazaki]) )) -(def: aliases_test +(def aliases_test Test (all _.and ..aliases_test/0 ..aliases_test/1 )) -(def: .public random +(def .public random (Random /.Language) (let [options (|> ..languages (list#each (|>> (the #languages) set.list)) @@ -287,7 +287,7 @@ random.nat)] (in (maybe.trusted (list.item choice options)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Language]) diff --git a/stdlib/source/test/lux/locale/territory.lux b/stdlib/source/test/lux/locale/territory.lux index a68eaf8f3..8ad7741d7 100644 --- a/stdlib/source/test/lux/locale/territory.lux +++ b/stdlib/source/test/lux/locale/territory.lux @@ -34,7 +34,7 @@ #test Test])) (with_template [<bundle> <territories>] - [(def: <bundle> + [(def <bundle> Bundle (let [amount (template.amount <territories>) territories (`` (list (~~ (template.spliced <territories>))))] @@ -111,7 +111,7 @@ [territories/z [/.zambia /.zimbabwe]] ) -(def: territories +(def territories (List Bundle) (list ..territories/a ..territories/b @@ -139,7 +139,7 @@ ..territories/y ..territories/z)) -(def: (aggregate lens hash territories) +(def (aggregate lens hash territories) (All (_ a) (-> (-> Bundle (Set a)) (Hash a) (List Bundle) @@ -150,7 +150,7 @@ [0 (set.empty hash)] territories)) -(def: territories_test +(def territories_test Test (|> ..territories list.reversed @@ -170,13 +170,13 @@ )) ))))) -(def: !aliases +(def !aliases (template (_ <reference> <aliases>) [(_.coverage <aliases> (list.every? (at /.equivalence = <reference>) (`` (list (~~ (template.spliced <aliases>))))))])) -(def: aliases_test +(def aliases_test Test (all _.and ... A @@ -203,7 +203,7 @@ (!aliases /.wallis [/.futuna]) )) -(def: .public random +(def .public random (Random /.Territory) (let [options (|> ..territories (list#each (|>> (the #territories) set.list)) @@ -213,7 +213,7 @@ random.nat)] (in (maybe.trusted (list.item choice options)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Territory]) diff --git a/stdlib/source/test/lux/macro.lux b/stdlib/source/test/lux/macro.lux index f43fb3d7d..bbedbc302 100644 --- a/stdlib/source/test/lux/macro.lux +++ b/stdlib/source/test/lux/macro.lux @@ -36,37 +36,37 @@ ["[1][0]" template] ["[1][0]" pattern]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> true _ false)])) -(def: !global +(def !global (template (_ <definition>) [(is [Text .Global] [(template.text [<definition>]) {.#Definition [true .Macro <definition>]}])])) -(def: pow/2 +(def pow/2 (syntax (_ [number <code>.any]) (in (list (` (n.* (~ number) (~ number))))))) -(def: pow/4 +(def pow/4 (syntax (_ [number <code>.any]) (in (list (` (..pow/2 (..pow/2 (~ number)))))))) -(def: repeated +(def repeated (syntax (_ [times <code>.nat token <code>.any]) (in (list.repeated times token)))) -(def: fresh_symbol +(def fresh_symbol (syntax (_ []) (do meta.monad [g!fresh (/.symbol "fresh")] (in (list g!fresh))))) -(def: random_lux +(def random_lux (Random [Nat Text .Lux]) (do [! random.monad] [seed random.nat @@ -111,14 +111,14 @@ .#eval (as (-> Type Code (Meta Any)) []) .#host []]]))) -(def: iterated +(def iterated (syntax (_ [cycle <code>.nat it <code>.any]) (in (list (case cycle 0 it _ (` (..iterated (~ (code.nat (-- cycle))) (~ it)))))))) -(def: test|expansion +(def test|expansion Test (do [! random.monad] [[seed symbol_prefix lux] ..random_lux @@ -187,7 +187,7 @@ false)))) )))) -(def: sum +(def sum (macro (_ tokens) (loop (again [tokens tokens output 0]) @@ -201,11 +201,11 @@ _ (meta.failure ""))))) -(def: sum' +(def sum' (macro (_ tokens lux) ((/.function ..sum) tokens lux))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/macro/code.lux b/stdlib/source/test/lux/macro/code.lux index b0479c538..ee22f74ce 100644 --- a/stdlib/source/test/lux/macro/code.lux +++ b/stdlib/source/test/lux/macro/code.lux @@ -27,21 +27,21 @@ [\\library ["[0]" /]]) -(def: random_text +(def random_text (Random Text) (random.alphabetic 10)) -(def: random_symbol +(def random_symbol (Random Symbol) (random.and ..random_text ..random_text)) -(def: (random_sequence random) +(def (random_sequence random) (All (_ a) (-> (Random a) (Random (List a)))) (do [! random.monad] [size (|> random.nat (at ! each (n.% 3)))] (random.list size random))) -(def: .public random +(def .public random (Random Code) (random.rec (function (_ random) @@ -58,7 +58,7 @@ (random#each /.tuple (..random_sequence random)) )))) -(def: (read source_code) +(def (read source_code) (-> Text (Try Code)) (let [parse (syntax.parse "" syntax.no_aliases @@ -72,7 +72,7 @@ {.#Right [end lux_code]} {try.#Success lux_code}))) -(def: (replacement_simulation [original substitute]) +(def (replacement_simulation [original substitute]) (-> [Code Code] (Random [Code Code])) (random.rec (function (_ replacement_simulation) @@ -101,7 +101,7 @@ (for_sequence /.tuple) ))))) -(def: for_format +(def for_format Test (`` (all _.and (~~ (with_template [<coverage> <random> <tag>] @@ -150,7 +150,7 @@ [/.local ..random_text .#Symbol] ))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/macro/local.lux b/stdlib/source/test/lux/macro/local.lux index 5c55670e7..96d883a6e 100644 --- a/stdlib/source/test/lux/macro/local.lux +++ b/stdlib/source/test/lux/macro/local.lux @@ -29,11 +29,11 @@ (/.let [!pow/2 (template (_ <scalar>) [(n.* <scalar> <scalar>)])] - (def: pow/2 + (def pow/2 (-> Nat Nat) (|>> !pow/2))) -(def: macro_error +(def macro_error (syntax (_ [macro <code>.any]) (function (_ compiler) (case ((macro.expansion macro) compiler) @@ -43,13 +43,13 @@ {try.#Success _} {try.#Failure "OOPS!"})))) -(def: (constant output) +(def (constant output) (-> Code Macro) ("lux macro" (function (_ inputs lux) {try.#Success [lux (list output)]}))) -(def: with +(def with (syntax (_ [name (<code>.tuple (<>.and <code>.text <code>.text)) constant <code>.any pre_remove <code>.bit @@ -72,7 +72,7 @@ (macro.full_expansion pre_expansion) (in (list pre_expansion)))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/macro/pattern.lux b/stdlib/source/test/lux/macro/pattern.lux index 53d3435ce..b1047a7ea 100644 --- a/stdlib/source/test/lux/macro/pattern.lux +++ b/stdlib/source/test/lux/macro/pattern.lux @@ -22,12 +22,12 @@ [#left l #right r])) -(def: !pair +(def !pair (template (_ <left> <right>) [[..#left <left> ..#right <right>]])) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/macro/syntax.lux b/stdlib/source/test/lux/macro/syntax.lux index 8c851a778..8af853dbf 100644 --- a/stdlib/source/test/lux/macro/syntax.lux +++ b/stdlib/source/test/lux/macro/syntax.lux @@ -22,13 +22,13 @@ ["[1][0]" type ["[1]/[0]" variable]]]) -(def: +/3 +(def +/3 (/.syntax (_ [a <code>.any b <code>.any c <code>.any]) (in (list (` (all n.+ (~ a) (~ b) (~ c))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/macro/syntax/check.lux b/stdlib/source/test/lux/macro/syntax/check.lux index cb43a209c..5177ef24b 100644 --- a/stdlib/source/test/lux/macro/syntax/check.lux +++ b/stdlib/source/test/lux/macro/syntax/check.lux @@ -19,14 +19,14 @@ ["$[0]" /// ["[1][0]" code]]) -(def: .public random +(def .public random (Random /.Check) (all random.and $///code.random $///code.random )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Check]) diff --git a/stdlib/source/test/lux/macro/syntax/declaration.lux b/stdlib/source/test/lux/macro/syntax/declaration.lux index f6a5a1973..87756b7e3 100644 --- a/stdlib/source/test/lux/macro/syntax/declaration.lux +++ b/stdlib/source/test/lux/macro/syntax/declaration.lux @@ -17,7 +17,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Declaration) (let [word (random.alphabetic 10)] (all random.and @@ -27,7 +27,7 @@ (random.list size word)) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Declaration]) diff --git a/stdlib/source/test/lux/macro/syntax/definition.lux b/stdlib/source/test/lux/macro/syntax/definition.lux index 504ff7e4b..b3fba4489 100644 --- a/stdlib/source/test/lux/macro/syntax/definition.lux +++ b/stdlib/source/test/lux/macro/syntax/definition.lux @@ -24,7 +24,7 @@ ["[1]/" // ["[1][0]" code]]]) -(def: .public random +(def .public random (Random /.Definition) (all random.and (random.alphabetic 5) @@ -33,7 +33,7 @@ random.bit )) -(def: compiler +(def compiler [.#info [.#target "FAKE" .#version "0.0.0" .#mode {.#Build} @@ -53,7 +53,7 @@ .#eval (as (-> Type Code (Meta Any)) []) .#host []]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Definition]) diff --git a/stdlib/source/test/lux/macro/syntax/export.lux b/stdlib/source/test/lux/macro/syntax/export.lux index 3b4e6adb1..f1a4c2ff0 100644 --- a/stdlib/source/test/lux/macro/syntax/export.lux +++ b/stdlib/source/test/lux/macro/syntax/export.lux @@ -18,7 +18,7 @@ [\\library ["[0]" /]]) -(def: export +(def export (Random [(Maybe Code) Nat]) (all random.and (|> random.bit @@ -26,7 +26,7 @@ random.maybe) random.nat)) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/macro/syntax/input.lux b/stdlib/source/test/lux/macro/syntax/input.lux index 6de252987..19c15072d 100644 --- a/stdlib/source/test/lux/macro/syntax/input.lux +++ b/stdlib/source/test/lux/macro/syntax/input.lux @@ -22,14 +22,14 @@ ["$[0]" /// ["[1][0]" code]]) -(def: .public random +(def .public random (Random /.Input) (all random.and $///code.random $///code.random )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Input]) diff --git a/stdlib/source/test/lux/macro/syntax/type/variable.lux b/stdlib/source/test/lux/macro/syntax/type/variable.lux index 55ab5bcc1..e811c8a57 100644 --- a/stdlib/source/test/lux/macro/syntax/type/variable.lux +++ b/stdlib/source/test/lux/macro/syntax/type/variable.lux @@ -15,11 +15,11 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Variable) (random.alphabetic 10)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Variable]) diff --git a/stdlib/source/test/lux/macro/template.lux b/stdlib/source/test/lux/macro/template.lux index 715a0dbe2..ee2176248 100644 --- a/stdlib/source/test/lux/macro/template.lux +++ b/stdlib/source/test/lux/macro/template.lux @@ -24,11 +24,11 @@ (/.let [(!pow/2 <scalar>) [(nat.* <scalar> <scalar>)]] - (def: pow/2 + (def pow/2 (-> Nat Nat) (|>> !pow/2))) -(def: macro_error +(def macro_error (syntax (_ [macro <code>.any]) (function (_ compiler) (case ((macro.expansion macro) compiler) @@ -38,7 +38,7 @@ {try.#Success _} {try.#Failure "OOPS!"})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/math.lux b/stdlib/source/test/lux/math.lux index 3695f4be8..4d3464ef6 100644 --- a/stdlib/source/test/lux/math.lux +++ b/stdlib/source/test/lux/math.lux @@ -28,15 +28,15 @@ ["[1]/[0]" continuous] ["[1]/[0]" fuzzy]]]) -(def: ratio/0 +(def ratio/0 Ratio [ratio.#numerator 0 ratio.#denominator 1]) -(def: complex/0 +(def complex/0 Complex [complex.#real +0.0 complex.#imaginary +0.0]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/math/infix.lux b/stdlib/source/test/lux/math/infix.lux index 441df11b9..badd95dc1 100644 --- a/stdlib/source/test/lux/math/infix.lux +++ b/stdlib/source/test/lux/math/infix.lux @@ -14,7 +14,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/math/logic/continuous.lux b/stdlib/source/test/lux/math/logic/continuous.lux index b4c4614e5..fd4c1d97f 100644 --- a/stdlib/source/test/lux/math/logic/continuous.lux +++ b/stdlib/source/test/lux/math/logic/continuous.lux @@ -13,7 +13,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/math/logic/fuzzy.lux b/stdlib/source/test/lux/math/logic/fuzzy.lux index 9ea59ccd4..8aeab5de4 100644 --- a/stdlib/source/test/lux/math/logic/fuzzy.lux +++ b/stdlib/source/test/lux/math/logic/fuzzy.lux @@ -23,7 +23,7 @@ ["/[1]" // ["[1]" continuous]]]]) -(def: trivial +(def trivial Test (do random.monad [sample random.rev] @@ -34,7 +34,7 @@ (r.= //.true (/.full sample))) ))) -(def: simple +(def simple Test (do [! random.monad] [sample random.rev @@ -81,7 +81,7 @@ (/.membership set sample)))) ))) -(def: composition +(def composition Test (do [! random.monad] [sample random.rev @@ -163,7 +163,7 @@ (/.membership (/.difference bottom_set top_set) sample))))) ))) -(def: geometric +(def geometric Test (<| (_.covering /._) (_.for [/.Fuzzy]) @@ -287,7 +287,7 @@ inside_inner_range!))) )))) -(def: discrete +(def discrete Test (do random.monad [threshold random.nat @@ -304,7 +304,7 @@ (set.member? set sample)))) ))) -(def: gradient +(def gradient (Random [[Rev Rev] (Fuzzy Rev)]) (do random.monad [sample random.rev @@ -317,7 +317,7 @@ (in [[bottom top] (/.gradient bottom top)]))) -(def: threshold +(def threshold Test (do random.monad [[_ set] ..gradient @@ -332,7 +332,7 @@ (r.< threshold (/.membership set sample)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Fuzzy]) @@ -341,7 +341,7 @@ [_ fuzzy] ..gradient .let [equivalence (is (Equivalence (/.Fuzzy Rev)) (implementation - (def: (= left right) + (def (= left right) (r.= (left sample) (right sample)))))]] (all _.and diff --git a/stdlib/source/test/lux/math/modular.lux b/stdlib/source/test/lux/math/modular.lux index 76098ff66..bccbdc3e0 100644 --- a/stdlib/source/test/lux/math/modular.lux +++ b/stdlib/source/test/lux/math/modular.lux @@ -28,13 +28,13 @@ ["/[1]" // ["[1]" modulus]]]]) -(def: .public (random modulus) +(def .public (random modulus) (All (_ %) (-> (//.Modulus %) (Random (/.Mod %)))) (at random.monad each (/.modular modulus) random.int)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Mod]) diff --git a/stdlib/source/test/lux/math/modulus.lux b/stdlib/source/test/lux/math/modulus.lux index a3f26cdf5..c360ffd2d 100644 --- a/stdlib/source/test/lux/math/modulus.lux +++ b/stdlib/source/test/lux/math/modulus.lux @@ -18,7 +18,7 @@ [\\library ["[0]" /]]) -(def: |divisor| +(def |divisor| (syntax (_ []) (do meta.monad [divisor meta.seed] @@ -26,13 +26,13 @@ 0 +1 _ (.int divisor)))))))) -(def: .public (random range) +(def .public (random range) (Ex (_ %) (-> Int (Random (/.Modulus %)))) (|> random.int (at random.monad each (i.% range)) (random.one (|>> /.modulus try.maybe)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Modulus]) diff --git a/stdlib/source/test/lux/math/number.lux b/stdlib/source/test/lux/math/number.lux index 9d8b8ce52..d5f49461e 100644 --- a/stdlib/source/test/lux/math/number.lux +++ b/stdlib/source/test/lux/math/number.lux @@ -24,11 +24,11 @@ ["[1][0]" ratio] ["[1][0]" complex]]) -(def: clean_commas +(def clean_commas (-> Text Text) (text.replaced "," "")) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/math/number/complex.lux b/stdlib/source/test/lux/math/number/complex.lux index ee1a6e210..2790964d4 100644 --- a/stdlib/source/test/lux/math/number/complex.lux +++ b/stdlib/source/test/lux/math/number/complex.lux @@ -19,10 +19,10 @@ ["[0]" int]]]]) ... This margin of error is necessary because floating-point arithmetic is not exact. -(def: margin_of_error +(def margin_of_error +0.000000001) -(def: dimension +(def dimension (Random Frac) (do [! random.monad] [factor (|> random.nat (at ! each (|>> (n.% 1000) (n.max 1)))) @@ -30,21 +30,21 @@ (in (f.* (|> factor .int int.frac) measure)))) -(def: .public random +(def .public random (Random /.Complex) (do random.monad [real ..dimension imaginary ..dimension] (in (/.complex real imaginary)))) -(def: angle +(def angle (Random /.Complex) (at random.monad each (|>> (revised /.#real (f.% +1.0)) (revised /.#imaginary (f.% +1.0))) ..random)) -(def: construction +(def construction Test (do random.monad [real ..dimension @@ -66,7 +66,7 @@ (/.not_a_number? (/.complex real f.not_a_number)))) ))) -(def: constant +(def constant Test (do random.monad [sample ..random @@ -88,7 +88,7 @@ (/.* /.i (/.* /.i sample))))) ))) -(def: absolute_value&argument +(def absolute_value&argument Test (do random.monad [real ..dimension @@ -122,7 +122,7 @@ (/.exp (/.* /.i (/.complex (/.argument sample))))))))) ))) -(def: number +(def number Test (do random.monad [x ..random @@ -165,7 +165,7 @@ (|> quotient (/.* y) (/.+ rem))))) ))) -(def: conjugate&reciprocal&signum&negation +(def conjugate&reciprocal&signum&negation Test (do random.monad [x ..random] @@ -204,12 +204,12 @@ absolute!))) ))) -(def: (trigonometric_symmetry forward backward angle) +(def (trigonometric_symmetry forward backward angle) (-> (-> /.Complex /.Complex) (-> /.Complex /.Complex) /.Complex Bit) (let [normal (|> angle forward backward)] (|> normal forward backward (/.approximately? ..margin_of_error normal)))) -(def: trigonometry +(def trigonometry Test (do [! random.monad] [angle ..angle] @@ -221,7 +221,7 @@ (_.coverage [/.tan /.atan] (trigonometric_symmetry /.tan /.atan angle))))) -(def: hyperbolic +(def hyperbolic Test (do [! random.monad] [angle ..angle] @@ -240,7 +240,7 @@ (/.tanh angle))) ))) -(def: exponentiation&logarithm +(def exponentiation&logarithm Test (do random.monad [x ..random] @@ -253,7 +253,7 @@ (|> x /.log /.exp (/.approximately? ..margin_of_error x))) ))) -(def: root +(def root Test (do [! random.monad] [sample ..random @@ -264,7 +264,7 @@ (list#each (/.pow' (|> degree .int int.frac))) (list.every? (/.approximately? ..margin_of_error sample)))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Complex]) diff --git a/stdlib/source/test/lux/math/number/frac.lux b/stdlib/source/test/lux/math/number/frac.lux index 88862c47f..9c97d2835 100644 --- a/stdlib/source/test/lux/math/number/frac.lux +++ b/stdlib/source/test/lux/math/number/frac.lux @@ -26,11 +26,11 @@ ["r" rev] ["[0]" i64]]]]) -(def: random +(def random (Random Frac) (at random.monad each (|>> (i.% +1,000,000) i.frac) random.int)) -(def: constant +(def constant Test (do random.monad [sample random.safe_frac] @@ -50,7 +50,7 @@ (/.not_a_number? sample))))) ))) -(def: predicate +(def predicate Test (do [! random.monad] [sample ..random @@ -75,7 +75,7 @@ (/.number? sample))) ))) -(def: conversion +(def conversion Test (all _.and (do [! random.monad] @@ -93,7 +93,7 @@ (|> expected r.frac /.rev (r.= expected)))) )) -(def: signature +(def signature Test (`` (all _.and (_.for [/.equivalence /.=] @@ -128,15 +128,15 @@ @.jvm (these <jvm>) (these))) -(def: margin_of_error +(def margin_of_error +0.0000001) -(def: (trigonometric_symmetry forward backward angle) +(def (trigonometric_symmetry forward backward angle) (-> (-> Frac Frac) (-> Frac Frac) Frac Bit) (let [normal (|> angle forward backward)] (|> normal forward backward (/.approximately? ..margin_of_error normal)))) -(def: test|math +(def test|math Test (all _.and (do [! random.monad] @@ -270,7 +270,7 @@ (|> (/.factorial of) (n.% of) (n.= 0))))) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Frac]) diff --git a/stdlib/source/test/lux/math/number/i16.lux b/stdlib/source/test/lux/math/number/i16.lux index d8ee85c4a..9fbc74498 100644 --- a/stdlib/source/test/lux/math/number/i16.lux +++ b/stdlib/source/test/lux/math/number/i16.lux @@ -14,11 +14,11 @@ ["i" int] ["[1][0]" i64]]]]) -(def: .public random +(def .public random (Random /.I16) (at random.functor each /.i16 random.i64)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.I16]) diff --git a/stdlib/source/test/lux/math/number/i32.lux b/stdlib/source/test/lux/math/number/i32.lux index 189e79b06..43b9d3547 100644 --- a/stdlib/source/test/lux/math/number/i32.lux +++ b/stdlib/source/test/lux/math/number/i32.lux @@ -14,11 +14,11 @@ ["i" int] ["[1][0]" i64]]]]) -(def: .public random +(def .public random (Random /.I32) (at random.functor each /.i32 random.i64)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.I32]) diff --git a/stdlib/source/test/lux/math/number/i64.lux b/stdlib/source/test/lux/math/number/i64.lux index 75324e869..c389f5119 100644 --- a/stdlib/source/test/lux/math/number/i64.lux +++ b/stdlib/source/test/lux/math/number/i64.lux @@ -18,7 +18,7 @@ ["n" nat] ["i" int]]]]) -(def: bit +(def bit Test (do [! random.monad] [pattern random.nat @@ -42,7 +42,7 @@ (/#= /.false (/.and (/.bit idx) pattern)))) ))) -(def: shift +(def shift Test (do [! random.monad] [pattern random.nat] @@ -69,7 +69,7 @@ movement!)))) ))) -(def: mask +(def mask Test (<| (_.for [/.Mask]) (do [! random.monad] @@ -118,7 +118,7 @@ (/.and (/.region offset size) pattern))))) )))) -(def: sub +(def sub Test (_.for [/.Sub] (do [! random.monad] @@ -146,7 +146,7 @@ (/#= expected actual))) )))))) -(def: signature +(def signature Test (all _.and (_.for [/.equivalence] @@ -159,7 +159,7 @@ ($monoid.spec n.equivalence /.conjunction random.nat)) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.I64]) diff --git a/stdlib/source/test/lux/math/number/i8.lux b/stdlib/source/test/lux/math/number/i8.lux index edf503bf9..851d6aef7 100644 --- a/stdlib/source/test/lux/math/number/i8.lux +++ b/stdlib/source/test/lux/math/number/i8.lux @@ -14,11 +14,11 @@ ["i" int] ["[1][0]" i64]]]]) -(def: .public random +(def .public random (Random /.I8) (at random.functor each /.i8 random.i64)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.I8]) diff --git a/stdlib/source/test/lux/math/number/int.lux b/stdlib/source/test/lux/math/number/int.lux index 8f451d37e..9e343f98a 100644 --- a/stdlib/source/test/lux/math/number/int.lux +++ b/stdlib/source/test/lux/math/number/int.lux @@ -23,7 +23,7 @@ ["f" frac] ["[0]" i64]]]]) -(def: signature +(def signature Test (`` (all _.and (_.for [/.equivalence /.=] @@ -54,7 +54,7 @@ )) ))) -(def: predicate +(def predicate Test (do [! random.monad] [sample random.int] @@ -73,7 +73,7 @@ (not (/.odd? sample)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Int]) diff --git a/stdlib/source/test/lux/math/number/nat.lux b/stdlib/source/test/lux/math/number/nat.lux index a29ce19a3..9d70c9702 100644 --- a/stdlib/source/test/lux/math/number/nat.lux +++ b/stdlib/source/test/lux/math/number/nat.lux @@ -21,7 +21,7 @@ [// ["f" frac]]]]) -(def: signature +(def signature Test (`` (all _.and (_.for [/.equivalence /.=] @@ -52,7 +52,7 @@ )) ))) -(def: predicate +(def predicate Test (do [! random.monad] [sample random.nat] @@ -62,7 +62,7 @@ (not (/.odd? sample)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Nat]) diff --git a/stdlib/source/test/lux/math/number/ratio.lux b/stdlib/source/test/lux/math/number/ratio.lux index 536ce838c..147853cf7 100644 --- a/stdlib/source/test/lux/math/number/ratio.lux +++ b/stdlib/source/test/lux/math/number/ratio.lux @@ -20,13 +20,13 @@ [// ["n" nat (.open: "[1]#[0]" equivalence)]]]]) -(def: part +(def part (Random Nat) (at random.monad each (|>> (n.% 1,000,000) (n.max 1)) random.nat)) -(def: .public random +(def .public random (Random /.Ratio) (do random.monad [numerator ..part @@ -34,7 +34,7 @@ ..part)] (in (/.ratio numerator denominator)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Ratio]) diff --git a/stdlib/source/test/lux/math/number/rev.lux b/stdlib/source/test/lux/math/number/rev.lux index b7403a4f2..932ab3e25 100644 --- a/stdlib/source/test/lux/math/number/rev.lux +++ b/stdlib/source/test/lux/math/number/rev.lux @@ -23,7 +23,7 @@ ["f" frac] ["[0]" i64 (.open: "[1]#[0]" hash)]]]]) -(def: signature +(def signature Test (`` (all _.and (_.for [/.equivalence /.=] @@ -53,7 +53,7 @@ )) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Rev]) diff --git a/stdlib/source/test/lux/meta.lux b/stdlib/source/test/lux/meta.lux index bd253b16c..2b99ba948 100644 --- a/stdlib/source/test/lux/meta.lux +++ b/stdlib/source/test/lux/meta.lux @@ -38,13 +38,13 @@ ["[1][0]" configuration] ["[1][0]" version]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> true _ false)])) -(def: compiler_related +(def compiler_related Test (do random.monad [target (random.upper_case 1) @@ -105,7 +105,7 @@ (same? configuration it))))) ))) -(def: error_handling +(def error_handling Test (do random.monad [target (random.upper_case 1) @@ -191,7 +191,7 @@ (same? expected actual)))))) ))) -(def: module_related +(def module_related Test (do random.monad [target (random.upper_case 1) @@ -302,14 +302,14 @@ (same? expected_short actual_short))))))) )))) -(def: random_location +(def random_location (Random Location) (all random.and (random.upper_case 1) random.nat random.nat)) -(def: context_related +(def context_related (do [! random.monad] [target (random.upper_case 1) version (random.upper_case 1) @@ -373,7 +373,7 @@ (try.else false))) ))) -(def: definition_related +(def definition_related Test (do [! random.monad] [expected_current_module (random.upper_case 1) @@ -383,7 +383,7 @@ expected_type (at ! each (function (_ name) {.#Primitive name (list)}) (random.upper_case 1)) - expected_value (random.either (in .def:) + expected_value (random.either (in .def) (in .macro)) .let [expected_lux (is (-> Bit (Maybe Type) @@ -488,7 +488,7 @@ )))) ))) -(def: search_related +(def search_related Test (do [! random.monad] [expected_exported? random.bit @@ -499,7 +499,7 @@ expected_type (at ! each (function (_ name) {.#Primitive name (list)}) (random.upper_case 1)) - expected_value (random.either (in .def:) + expected_value (random.either (in .def) (in .macro)) .let [expected_lux (is (-> Bit (Maybe Type) @@ -662,7 +662,7 @@ alias!))) ))) -(def: label_related +(def label_related Test (do [! random.monad] [current_module (random.upper_case 1) @@ -801,7 +801,7 @@ ))))) ))) -(def: locals_related +(def locals_related Test (do [! random.monad] [current_module (random.upper_case 1) @@ -927,11 +927,11 @@ (try.else false)))) ))) -(def: injection +(def injection (Injection Meta) (at /.monad in)) -(def: (comparison init) +(def (comparison init) (-> Lux (Comparison Meta)) (function (_ == left right) (case [(/.result init left) @@ -942,7 +942,7 @@ _ false))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Meta .Lux]) diff --git a/stdlib/source/test/lux/meta/configuration.lux b/stdlib/source/test/lux/meta/configuration.lux index ce22166b8..ff85808b5 100644 --- a/stdlib/source/test/lux/meta/configuration.lux +++ b/stdlib/source/test/lux/meta/configuration.lux @@ -26,7 +26,7 @@ [\\library ["[0]" /]]) -(def: .public (random amount) +(def .public (random amount) (-> Nat (Random /.Configuration)) (case amount 0 (random#in /.empty) @@ -36,7 +36,7 @@ (at ! each (|>> (list.partial [feature value])) (random (-- amount)))))) -(def: failure +(def failure (syntax (_ [it <code>.any]) (function (_ lux) (case (macro.expansion it lux) @@ -46,7 +46,7 @@ {try.#Success _} {try.#Failure ""})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Configuration]) diff --git a/stdlib/source/test/lux/meta/location.lux b/stdlib/source/test/lux/meta/location.lux index 36de9909c..5016b6aca 100644 --- a/stdlib/source/test/lux/meta/location.lux +++ b/stdlib/source/test/lux/meta/location.lux @@ -16,7 +16,7 @@ [macro ["[1][0]" code]]]) -(def: .public random +(def .public random (Random Location) (all random.and (random.alphabetic 10) @@ -24,7 +24,7 @@ random.nat )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [.Location]) diff --git a/stdlib/source/test/lux/meta/symbol.lux b/stdlib/source/test/lux/meta/symbol.lux index 76bbb76c6..3e279949b 100644 --- a/stdlib/source/test/lux/meta/symbol.lux +++ b/stdlib/source/test/lux/meta/symbol.lux @@ -20,12 +20,12 @@ [\\library ["[0]" /]]) -(def: .public (random module_size short_size) +(def .public (random module_size short_size) (-> Nat Nat (Random Symbol)) (random.and (random.alphabetic module_size) (random.alphabetic short_size))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/meta/version.lux b/stdlib/source/test/lux/meta/version.lux index 3a59251de..6767da8dd 100644 --- a/stdlib/source/test/lux/meta/version.lux +++ b/stdlib/source/test/lux/meta/version.lux @@ -23,7 +23,7 @@ [\\library ["[0]" /]]) -(def: failure +(def failure (syntax (_ [it <code>.any]) (function (_ lux) (case (macro.expansion it lux) @@ -33,7 +33,7 @@ {try.#Success _} {try.#Failure ""})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (with_expansions [<current> (/.current) diff --git a/stdlib/source/test/lux/program.lux b/stdlib/source/test/lux/program.lux index 7e3430387..91078279e 100644 --- a/stdlib/source/test/lux/program.lux +++ b/stdlib/source/test/lux/program.lux @@ -21,13 +21,13 @@ [\\library ["[0]" /]]) -(def: actual_program +(def actual_program (syntax (_ [actual_program (<| <code>.form (<>.after (<code>.this_text "lux def program")) <code>.any)]) (in (list actual_program)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/static.lux b/stdlib/source/test/lux/static.lux index acaac3bda..ebc642bb7 100644 --- a/stdlib/source/test/lux/static.lux +++ b/stdlib/source/test/lux/static.lux @@ -21,7 +21,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (for @.old (_.property "PLACEHOLDER" true)) diff --git a/stdlib/source/test/lux/target.lux b/stdlib/source/test/lux/target.lux index 538499f33..549a9059f 100644 --- a/stdlib/source/test/lux/target.lux +++ b/stdlib/source/test/lux/target.lux @@ -23,19 +23,19 @@ /.php /.r /.scheme)] - (def: all + (def all (List /.Target) (list <targets>)) - (def: unique + (def unique (Set /.Target) (set.of_list text.hash ..all)) - (def: verdict + (def verdict (n.= (list.size ..all) (set.size ..unique))) - (def: .public test + (def .public test Test (<| (_.covering /._) (_.for [/.Target]) diff --git a/stdlib/source/test/lux/target/js.lux b/stdlib/source/test/lux/target/js.lux index dfdc02ab0..82462679f 100644 --- a/stdlib/source/test/lux/target/js.lux +++ b/stdlib/source/test/lux/target/js.lux @@ -29,7 +29,7 @@ [\\library ["[0]" /]]) -(def: (eval code) +(def (eval code) (-> /.Expression (Try (Maybe Any))) ... Note: I have to call "eval" this way ... in order to avoid a quirk of calling eval in Node @@ -39,7 +39,7 @@ {.#None} {.#Some return})))) -(def: (expression ??? it) +(def (expression ??? it) (-> (-> Any Bit) /.Expression Bit) (|> it ..eval @@ -48,10 +48,10 @@ (try.else false))) (with_template [<range>] - [(`` (def: (~~ (template.symbol ["as_int_" <range>])) + [(`` (def (~~ (template.symbol ["as_int_" <range>])) (-> Int Int) (|>> (i64.and (static.nat (-- (i64.left_shifted <range> 1))))))) - (`` (def: (~~ (template.symbol ["int_" <range>])) + (`` (def (~~ (template.symbol ["int_" <range>])) (Random Int) (do [! random.monad] [negative? random.bit @@ -66,7 +66,7 @@ [32] ) -(def: test|literal +(def test|literal Test (do [! random.monad] [boolean random.bit @@ -96,7 +96,7 @@ (/.string string))) ))) -(def: test|boolean +(def test|boolean Test (do [! random.monad] [left random.bit @@ -116,7 +116,7 @@ (/.not (/.boolean left)))) )))) -(def: test|number +(def test|number Test (do [! random.monad] [parameter (random.only (|>> (f.= +0.0) not) @@ -149,7 +149,7 @@ )) )))) -(def: test|i32 +(def test|i32 Test (do [! random.monad] [left ..int_32 @@ -202,7 +202,7 @@ (/.bit_not (/.i32 i32))))) )))) -(def: test|array +(def test|array Test (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat) @@ -222,7 +222,7 @@ (/.= /.undefined))))) ))) -(def: test|object +(def test|object Test (do [! random.monad] [expected random.safe_frac @@ -251,7 +251,7 @@ (/.= /.undefined)))) ))) -(def: test|computation +(def test|computation Test (do [! random.monad] [test random.bit @@ -303,7 +303,7 @@ (/.number then)))) ))) -(def: test|expression +(def test|expression Test (do [! random.monad] [dummy random.safe_frac @@ -318,7 +318,7 @@ (/., (/.number dummy) (/.number expected)))) )))) -(def: test/var +(def test/var Test (do [! random.monad] [number/0 random.safe_frac @@ -351,7 +351,7 @@ (list (/.number number/0))))) ))) -(def: test/location +(def test/location Test (do [! random.monad] [number/0 random.safe_frac @@ -442,7 +442,7 @@ ..test/var) ))) -(def: test|label +(def test|label Test (do [! random.monad] [input ..int_16 @@ -549,7 +549,7 @@ )) ))) -(def: test|loop +(def test|loop Test (do [! random.monad] [input ..int_16 @@ -601,7 +601,7 @@ ..test|label) ))) -(def: test|exception +(def test|exception Test (do [! random.monad] [expected random.safe_frac @@ -625,7 +625,7 @@ (list)))) ))) -(def: test|apply +(def test|apply Test (do [! random.monad] [number/0 random.safe_frac @@ -658,7 +658,7 @@ (/.number number/2))))) )))) -(def: test|function +(def test|function Test (do [! random.monad] [number/0 random.safe_frac @@ -701,7 +701,7 @@ ..test|apply ))) -(def: test|branching +(def test|branching Test (do [! random.monad] [number/0 random.safe_frac @@ -762,7 +762,7 @@ ))) ))) -(def: test|statement +(def test|statement Test (do [! random.monad] [number/0 random.safe_frac @@ -832,7 +832,7 @@ ..test|loop) )))) -(def: .public test +(def .public test Test (do [! random.monad] [] diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index 3b9ad317c..322631e71 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -54,7 +54,7 @@ ["[1][0]" type (.only Type) ["[0]" category (.only Value Object Class)]]]]) -(def: method_modifier +(def method_modifier (all /modifier#composite /method.public /method.static)) @@ -100,7 +100,7 @@ (getClass [] (java/lang/Class java/lang/Object)) (toString [] java/lang/String)) -(def: class_name +(def class_name (Random Text) (do random.monad [super_package (random.lower_case 10) @@ -110,15 +110,15 @@ /name.external_separator package /name.external_separator name)))) -(def: (get_method name class) +(def (get_method name class) (-> Text (java/lang/Class java/lang/Object) java/lang/reflect/Method) (java/lang/Class::getDeclaredMethod (ffi.as_string name) (ffi.array (java/lang/Class java/lang/Object) 0) class)) -(def: $Object (/type.class "java.lang.Object" (list))) +(def $Object (/type.class "java.lang.Object" (list))) -(def: (bytecode test bytecode) +(def (bytecode test bytecode) (-> (-> Any Bit) (Bytecode Any) (Random Bit)) (do random.monad [class_name ..class_name @@ -158,19 +158,19 @@ #random (Random a) #literal (-> a (Bytecode Any))])) -(def: $Boolean +(def $Boolean (/type.class "java.lang.Boolean" (list))) -(def: $Boolean::wrap +(def $Boolean::wrap (/.invokestatic ..$Boolean "valueOf" (/type.method [(list) (list /type.boolean) ..$Boolean (list)]))) -(def: $Boolean::random (as (Random java/lang/Boolean) random.bit)) -(def: !false (|> 0 .i64 i32.i32 /.int)) -(def: !true (|> 1 .i64 i32.i32 /.int)) -(def: ($Boolean::literal value) +(def $Boolean::random (as (Random java/lang/Boolean) random.bit)) +(def !false (|> 0 .i64 i32.i32 /.int)) +(def !true (|> 1 .i64 i32.i32 /.int)) +(def ($Boolean::literal value) (-> java/lang/Boolean (Bytecode Any)) (if (as Bit value) ..!true ..!false)) -(def: $Boolean::primitive +(def $Boolean::primitive (Primitive java/lang/Boolean) [#unboxed /type.boolean #boxed ..$Boolean @@ -178,17 +178,17 @@ #random ..$Boolean::random #literal ..$Boolean::literal]) -(def: $Byte +(def $Byte (/type.class "java.lang.Byte" (list))) -(def: $Byte::wrap +(def $Byte::wrap (/.invokestatic ..$Byte "valueOf" (/type.method [(list) (list /type.byte) ..$Byte (list)]))) -(def: $Byte::random +(def $Byte::random (Random java/lang/Byte) (at random.monad each (|>> (as java/lang/Long) ffi.long_to_byte) random.int)) -(def: $Byte::literal +(def $Byte::literal (-> java/lang/Byte (Bytecode Any)) (|>> ffi.byte_to_long (as I64) i32.i32 /.int)) -(def: $Byte::primitive +(def $Byte::primitive (Primitive java/lang/Byte) [#unboxed /type.byte #boxed ..$Byte @@ -196,17 +196,17 @@ #random ..$Byte::random #literal ..$Byte::literal]) -(def: $Short +(def $Short (/type.class "java.lang.Short" (list))) -(def: $Short::wrap +(def $Short::wrap (/.invokestatic ..$Short "valueOf" (/type.method [(list) (list /type.short) ..$Short (list)]))) -(def: $Short::random +(def $Short::random (Random java/lang/Short) (at random.monad each (|>> (as java/lang/Long) ffi.long_to_short) random.int)) -(def: $Short::literal +(def $Short::literal (-> java/lang/Short (Bytecode Any)) (|>> ffi.short_to_long (as I64) i32.i32 /.int)) -(def: $Short::primitive +(def $Short::primitive (Primitive java/lang/Short) [#unboxed /type.short #boxed ..$Short @@ -214,17 +214,17 @@ #random ..$Short::random #literal ..$Short::literal]) -(def: $Integer +(def $Integer (/type.class "java.lang.Integer" (list))) -(def: $Integer::wrap +(def $Integer::wrap (/.invokestatic ..$Integer "valueOf" (/type.method [(list) (list /type.int) ..$Integer (list)]))) -(def: $Integer::random +(def $Integer::random (Random java/lang/Integer) (at random.monad each (|>> (as java/lang/Long) ffi.long_to_int) random.int)) -(def: $Integer::literal +(def $Integer::literal (-> java/lang/Integer (Bytecode Any)) (|>> ffi.int_to_long (as I64) i32.i32 /.int)) -(def: $Integer::primitive +(def $Integer::primitive (Primitive java/lang/Integer) [#unboxed /type.int #boxed ..$Integer @@ -232,11 +232,11 @@ #random ..$Integer::random #literal ..$Integer::literal]) -(def: $Long (/type.class "java.lang.Long" (list))) -(def: $Long::wrap (/.invokestatic ..$Long "valueOf" (/type.method [(list) (list /type.long) ..$Long (list)]))) -(def: $Long::random (as (Random java/lang/Long) random.int)) -(def: $Long::literal (-> java/lang/Long (Bytecode Any)) (|>> (as Int) /.long)) -(def: $Long::primitive +(def $Long (/type.class "java.lang.Long" (list))) +(def $Long::wrap (/.invokestatic ..$Long "valueOf" (/type.method [(list) (list /type.long) ..$Long (list)]))) +(def $Long::random (as (Random java/lang/Long) random.int)) +(def $Long::literal (-> java/lang/Long (Bytecode Any)) (|>> (as Int) /.long)) +(def $Long::primitive (Primitive java/lang/Long) [#unboxed /type.long #boxed ..$Long @@ -244,19 +244,19 @@ #random ..$Long::random #literal ..$Long::literal]) -(def: $Float (/type.class "java.lang.Float" (list))) -(def: $Float::wrap (/.invokestatic ..$Float "valueOf" (/type.method [(list) (list /type.float) ..$Float (list)]))) -(def: $Float::random +(def $Float (/type.class "java.lang.Float" (list))) +(def $Float::wrap (/.invokestatic ..$Float "valueOf" (/type.method [(list) (list /type.float) ..$Float (list)]))) +(def $Float::random (Random java/lang/Float) (at random.monad each (|>> (as java/lang/Double) ffi.double_to_float) random.frac)) -(def: $Float::literal /.float) -(def: valid_float +(def $Float::literal /.float) +(def valid_float (Random java/lang/Float) (random.only (|>> ffi.float_to_double (as Frac) f.not_a_number? not) ..$Float::random)) -(def: $Float::primitive +(def $Float::primitive (Primitive java/lang/Float) [#unboxed /type.float #boxed ..$Float @@ -264,17 +264,17 @@ #random ..valid_float #literal ..$Float::literal]) -(def: $Double (/type.class "java.lang.Double" (list))) -(def: $Double::wrap (/.invokestatic ..$Double "valueOf" (/type.method [(list) (list /type.double) ..$Double (list)]))) -(def: $Double::random (as (Random java/lang/Double) random.frac)) -(def: $Double::literal +(def $Double (/type.class "java.lang.Double" (list))) +(def $Double::wrap (/.invokestatic ..$Double "valueOf" (/type.method [(list) (list /type.double) ..$Double (list)]))) +(def $Double::random (as (Random java/lang/Double) random.frac)) +(def $Double::literal (-> java/lang/Double (Bytecode Any)) /.double) -(def: valid_double +(def valid_double (Random java/lang/Double) (random.only (|>> (as Frac) f.not_a_number? not) ..$Double::random)) -(def: $Double::primitive +(def $Double::primitive (Primitive java/lang/Double) [#unboxed /type.double #boxed ..$Double @@ -282,17 +282,17 @@ #random ..valid_double #literal ..$Double::literal]) -(def: $Character +(def $Character (/type.class "java.lang.Character" (list))) -(def: $Character::wrap +(def $Character::wrap (/.invokestatic ..$Character "valueOf" (/type.method [(list) (list /type.char) ..$Character (list)]))) -(def: $Character::random +(def $Character::random (Random java/lang/Character) (at random.monad each (|>> (as java/lang/Long) ffi.long_to_int ffi.int_to_char) random.int)) -(def: $Character::literal +(def $Character::literal (-> java/lang/Character (Bytecode Any)) (|>> ffi.char_to_long (as I64) i32.i32 /.int)) -(def: $Character::primitive +(def $Character::primitive (Primitive java/lang/Character) [#unboxed /type.char #boxed ..$Character @@ -300,18 +300,18 @@ #random ..$Character::random #literal ..$Character::literal]) -(def: $String +(def $String (/type.class "java.lang.String" (list))) -(def: $String::random +(def $String::random (as (Random java/lang/String) (random.alphabetic 10))) -(def: $String::literal +(def $String::literal (-> java/lang/String (Bytecode Any)) (|>> (as Text) /.string)) -(def: $String::primitive +(def $String::primitive (Primitive java/lang/String) [#unboxed ..$String #boxed ..$String @@ -320,7 +320,7 @@ #literal ..$String::literal]) (with_template [<name> <bits> <type> <push> <wrap> <message> <to_long> <signed>] - [(def: <name> + [(def <name> Test (do [! random.monad] [expected (at ! each (i64.and (i64.mask <bits>)) random.nat)] @@ -339,7 +339,7 @@ ) (with_template [<name> <type>] - [(def: <name> + [(def <name> (template (_ <old_extension> <new_extension>) [(is (-> <type> <type> <type>) (function (_ parameter subject) @@ -357,7 +357,7 @@ [double/2 java/lang/Double] ) -(def: int+long/2 +(def int+long/2 (template (_ <old_extension> <new_extension>) [(is (-> java/lang/Integer java/lang/Long java/lang/Long) (function (_ parameter subject) @@ -369,7 +369,7 @@ (<new_extension> ("jvm object cast" parameter) ("jvm object cast" subject))))))])) -(def: int +(def int Test (let [int (is (-> java/lang/Integer (Bytecode Any) (Random Bit)) (function (_ expected bytecode) @@ -450,7 +450,7 @@ bitwise) ))) -(def: long +(def long Test (let [long (is (-> java/lang/Long (Bytecode Any) (Random Bit)) (function (_ expected bytecode) @@ -549,7 +549,7 @@ comparison) ))) -(def: float +(def float Test (let [float (is (-> java/lang/Float (Bytecode Any) (Random Bit)) (function (_ expected bytecode) @@ -650,7 +650,7 @@ comparison) ))) -(def: double +(def double Test (let [double (is (-> java/lang/Double (Bytecode Any) (Random Bit)) (function (_ expected bytecode) @@ -745,7 +745,7 @@ comparison) ))) -(def: primitive +(def primitive Test (all _.and (<| (_.context "byte") @@ -762,7 +762,7 @@ ..double) )) -(def: object +(def object Test (let [!object (is (Bytecode Any) (do /.monad @@ -803,7 +803,7 @@ ..$Boolean::wrap)) ))) -(def: method +(def method Test (all _.and (<| (_.lifted "INVOKESTATIC") @@ -852,7 +852,7 @@ ..$Long::wrap)) )) -(def: field +(def field Test (do random.monad [class_name ..class_name @@ -924,7 +924,7 @@ {try.#Failure error} false)))) -(def: array +(def array Test (let [!length (is (-> Nat (Bytecode Any)) (function (_ size) @@ -1058,7 +1058,7 @@ $Long::wrap)))) ))) -(def: !::= +(def !::= (template (_ <type> <old> <new>) [(is (-> <type> Any Bit) (function (_ expected) @@ -1068,7 +1068,7 @@ @.jvm (|>> (as <type>) "jvm object cast" (<new> ("jvm object cast" (as <type> expected)))))))])) -(def: conversion +(def conversion Test (let [conversion (is (All (_ a z) (-> (Primitive a) (Primitive z) (Bytecode Any) (-> a z) (-> z Any Bit) (Random Bit))) @@ -1124,7 +1124,7 @@ (_.lifted "D2F" (conversion ..$Double::primitive ..$Float::primitive /.d2f (|>> ffi.double_to_float) float::=)))) ))) -(def: value +(def value Test (all _.and (<| (_.context "primitive") @@ -1141,7 +1141,7 @@ ..conversion) )) -(def: registry +(def registry Test (let [store_and_load (is (All (_ a) (-> (Random a) (-> a (Bytecode Any)) (Bytecode Any) @@ -1252,7 +1252,7 @@ (store_and_load ..$String::random ..$String::literal /.nop [/.astore /.aload] test))))) ))) -(def: stack +(def stack Test (do random.monad [expected/1 $String::random @@ -1328,7 +1328,7 @@ double) ))) -(def: resource +(def resource Test (all _.and (<| (_.context "registry") @@ -1337,7 +1337,7 @@ ..stack) )) -(def: return +(def return Test (let [primitive_return (is (All (_ a) (-> (Primitive a) (Bytecode Any) (Maybe (-> a (Bytecode Any))) (-> a Any Bit) (Random Bit))) (function (_ primitive return substitute test) @@ -1407,7 +1407,7 @@ (function (_ expected actual) (text#= (as Text expected) (as Text actual))))) ))) -(def: branching +(def branching Test (do random.monad [expected ..$Long::random @@ -1469,7 +1469,7 @@ reference_comparison ))) -(def: jump +(def jump Test (do random.monad [expected ..$Long::random @@ -1493,7 +1493,7 @@ (_.lifted "GOTO" (jump /.goto)) (_.lifted "GOTO_W" (jump /.goto_w))))) -(def: switch +(def switch Test (all _.and (<| (_.lifted "TABLESWITCH") @@ -1548,7 +1548,7 @@ ..$Long::wrap)) )) -(def: exception +(def exception Test (do random.monad [expected ..$Long::random @@ -1578,7 +1578,7 @@ _ (/.set_label @return)] ..$Long::wrap)))) -(def: code +(def code Test (all _.and (<| (_.context "return") @@ -1593,7 +1593,7 @@ ..exception) )) -(def: instruction +(def instruction Test (all _.and (<| (_.context "value") @@ -1604,7 +1604,7 @@ ..code) )) -(def: inheritance +(def inheritance Test (do random.monad [abstract_class ..class_name @@ -1746,7 +1746,7 @@ {try.#Failure error} false)))) -(def: .public test +(def .public test Test (<| (_.context (%.symbol (symbol .._))) (all _.and diff --git a/stdlib/source/test/lux/target/lua.lux b/stdlib/source/test/lux/target/lua.lux index e8c1057c5..0ada22cf1 100644 --- a/stdlib/source/test/lux/target/lua.lux +++ b/stdlib/source/test/lux/target/lua.lux @@ -35,7 +35,7 @@ ... http://www.lua.org/manual/5.3/manual.html#pdf-load (ffi.import (load [Text] "?" (-> Any Any))) -(def: (expression ??? it) +(def (expression ??? it) (-> (-> Any Bit) /.Expression Bit) (|> it /.code @@ -44,7 +44,7 @@ (maybe#each (|>> (function.on []) ???)) (maybe.else false))) -(def: test|literal +(def test|literal Test (do [! random.monad] [boolean random.bit @@ -73,7 +73,7 @@ (/.string string))) ))) -(def: test|boolean +(def test|boolean Test (do [! random.monad] [left random.bit @@ -94,7 +94,7 @@ )))) (with_template [<bits>] - [(`` (def: (~~ (template.symbol [int_ <bits>])) + [(`` (def (~~ (template.symbol [int_ <bits>])) (Random Int) (let [mask (|> 1 (i64.left_shifted (-- <bits>)) --)] (random#each (|>> (i64.and mask) .int) random.nat))))] @@ -103,7 +103,7 @@ [32] ) -(def: test|int +(def test|int Test (do [! random.monad] [left random.int @@ -146,7 +146,7 @@ (/.// (/.int parameter) (/.int subject))))) )))) -(def: test|float +(def test|float Test (do [! random.monad] [parameter (random.only (|>> (f.= +0.0) not) @@ -180,7 +180,7 @@ )) )))) -(def: test|string +(def test|string Test (do random.monad [left (random.lower_case 8) @@ -193,7 +193,7 @@ (/.concat (/.string right))))) ))) -(def: test|array +(def test|array Test (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat) @@ -216,7 +216,7 @@ (/.length (/.array (list#each /.float items))))) ))) -(def: test|table +(def test|table Test (do [! random.monad] [expected random.safe_frac @@ -255,7 +255,7 @@ (/.apply (list))))) ))) -(def: test|computation +(def test|computation Test (do [! random.monad] [test random.bit @@ -304,7 +304,7 @@ (/.float then)))) ))) -(def: test|expression +(def test|expression Test (`` (all _.and (_.for [/.Literal] @@ -313,7 +313,7 @@ ..test|computation) ))) -(def: test/var +(def test/var Test (do [! random.monad] [float/0 random.safe_frac @@ -354,7 +354,7 @@ (/.apply (list (/.float float/0)))))) ))) -(def: test/location +(def test/location Test (do [! random.monad] [float/0 random.safe_frac @@ -406,7 +406,7 @@ ..test/var) ))) -(def: test|label +(def test|label Test (do [! random.monad] [input ..int_16 @@ -496,7 +496,7 @@ (/.apply (list (/.int input)))))) ))) -(def: test|loop +(def test|loop Test (do [! random.monad] [input ..int_16 @@ -554,7 +554,7 @@ ..test|label) ))) -(def: test|exception +(def test|exception Test (do [! random.monad] [expected random.safe_frac @@ -599,7 +599,7 @@ (/.apply (list))))) ))) -(def: test|function +(def test|function Test (do [! random.monad] [float/0 random.safe_frac @@ -640,7 +640,7 @@ ))) ))) -(def: test|branching +(def test|branching Test (do [! random.monad] [float/0 random.safe_frac @@ -664,7 +664,7 @@ (/.apply (list))))) ))) -(def: test|binding +(def test|binding Test (all _.and ..test|function @@ -672,7 +672,7 @@ ..test/location) )) -(def: test|control +(def test|control Test (all _.and ..test|branching @@ -680,7 +680,7 @@ ..test|exception )) -(def: test|statement +(def test|statement Test (do [! random.monad] [float/0 random.safe_frac @@ -699,7 +699,7 @@ ..test|control )))) -(def: .public test +(def .public test Test (do [! random.monad] [.let [random (at ! each /.int random.int)] diff --git a/stdlib/source/test/lux/target/python.lux b/stdlib/source/test/lux/target/python.lux index b31a398fc..44c9e4dc9 100644 --- a/stdlib/source/test/lux/target/python.lux +++ b/stdlib/source/test/lux/target/python.lux @@ -34,7 +34,7 @@ (ffi.import (eval [Text] "try" "?" Any)) -(def: (expression ??? it) +(def (expression ??? it) (-> (-> Any Bit) (/.Expression Any) Bit) (|> it /.code @@ -43,7 +43,7 @@ (maybe.else false))) (try.else false))) -(def: test|literal +(def test|literal Test (do [! random.monad] [bool random.bit @@ -80,7 +80,7 @@ (/.unicode string))) ))) -(def: test|bool +(def test|bool Test (do [! random.monad] [left random.bit @@ -100,7 +100,7 @@ (/.not (/.bool left)))) )))) -(def: test|float +(def test|float Test (do [! random.monad] [parameter (random.only (|>> (f.= +0.0) not) @@ -140,18 +140,18 @@ (/.repr/1 (/.float subject)))) )))) -(def: python_3? +(def python_3? (/.Expression Any) (|> (/.__import__/1 (/.unicode "sys")) (/.the "version_info") (/.the "major") (/.= (/.int +3)))) -(def: int_16 +(def int_16 (-> Int Int) (i64.and (-- (i64.left_shifted 15 1)))) -(def: test|int +(def test|int Test (do [! random.monad] [left random.int @@ -206,7 +206,7 @@ (/.long left)))) )))) -(def: test|text +(def test|text Test (do [! random.monad] [expected_code (at ! each (n.% 128) random.nat) @@ -224,7 +224,7 @@ (/.unichr/1 (/.unicode/1 (/.string expected_char))))))) ))) -(def: test|array +(def test|array Test (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat) @@ -261,7 +261,7 @@ /.len/1))) ))) -(def: test|dict +(def test|dict Test (do [! random.monad] [expected random.safe_frac @@ -281,7 +281,7 @@ (/.in? (/.dict (list [field (/.float expected)])) field)))) ))) -(def: test|computation +(def test|computation Test (do [! random.monad] [test random.bit @@ -331,7 +331,7 @@ (/.is $arg/0 (/.+ $arg/1 $arg/1))))))) ))) -(def: test|function +(def test|function Test (do [! random.monad] [float/0 random.safe_frac @@ -353,7 +353,7 @@ (all /.+ $arg/0 $arg/1 $arg/2))))) ))) -(def: test|var +(def test|var Test (do [! random.monad] [expected/0 random.safe_frac @@ -412,7 +412,7 @@ )) ))) -(def: test|expression +(def test|expression Test (do [! random.monad] [dummy random.safe_frac @@ -433,7 +433,7 @@ (ffi.import (dict [] ..Dict)) -(def: (statement it) +(def (statement it) (-> (-> /.SVar (/.Statement Any)) Any) (let [$output (static.random (|>> %.nat (format "output_") code.text) random.nat) @@ -442,7 +442,7 @@ ("python exec" (/.code (it (/.var $output))) (as_expected environment)) (Dict::get $output environment)))) -(def: test|access +(def test|access Test (do [! random.monad] [$var/0 (at ! each (|>> %.nat (format "v0_") /.var) random.nat) @@ -480,7 +480,7 @@ (f.= expected/0))))) ))) -(def: test|location +(def test|location Test (do [! random.monad] [$var/0 (at ! each (|>> %.nat (format "v0_") /.var) random.nat) @@ -591,7 +591,7 @@ ..test|access) ))) -(def: test|exception +(def test|exception Test (do [! random.monad] [expected_error (random.upper_case 10) @@ -637,7 +637,7 @@ false))) ))) -(def: test|loop +(def test|loop Test (do [! random.monad] [base (at ! each (n.% 100) random.nat) @@ -742,7 +742,7 @@ (n.= expected))) ))) -(def: test|statement +(def test|statement Test (do [! random.monad] [$def (at ! each (|>> %.nat (format "def_") /.var) random.nat) @@ -810,7 +810,7 @@ ..test|loop) ))) -(def: random_expression +(def random_expression (Random /.Literal) (all random.either (random#each /.bool random.bit) @@ -819,7 +819,7 @@ (random#each /.string (random.lower_case 1)) )) -(def: .public test +(def .public test Test (do [! random.monad] [expected ..random_expression] diff --git a/stdlib/source/test/lux/target/ruby.lux b/stdlib/source/test/lux/target/ruby.lux index 011720095..7c6b3fcf6 100644 --- a/stdlib/source/test/lux/target/ruby.lux +++ b/stdlib/source/test/lux/target/ruby.lux @@ -39,7 +39,7 @@ (ffi.import (eval [Text] "try" "?" Any)) -(def: (expression ??? it) +(def (expression ??? it) (-> (-> Any Bit) /.Expression Bit) (|> it /.code @@ -48,7 +48,7 @@ (maybe.else false))) (try.else false))) -(def: nil +(def nil (-> /.Expression Bit) (|>> /.code ..eval @@ -57,7 +57,7 @@ {.#Some _} false))) (try.else false))) -(def: test|literal +(def test|literal Test (do [! random.monad] [bool random.bit @@ -84,7 +84,7 @@ (/.do "id2name" (list) {.#None} (/.symbol string)))) ))) -(def: test|bool +(def test|bool Test (do [! random.monad] [left random.bit @@ -104,7 +104,7 @@ (/.not (/.bool left)))) )))) -(def: test|float +(def test|float Test (do [! random.monad] [parameter (random.only (|>> (f.= +0.0) not) @@ -138,11 +138,11 @@ )) )))) -(def: int_16 +(def int_16 (-> Int Int) (i64.and (-- (i64.left_shifted 15 1)))) -(def: test|int +(def test|int Test (do [! random.monad] [left random.int @@ -179,7 +179,7 @@ (/.int i16))))) )))) -(def: test|array +(def test|array Test (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat) @@ -208,7 +208,7 @@ (/.the "length")))) ))) -(def: test|hash +(def test|hash Test (do [! random.monad] [expected random.safe_frac @@ -227,7 +227,7 @@ (/.= /.nil))))) ))) -(def: test|object +(def test|object Test (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat) @@ -327,7 +327,7 @@ )) ))) -(def: test|io +(def test|io Test (<| (do [! random.monad] [left (random.upper_case 5) @@ -397,7 +397,7 @@ )) ))) -(def: test|computation +(def test|computation Test (do [! random.monad] [test random.bit @@ -429,7 +429,7 @@ (/.float then)))) ))) -(def: test|global +(def test|global Test (do [! random.monad] [float/0 random.safe_frac @@ -483,7 +483,7 @@ (/.apply_lambda (list))))) ))) -(def: test|local_var +(def test|local_var Test (do [! random.monad] [float/0 random.safe_frac @@ -503,7 +503,7 @@ (/.apply_lambda (list))))) ))) -(def: test|instance_var +(def test|instance_var Test (do [! random.monad] [float/0 random.safe_frac @@ -575,7 +575,7 @@ (/.apply_lambda (list))))) ))) -(def: test|static_var +(def test|static_var Test (do [! random.monad] [int/0 (at ! each (|>> (n.% 10) ++ .int) @@ -601,7 +601,7 @@ (/.apply_lambda (list))))) ))) -(def: test|variadic +(def test|variadic Test (do [! random.monad] [$inputs (at ! each /.local (random.lower_case 10)) @@ -633,7 +633,7 @@ (/.apply_lambda (list (/.double_splat (/.hash (list.zipped_2 keys vals))))))))) ))) -(def: test|var +(def test|var Test (do [! random.monad] [float/0 random.safe_frac @@ -670,7 +670,7 @@ ..test|variadic ))) -(def: test|location +(def test|location Test (do [! random.monad] [float/0 random.safe_frac @@ -699,7 +699,7 @@ )) ))) -(def: test|expression +(def test|expression Test (do [! random.monad] [dummy random.safe_frac @@ -713,7 +713,7 @@ ..test|location) )))) -(def: test|label +(def test|label Test (do [! random.monad] [input (at ! each ..int_16 random.int) @@ -779,7 +779,7 @@ (/.apply_lambda (list (/.int input))))))) ))) -(def: test|loop +(def test|loop Test (do [! random.monad] [input (at ! each (i.right_shifted 32) random.int) @@ -814,12 +814,12 @@ ..test|label ))) -(def: random_tag +(def random_tag (Random Int) (random#each (i64.and (hex "FF,FF,FF,FF")) random.int)) -(def: test|exception +(def test|exception Test (do [! random.monad] [expected random.safe_frac @@ -901,7 +901,7 @@ (/.apply_lambda (list)))))) ))) -(def: test|function +(def test|function Test (do [! random.monad] [iterations (at ! each (n.% 10) random.nat) @@ -952,7 +952,7 @@ (/.apply_lambda (list))))) ))) -(def: test|branching +(def test|branching Test (do [! random.monad] [float/0 random.safe_frac @@ -986,7 +986,7 @@ (/.apply_lambda (list))))) ))) -(def: test|statement +(def test|statement Test (do [! random.monad] [float/0 random.safe_frac @@ -1028,7 +1028,7 @@ ..test|function) ))) -(def: random_expression +(def random_expression (Random /.Expression) (let [literal (is (Random /.Literal) (all random.either @@ -1041,7 +1041,7 @@ literal ))) -(def: .public test +(def .public test Test (do [! random.monad] [expected ..random_expression] diff --git a/stdlib/source/test/lux/test.lux b/stdlib/source/test/lux/test.lux index b7d59da1e..3cf4b7f51 100644 --- a/stdlib/source/test/lux/test.lux +++ b/stdlib/source/test/lux/test.lux @@ -22,14 +22,14 @@ [\\library ["[0]" /]]) -(def: (verify expected_message/0 expected_message/1 successes failures [tally message]) +(def (verify expected_message/0 expected_message/1 successes failures [tally message]) (-> Text Text Nat Nat [/.Tally Text] Bit) (and (text.contains? expected_message/0 message) (text.contains? expected_message/1 message) (n.= successes (the /.#successes tally)) (n.= failures (the /.#failures tally)))) -(def: assertion +(def assertion /.Test (do [! random.monad] [expected_message/0 (random.lower_case 5) @@ -62,7 +62,7 @@ (..verify expected_message/0 expected_message/1 1 1 ft))))) ))) -(def: seed +(def seed /.Test (do [! random.monad] [seed random.nat @@ -88,7 +88,7 @@ (and (n.= 1 (the /.#successes post_tally)) (n.= 0 (the /.#failures post_tally))))))))) -(def: times +(def times /.Test (all /.and (do [! random.monad] @@ -117,7 +117,7 @@ (n.= 0 (the /.#failures tally))))))) )) -(def: in_parallel +(def in_parallel /.Test (all /.and (do [! random.monad] @@ -164,10 +164,10 @@ ran_all_tests!)))))) )) -(def: .public dummy_target +(def .public dummy_target "YOLO") -(def: coverage +(def coverage /.Test (all /.and (do random.monad @@ -216,7 +216,7 @@ (set.member? (the /.#actual_coverage covering) (symbol ..dummy_target)))))))) )) -(def: .public test +(def .public test /.Test (<| (/.covering /._) (/.for [/.Test]) diff --git a/stdlib/source/test/lux/time.lux b/stdlib/source/test/lux/time.lux index 8962c7adb..ccce44873 100644 --- a/stdlib/source/test/lux/time.lux +++ b/stdlib/source/test/lux/time.lux @@ -32,7 +32,7 @@ ["[0]" / (.only) ["[0]" duration]]]) -(def: for_implementation +(def for_implementation Test (all _.and (_.for [/.equivalence] @@ -44,7 +44,7 @@ (_.for [/.codec] ($codec.spec /.equivalence /.codec random.time)))) -(def: for_clock +(def for_clock Test (do [! random.monad] [expected random.time] @@ -55,7 +55,7 @@ (try#each (at /.equivalence = expected)) (try.else false))))) -(def: for_ranges +(def for_ranges Test (do [! random.monad] [valid_hour (at ! each (|>> (n.% /.hours) (n.max 10)) random.nat) @@ -108,7 +108,7 @@ {try.#Failure error} false))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Time]) diff --git a/stdlib/source/test/lux/time/date.lux b/stdlib/source/test/lux/time/date.lux index 958438f13..7a805e4ec 100644 --- a/stdlib/source/test/lux/time/date.lux +++ b/stdlib/source/test/lux/time/date.lux @@ -24,7 +24,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Date]) diff --git a/stdlib/source/test/lux/time/day.lux b/stdlib/source/test/lux/time/day.lux index 0e7e958cc..3f820e733 100644 --- a/stdlib/source/test/lux/time/day.lux +++ b/stdlib/source/test/lux/time/day.lux @@ -25,7 +25,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Day) (random.either (random.either (random.either (random#in {/.#Sunday}) (random#in {/.#Monday})) @@ -35,7 +35,7 @@ (random#in {/.#Friday})) (random#in {/.#Saturday})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Day]) diff --git a/stdlib/source/test/lux/time/duration.lux b/stdlib/source/test/lux/time/duration.lux index 2d4847d29..3778516a1 100644 --- a/stdlib/source/test/lux/time/duration.lux +++ b/stdlib/source/test/lux/time/duration.lux @@ -20,7 +20,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Duration]) diff --git a/stdlib/source/test/lux/time/instant.lux b/stdlib/source/test/lux/time/instant.lux index 0ae5bf04c..66ccccb65 100644 --- a/stdlib/source/test/lux/time/instant.lux +++ b/stdlib/source/test/lux/time/instant.lux @@ -24,7 +24,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Instant]) diff --git a/stdlib/source/test/lux/time/month.lux b/stdlib/source/test/lux/time/month.lux index a791e59a1..5399a9a87 100644 --- a/stdlib/source/test/lux/time/month.lux +++ b/stdlib/source/test/lux/time/month.lux @@ -27,14 +27,14 @@ [// ["[0]" duration]]]]) -(def: .public random +(def .public random (Random /.Month) (let [december (/.number {/.#December})] (|> random.nat (at random.monad each (|>> (n.% december) ++)) (random.one (|>> /.by_number try.maybe))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Month]) diff --git a/stdlib/source/test/lux/time/year.lux b/stdlib/source/test/lux/time/year.lux index cb2be3918..ed50e138b 100644 --- a/stdlib/source/test/lux/time/year.lux +++ b/stdlib/source/test/lux/time/year.lux @@ -27,11 +27,11 @@ ["[1][0]" instant] ["[1][0]" date]]]]) -(def: .public random +(def .public random (Random /.Year) (random.one (|>> /.year try.maybe) random.int)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Year]) diff --git a/stdlib/source/test/lux/tool.lux b/stdlib/source/test/lux/tool.lux index 217647f2e..25345fcae 100644 --- a/stdlib/source/test/lux/tool.lux +++ b/stdlib/source/test/lux/tool.lux @@ -27,7 +27,7 @@ ["[1]/[0]" cache]] ]]) -(def: .public test +(def .public test Test (all _.and /arity.test diff --git a/stdlib/source/test/lux/tool/compiler/arity.lux b/stdlib/source/test/lux/tool/compiler/arity.lux index a53ca8c6d..6dcbfcac9 100644 --- a/stdlib/source/test/lux/tool/compiler/arity.lux +++ b/stdlib/source/test/lux/tool/compiler/arity.lux @@ -13,7 +13,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.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 763b3ba9f..37b298b3c 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux @@ -65,7 +65,7 @@ ["[2][1]" /] ["[1]" \\library (.open: "[1]#[0]" equivalence)]]]]]]) -(def: !expect +(def !expect (template (_ <expectation> <computation>) [(case <computation> <expectation> @@ -74,12 +74,12 @@ _ false)])) -(def: constant +(def constant (Random Constant) (random.and (random.unicode 10) (random.unicode 10))) -(def: \\parser +(def \\parser Test (<| (_.covering \\parser._) (_.for [\\parser.Parser]) @@ -187,21 +187,21 @@ (exception.match? \\parser.unconsumed_input error))))) ))))) -(def: (random_branch random) +(def (random_branch random) (All (_ a) (-> (Random a) (Random (/.Branch' a)))) (all random.and /pattern.random random )) -(def: (random_match multiplicity random) +(def (random_match multiplicity random) (All (_ a) (-> Nat (Random a) (Random (/.Match' a)))) (all random.and (..random_branch random) (random.list multiplicity (..random_branch random)) )) -(def: .public (random multiplicity) +(def .public (random multiplicity) (-> Nat (Random /.Analysis)) (<| random.rec (function (_ random)) @@ -231,7 +231,7 @@ random|extension ))) -(def: test|simple +(def test|simple Test (do random.monad [bit random.bit @@ -265,7 +265,7 @@ [/.text text])) )))) -(def: test|complex +(def test|complex Test (do random.monad [expected_left (..random 2) @@ -295,7 +295,7 @@ false)) ))) -(def: test|reference +(def test|reference Test (do random.monad [expected_register random.nat @@ -318,7 +318,7 @@ )) )))) -(def: tagged? +(def tagged? (template (_ <tag> <it>) [(case <it> {<tag> _} @@ -327,7 +327,7 @@ _ false)])) -(def: test|reification +(def test|reification Test (do random.monad [expected_abstraction (random.only (|>> (..tagged? /.#Apply) not) @@ -355,7 +355,7 @@ false)) ))) -(def: test|case +(def test|case Test (do random.monad [expected_input (..random 2) @@ -375,7 +375,7 @@ <exception> (template.symbol ["exception_" <id>])] (exception: <exception>) - (def: test|phase + (def test|phase Test (do random.monad [version/0 random.nat @@ -458,7 +458,7 @@ false)))) )))) -(def: test|state +(def test|state Test (do random.monad [version random.nat @@ -588,7 +588,7 @@ (try.else false)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Analysis]) 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 44e430c0e..b68171b90 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 @@ -18,7 +18,7 @@ [\\library ["[0]" /]]) -(def: test|tag +(def test|tag Test (do [! random.monad] [multiplicity (at ! each (n.max 2) random.nat) @@ -42,7 +42,7 @@ (n.= tag lefts)))) ))) -(def: .public (random multiplicity it) +(def .public (random multiplicity it) (All (_ a) (-> Nat (Random a) (Random (/.Complex a)))) (all random.or @@ -53,7 +53,7 @@ (random.list multiplicity it) )) -(def: .public test +(def .public test Test (let [random (..random 3 random.nat)] (<| (_.covering /._) 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 d308e446c..df0ff10b0 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 @@ -36,13 +36,13 @@ ["[1][0]" complex] ["[1][0]" pattern (.only Pattern)]]]]) -(def: spread 16) +(def spread 16) -(def: random_tag +(def random_tag (Random Nat) (random#each (n.% ..spread) random.nat)) -(def: .public random +(def .public random (Random /.Coverage) (<| random.rec (function (_ again)) @@ -68,12 +68,12 @@ (random.and again again) ))) -(def: (ranged min range) +(def (ranged min range) (-> Nat Nat (Random Nat)) (random#each (|>> (n.% (++ range)) (n.+ min)) random.nat)) -(def: random_pattern +(def random_pattern (Random [/.Coverage Pattern]) (<| random.rec (function (_ again)) @@ -135,7 +135,7 @@ {//pattern.#Bind register}])) )))) -(def: (failure? exception it) +(def (failure? exception it) (All (_ a) (-> (Exception a) (Try /.Coverage) Bit)) (case it {try.#Failure error} @@ -144,7 +144,7 @@ _ false)) -(def: test|value +(def test|value Test (<| (let [(open "/#[0]") /.equivalence]) (do [! random.monad] @@ -162,7 +162,7 @@ (text#= (/.format left) (/.format right)))) )))) -(def: test|coverage +(def test|coverage Test (<| (let [(open "/#[0]") /.equivalence]) (do [! random.monad] @@ -193,12 +193,12 @@ not)))) )))) -(def: random_partial_pattern +(def random_partial_pattern (Random [/.Coverage Pattern]) (random.only (|>> product.left /.exhaustive? not) ..random_pattern)) -(def: test|variant +(def test|variant Test (<| (let [(open "/#[0]") /.equivalence]) (do [! random.monad] @@ -221,7 +221,7 @@ (n.= expected_maximum (/.maximum [{.#Some expected_maximum} cases])))) )))) -(def: random_value_pattern +(def random_value_pattern (Random [/.Coverage Pattern]) (random.only (function (_ [coverage pattern]) (case coverage @@ -232,7 +232,7 @@ true)) ..random_partial_pattern)) -(def: test|composite +(def test|composite Test (<| (let [(open "/#[0]") /.equivalence]) (do [! random.monad] @@ -453,7 +453,7 @@ {/.#Variant {.#Some arity} (dictionary.of_list n.hash (list [tag/1 expected/1]))})))))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Coverage]) 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 6b7c63309..90d337051 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 @@ -46,15 +46,15 @@ [meta ["[0]" archive]]]]]]]) -(def: (eval archive type term) +(def (eval archive type term) Eval (/phase#in [])) -(def: (expander macro inputs state) +(def (expander macro inputs state) //macro.Expander {try.#Success ((macro.function macro) inputs state)}) -(def: random_state +(def random_state (Random Lux) (do random.monad [version random.nat @@ -62,17 +62,17 @@ configuration ($configuration.random 5)] (in (//.state (//.info version host configuration))))) -(def: primitive +(def primitive (Random Type) (do random.monad [name (random.lower_case 1)] (in {.#Primitive name (list)}))) -(def: analysis +(def analysis //.Phase (/analysis.phase ..expander)) -(def: (fails? exception try) +(def (fails? exception try) (All (_ e a) (-> (Exception e) (Try a) Bit)) (case try {try.#Success _} @@ -81,7 +81,7 @@ {try.#Failure error} (text.contains? (the exception.#label exception) error))) -(def: .public simple_parameter +(def .public simple_parameter (Random [Type Code]) (`` (all random.either (~~ (with_template [<type> <random> <code>] @@ -96,7 +96,7 @@ )) ))) -(def: test|general +(def test|general Test (do [! random.monad] [lux ..random_state @@ -211,7 +211,7 @@ (..fails? /.cannot_infer_argument))) ))) -(def: test|variant +(def test|variant Test (do [! random.monad] [lux ..random_state @@ -320,7 +320,7 @@ (..fails? /.not_a_variant)))) ))) -(def: test|record +(def test|record Test (do [! random.monad] [lux ..random_state @@ -394,7 +394,7 @@ (..fails? /.not_a_record))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 05c17f492..cf1ee869c 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 @@ -34,7 +34,7 @@ ["[0]" / (.only) ["/[1]" //]]]) -(def: random_state +(def random_state (Random Lux) (do random.monad [version random.nat @@ -42,11 +42,11 @@ configuration ($configuration.random 5)] (in (//.state (//.info version host configuration))))) -(def: (expander macro inputs state) +(def (expander macro inputs state) /.Expander {try.#Success ((macro.function macro) inputs state)}) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Expander]) 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 0c0831530..fc075bd16 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 @@ -30,7 +30,7 @@ [/// ["[2][0]" phase]]]]]]) -(def: random_state +(def random_state (Random Lux) (do random.monad [version random.nat @@ -38,13 +38,13 @@ configuration ($configuration.random 5)] (in (//.state (//.info version host configuration))))) -(def: primitive +(def primitive (Random Type) (do random.monad [name (random.lower_case 1)] (in {.#Primitive name (list)}))) -(def: (new? hash it) +(def (new? hash it) (-> Nat .Module Bit) (and (same? hash (the .#module_hash it)) (list.empty? (the .#module_aliases it)) @@ -57,7 +57,7 @@ _ false))) -(def: test|module +(def test|module Test (do [! random.monad] [lux ..random_state @@ -131,7 +131,7 @@ (try.else false))) ))) -(def: test|state +(def test|state Test (do [! random.monad] [lux ..random_state @@ -196,7 +196,7 @@ )))) )))) -(def: test|definition +(def test|definition Test (do [! random.monad] [lux ..random_state @@ -268,7 +268,7 @@ {try.#Failure _} true))))) ))) -(def: test|label +(def test|label Test (do [! random.monad] [lux ..random_state @@ -342,7 +342,7 @@ [.#Right true]))))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and 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 8c3636a55..e7739df16 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 @@ -19,7 +19,7 @@ ["[1][0]" simple] ["[1][0]" complex]]) -(def: .public random +(def .public random (Random /.Pattern) (random.rec (function (_ random) @@ -29,7 +29,7 @@ random.nat )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Pattern]) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux index 584eb63b2..a0c29f7a0 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux @@ -33,7 +33,7 @@ ["[1][0]" type]]) (with_template [<name> <tag>] - [(def: (<name> expected_type expected_register [actual_type actual_var]) + [(def (<name> expected_type expected_register [actual_type actual_var]) (-> Type Register [Type Variable] Bit) (and (same? expected_type actual_type) (case actual_var @@ -47,7 +47,7 @@ [foreign? //variable.#Foreign] ) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 656722030..b292022ad 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 @@ -16,7 +16,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Simple) (all random.or (random#in []) @@ -28,7 +28,7 @@ (random.lower_case 5) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Simple]) diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux index 5b2c340dc..4e02553e4 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux @@ -26,7 +26,7 @@ [/// ["[2][0]" phase (.open: "[1]#[0]" functor)]]]]]]) -(def: .public random_state +(def .public random_state (Random Lux) (do random.monad [version random.nat @@ -34,13 +34,13 @@ configuration ($configuration.random 5)] (in (//.state (//.info version host configuration))))) -(def: primitive +(def primitive (Random Type) (do random.monad [name (random.lower_case 1)] (in {.#Primitive name (list)}))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 6cc3dd37a..3ac028ac3 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 @@ -46,15 +46,15 @@ ["[1][0]" function] ["[1][0]" case]]) -(def: (eval archive type term) +(def (eval archive type term) Eval (phase#in [])) -(def: (expander macro inputs state) +(def (expander macro inputs state) //macro.Expander {try.#Success ((macro.function macro) inputs state)}) -(def: (can_analyse_unit! lux module/0) +(def (can_analyse_unit! lux module/0) (-> Lux Text Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux]] @@ -75,7 +75,7 @@ (phase.result state) (try.else false)))) -(def: (can_analyse_simple_literal_or_singleton_tuple! lux module/0 [bit/0 nat/0 int/0 rev/0 frac/0 text/0]) +(def (can_analyse_simple_literal_or_singleton_tuple! lux module/0 [bit/0 nat/0 int/0 rev/0 frac/0 text/0]) (-> Lux Text [.Bit .Nat .Int .Rev .Frac .Text] Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux]] @@ -115,7 +115,7 @@ )) )))) -(def: (can_analyse_sum! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0] [@left @right]) +(def (can_analyse_sum! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0] [@left @right]) (-> Lux Text [.Text .Text .Text .Text .Text .Text .Text] [.Bit .Nat .Int .Rev .Frac .Text] [.Text .Text] Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux] @@ -222,7 +222,7 @@ can_analyse_multiary! ))) -(def: (can_analyse_variant! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0] [@left @right]) +(def (can_analyse_variant! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0] [@left @right]) (-> Lux Text [.Text .Text .Text .Text .Text .Text .Text] [.Bit .Nat .Int .Rev .Frac .Text] [.Text .Text] Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux] @@ -347,7 +347,7 @@ can_analyse_nullary! can_analyse_multiary!))) -(def: (can_analyse_tuple! lux module/0 [bit/0 nat/0 int/0 rev/0 frac/0 text/0]) +(def (can_analyse_tuple! lux module/0 [bit/0 nat/0 int/0 rev/0 frac/0 text/0]) (-> Lux Text [.Bit .Nat .Int .Rev .Frac .Text] Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux]] @@ -386,7 +386,7 @@ (phase.result state) (try.else false)))) -(def: (can_analyse_record! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0]) +(def (can_analyse_record! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0]) (-> Lux Text [.Text .Text .Text .Text .Text .Text .Text] [.Bit .Nat .Int .Rev .Frac .Text] Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux] @@ -429,7 +429,7 @@ (phase.result state) (try.else false)))) -(def: (can_analyse_function! lux module/0 nat/0 [$abstraction/0 $parameter/0 $abstraction/1 $parameter/1]) +(def (can_analyse_function! lux module/0 nat/0 [$abstraction/0 $parameter/0 $abstraction/1 $parameter/1]) (-> Lux Text Nat [Code Code Code Code] Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux] @@ -559,7 +559,7 @@ ... (try.else false)) ))) -(def: (can_analyse_apply! lux module/0 bit/0 nat/0 [$abstraction/0 $parameter/0 $abstraction/1 $parameter/1]) +(def (can_analyse_apply! lux module/0 bit/0 nat/0 [$abstraction/0 $parameter/0 $abstraction/1 $parameter/1]) (-> Lux Text Bit Nat [Code Code Code Code] Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux] @@ -632,7 +632,7 @@ variable! partial!))) -(def: (can_analyse_extension! lux module/0 text/0) +(def (can_analyse_extension! lux module/0 text/0) (-> Lux Text Text Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux]] @@ -654,7 +654,7 @@ (phase.result state) (try.else false)))) -(def: (can_analyse_pattern_matching! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0] $parameter/0) +(def (can_analyse_pattern_matching! lux module/0 [@any @bit @nat @int @rev @frac @text] [bit/0 nat/0 int/0 rev/0 frac/0 text/0] $parameter/0) (-> Lux Text [.Text .Text .Text .Text .Text .Text .Text] [.Bit .Nat .Int .Rev .Frac .Text] Code Bit) (let [state [extension.#bundle (extension/analysis.bundle ..eval) extension.#state lux] @@ -889,7 +889,7 @@ tuple! record!))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 33e7c009e..5891bb218 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 @@ -40,19 +40,19 @@ [meta ["[0]" archive]]]]]]]]) -(def: (eval archive type term) +(def (eval archive type term) Eval (//phase#in [])) -(def: (expander macro inputs state) +(def (expander macro inputs state) //macro.Expander {try.#Success ((macro.function macro) inputs state)}) -(def: analysis +(def analysis //analysis.Phase (//.phase ..expander)) -(def: test|tuple +(def test|tuple Test (do [! random.monad] [lux $//type.random_state @@ -140,7 +140,7 @@ (exception.otherwise (text.contains? (the exception.#label /.non_tuple)))))) ))) -(def: (test|case lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] [output/1 body/1] [bit/0 nat/0]) +(def (test|case lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] [output/1 body/1] [bit/0 nat/0]) (-> Lux Symbol [Type Code] [Type Code] [Type Code] [Code Code Code] [Type Code] [Type Code] [Bit Nat] Bit) (let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux] @@ -247,7 +247,7 @@ ... 111 ))))) -(def: (test|redundancy lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] bit/0) +(def (test|redundancy lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] bit/0) (-> Lux Symbol [Type Code] [Type Code] [Type Code] [Code Code Code] [Type Code] Bit Bit) (let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux] @@ -297,7 +297,7 @@ (list [$binding/0 body/0] [(` [(~ $binding/0) (~ $binding/1)]) body/0]))))) -(def: (test|variant lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] [output/1 body/1] [bit/0 nat/0]) +(def (test|variant lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] [output/1 body/1] [bit/0 nat/0]) (-> Lux Symbol [Type Code] [Type Code] [Type Code] [Code Code Code] [Type Code] [Type Code] [Bit Nat] Bit) (let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux] @@ -368,7 +368,7 @@ can_bind_partial_variant! ))) -(def: (test|record lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] [output/1 body/1] [bit/0 nat/0]) +(def (test|record lux [module/0 name/0] [input/0 simple/0] [input/1 simple/1] [input/2 simple/2] [$binding/0 $binding/1 $binding/2] [output/0 body/0] [output/1 body/1] [bit/0 nat/0]) (-> Lux Symbol [Type Code] [Type Code] [Type Code] [Code Code Code] [Type Code] [Type Code] [Bit Nat] Bit) (let [state [//extension.#bundle (//extension/analysis.bundle ..eval) //extension.#state lux] @@ -493,7 +493,7 @@ cannot_omit_slot! can_bind_partial_tuple!))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 61c790517..499b7a7ec 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 @@ -52,15 +52,15 @@ [meta ["[0]" archive]]]]]]]]) -(def: (eval archive type term) +(def (eval archive type term) Eval (//phase#in [])) -(def: (expander macro inputs state) +(def (expander macro inputs state) //macro.Expander {try.#Success ((macro.function macro) inputs state)}) -(def: random_state +(def random_state (Random Lux) (do random.monad [version random.nat @@ -68,17 +68,17 @@ configuration ($configuration.random 5)] (in (//analysis.state (//analysis.info version host configuration))))) -(def: primitive +(def primitive (Random Type) (do random.monad [name (random.lower_case 1)] (in {.#Primitive name (list)}))) -(def: analysis +(def analysis //analysis.Phase (//.phase ..expander)) -(def: (failure? exception try) +(def (failure? exception try) (All (_ e a) (-> (Exception e) (Try a) Bit)) (case try {try.#Success _} @@ -87,7 +87,7 @@ {try.#Failure error} (text.contains? (the exception.#label exception) error))) -(def: simple_parameter +(def simple_parameter (Random [Type Code]) (`` (all random.either (~~ (with_template [<type> <random> <code>] @@ -102,7 +102,7 @@ )) ))) -(def: (analysed? expected actual) +(def (analysed? expected actual) (-> Code Analysis Bit) (case [expected actual] (pattern [[_ {.#Tuple (list)}] (//analysis.unit)]) @@ -128,7 +128,7 @@ _ false)) -(def: test|sum +(def test|sum (do [! random.monad] [lux ..random_state .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) @@ -211,7 +211,7 @@ ))) ))) -(def: test|variant +(def test|variant (do [! random.monad] [lux ..random_state .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) @@ -284,7 +284,7 @@ (type: (Triple a) [a a a]) -(def: test|product +(def test|product (do [! random.monad] [lux ..random_state .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) @@ -428,7 +428,7 @@ (failure? /.invalid_tuple_type)))))) ))) -(def: test|record +(def test|record (do [! random.monad] [lux ..random_state .let [state [//extension.#bundle (//extension/analysis.bundle ..eval) @@ -628,7 +628,7 @@ (inferred? global_record)))) ))) -(def: .public test +(def .public test (<| (_.covering /._) (do [! random.monad] [lux ..random_state diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux index 23d910b37..e5ed71930 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux @@ -47,19 +47,19 @@ [meta ["[0]" archive]]]]]]]]) -(def: (eval archive type term) +(def (eval archive type term) Eval (//phase#in [])) -(def: (expander macro inputs state) +(def (expander macro inputs state) //macro.Expander {try.#Success ((macro.function macro) inputs state)}) -(def: analysis +(def analysis //analysis.Phase (//.phase ..expander)) -(def: test|function +(def test|function Test (do [! random.monad] [lux $//type.random_state @@ -193,7 +193,7 @@ (exception.otherwise (text.contains? (the exception.#label /.cannot_analyse))))) ))) -(def: test|apply +(def test|apply Test (do [! random.monad] [lux $//type.random_state @@ -249,7 +249,7 @@ (exception.otherwise (text.contains? (the exception.#label /.cannot_apply))))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux index 9f09dba69..20f666efe 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux @@ -29,7 +29,7 @@ [/// ["[1][0]" phase (.open: "[1]#[0]" monad)]]]]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux index 03a9dc1e6..cfd9df933 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux @@ -26,7 +26,7 @@ [/// ["[1][0]" phase (.open: "[1]#[0]" functor)]]]]]]) -(def: (analysis state module type it ?) +(def (analysis state module type it ?) (-> Lux Text Type (Operation Analysis) (-> Analysis Bit) Bit) (and (|> it (/type.expecting type) @@ -66,7 +66,7 @@ _ false)))) -(def: analysis? +(def analysis? (template (_ <type> <tag>) [(is (-> <type> Analysis Bit) (function (_ expected) @@ -77,7 +77,7 @@ _ false))))])) -(def: .public test +(def .public test (<| (_.covering /._) (do [! random.monad] [version random.nat 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 745b50cf8..d081e2cbf 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 @@ -30,14 +30,14 @@ [meta ["[0]" archive]]]]]) -(def: .public random +(def .public random (Random (/.Extension Nat)) (all random.and (random.lower_case 5) (random.list 2 random.nat) )) -(def: test|state +(def test|state Test (do [! random.monad] [state random.int @@ -94,21 +94,21 @@ (try.else false)))) )) -(def: extender +(def extender /.Extender (|>> as_expected)) -(def: handler/0 +(def handler/0 (/.Handler Int Nat Nat) (function (_ @self phase archive inputs) (at phase.monad in (list#mix n.+ 0 inputs)))) -(def: handler/1 +(def handler/1 (/.Handler Int Nat Nat) (function (_ @self phase archive inputs) (at phase.monad in (list#mix n.* 1 inputs)))) -(def: test|name +(def test|name Test (do [! random.monad] [state random.int @@ -142,7 +142,7 @@ false))) ))) -(def: test|bundle +(def test|bundle Test (let [phase (is (/.Phase Int Nat Nat) (function (_ archive input) @@ -225,7 +225,7 @@ )) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Extension]) 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 0123bd0bc..72a38e623 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 @@ -34,7 +34,7 @@ ["[0]" archive]]]]]]) (with_template [<name> <success> <failure>] - [(def: (<name> procedure params output_type) + [(def (<name> procedure params output_type) (-> Text (List Code) Type Bit) (|> (////scope.with_scope "" (////type.with_type output_type @@ -51,11 +51,11 @@ [check_failure+ false true] ) -(def: primitive +(def primitive (Random [Type Code]) (r.only (|>> product.left (same? Any) not) _primitive.primitive)) -(def: lux +(def lux Test (do r.monad [[primT primC] ..primitive @@ -72,7 +72,7 @@ (type (Either Text primT)))) ))) -(def: i64 +(def i64 Test (do [! r.monad] [subjectC (|> r.nat (at ! each code.nat)) @@ -99,7 +99,7 @@ (check_success+ "lux i64 -" (list paramC subjectC) Int)) ))) -(def: int +(def int Test (do [! r.monad] [subjectC (|> r.int (at ! each code.int)) @@ -119,7 +119,7 @@ (check_success+ "lux i64 f64" (list subjectC) Frac)) ))) -(def: frac +(def frac Test (do [! r.monad] [subjectC (|> r.safe_frac (at ! each code.frac)) @@ -154,7 +154,7 @@ (check_success+ "lux f64 decode" (list encodedC) (type (Maybe Frac)))) ))) -(def: text +(def text Test (do [! r.monad] [subjectC (|> (r.unicode 5) (at ! each code.text)) @@ -179,7 +179,7 @@ (check_success+ "lux text clip" (list fromC toC subjectC) Text)) ))) -(def: io +(def io Test (do [! r.monad] [logC (|> (r.unicode 5) (at ! each code.text)) @@ -193,7 +193,7 @@ (check_success+ "lux io current-time" (list) Int)) ))) -(def: .public test +(def .public test Test (<| (_.context (symbol.module (symbol /._))) (all _.and diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux index 2f382a752..9e37ebf65 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux @@ -9,7 +9,7 @@ ["[1][0]" loop] ["[1][0]" variable]]) -(def: .public test +(def .public test Test (all _.and /primitive.test 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 804c115d4..bb45ee381 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 @@ -39,7 +39,7 @@ [meta ["[0]" archive]]]]]]]]) -(def: masking_test +(def masking_test Test (do [! random.monad] [maskedA //primitive.primitive @@ -56,7 +56,7 @@ (try#each (//primitive.corresponds? maskedA)) (try.default false))))) -(def: let_test +(def let_test Test (do random.monad [registerA random.nat @@ -80,7 +80,7 @@ _ false))))) -(def: if_test +(def if_test Test (do random.monad [then|else random.bit @@ -109,7 +109,7 @@ _ false))))) -(def: random_member +(def random_member (Random synthesis.Member) (do [! random.monad] [lefts (|> random.nat (at ! each (n.% 10))) @@ -118,13 +118,13 @@ {.#Right lefts} {.#Left lefts})))) -(def: random_path +(def random_path (Random (analysis.Tuple synthesis.Member)) (do [! random.monad] [size_1 (|> random.nat (at ! each (|>> (n.% 10) ++)))] (random.list size_1 ..random_member))) -(def: (get_pattern path) +(def (get_pattern path) (-> (analysis.Tuple synthesis.Member) (Random [analysis.Pattern Register])) (do random.monad @@ -144,7 +144,7 @@ (list.reversed path)) @member]))) -(def: get_test +(def get_test Test (do [! random.monad] [recordA (|> random.nat @@ -168,7 +168,7 @@ _ false))))) -(def: random_bit +(def random_bit (Random [Path Match]) (do [! random.monad] [test random.bit @@ -183,7 +183,7 @@ (list [analysis.#when (analysis.pattern/bit (not test)) analysis.#then (analysis.nat else)])]]))) -(def: (random_five hash random_element) +(def (random_five hash random_element) (All (_ a) (-> (Hash a) (Random a) (Random [a a a a a]))) (|> random_element (random.set hash 5) @@ -196,7 +196,7 @@ (undefined)))))) (with_template [<name> <hash> <random> <path> <synthesis> <pattern> <analysis>] - [(def: <name> + [(def <name> (Random [Path Match]) (do [! random.monad] [[test/0 test/1 test/2 test/3 test/4] (random_five <hash> <random>) @@ -220,7 +220,7 @@ [random_text text.hash (random.unicode 1) synthesis.path/text synthesis.text analysis.pattern/text analysis.text] ) -(def: random_simple +(def random_simple (all random.either ..random_bit ..random_nat @@ -230,7 +230,7 @@ ..random_text )) -(def: random_variant +(def random_variant (Random [Path Match]) (do [! random.monad] [[lefts/0 lefts/1 lefts/2 lefts/3 lefts/4] (random_five n.hash random.nat) @@ -263,7 +263,7 @@ (branch lefts/3 false value/3 body/3) (branch lefts/4 last_is_right? value/4 body/4))]]))) -(def: random_tuple +(def random_tuple (Random [Path Match]) (do [! random.monad] [mid_size (at ! each (n.% 4) random.nat) @@ -317,19 +317,19 @@ (branch (++ lefts') false value body)))) (list (branch (++ mid_size) true value/last body/last)))]]))) -(def: random_complex +(def random_complex (all random.either ..random_variant ..random_tuple )) -(def: random_case +(def random_case (all random.either ..random_simple ..random_complex )) -(def: case_test +(def case_test Test (do [! random.monad] [expected_input (at ! each (|>> .i64 synthesis.i64) random.nat) @@ -345,7 +345,7 @@ _ false))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.synthesize]) 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 8f59b1714..b93fd3c22 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 @@ -38,7 +38,7 @@ [meta ["[0]" archive]]]]]]]]) -(def: (n_function loop? arity body) +(def (n_function loop? arity body) (-> Bit Arity Synthesis Synthesis) (synthesis.function/abstraction [synthesis.#environment (list) @@ -50,7 +50,7 @@ synthesis.#iteration body]) body)])) -(def: (n_abstraction arity body) +(def (n_abstraction arity body) (-> Arity Analysis Analysis) (list#mix (function (_ arity_1 body) (case arity_1 @@ -63,7 +63,7 @@ body (list.reversed (list.indices arity)))) -(def: !expect +(def !expect (template (_ <pattern> <value>) (case <value> <pattern> @@ -81,7 +81,7 @@ (type: Scenario (-> Bit (Random Circumstance))) -(def: (random_unit output?) +(def (random_unit output?) Scenario (at random.monad in [true @@ -89,7 +89,7 @@ (analysis.unit)])) (with_template [<name> <random> <synthesis> <analysis>] - [(def: (<name> output?) + [(def (<name> output?) Scenario (do [! random.monad] [value <random>] @@ -105,7 +105,7 @@ [random_text (random.unicode 1) synthesis.text analysis.text] ) -(def: (random_primitive output?) +(def (random_primitive output?) Scenario (random.either (random.either (..random_unit output?) (random.either (..random_bit output?) @@ -115,7 +115,7 @@ (random.either (..random_frac output?) (..random_text output?))))) -(def: (random_variant random_value output?) +(def (random_variant random_value output?) (-> Scenario Scenario) (do [! random.monad] [lefts random.nat @@ -131,7 +131,7 @@ analysis.#right? right? analysis.#value actual_value])]))) -(def: (random_tuple random_value output?) +(def (random_tuple random_value output?) (-> Scenario Scenario) (do [! random.monad] [[loop?_left expected_left actual_left] (random_value false) @@ -141,13 +141,13 @@ (synthesis.tuple (list expected_left expected_right)) (analysis.tuple (list actual_left actual_right))]))) -(def: (random_structure random_value output?) +(def (random_structure random_value output?) (-> Scenario Scenario) (all random.either (..random_variant random_value output?) (..random_tuple random_value output?))) -(def: (random_variable arity output?) +(def (random_variable arity output?) (-> Arity Scenario) (do [! random.monad] [register (at ! each (|>> (n.% arity) ++) random.nat)] @@ -157,7 +157,7 @@ {analysis.#Reference (reference.local 1)} {analysis.#Reference (reference.foreign register)})]))) -(def: (random_constant output?) +(def (random_constant output?) Scenario (do [! random.monad] [module (random.unicode 1) @@ -166,12 +166,12 @@ (synthesis.constant [module short]) {analysis.#Reference (reference.constant [module short])}]))) -(def: (random_reference arity output?) +(def (random_reference arity output?) (-> Arity Scenario) (random.either (..random_variable arity output?) (..random_constant output?))) -(def: (random_case arity random_value output?) +(def (random_case arity random_value output?) (-> Arity Scenario Scenario) (do [! random.monad] [bit_test random.bit @@ -239,7 +239,7 @@ (list {analysis.#Bind 2} (analysis.pattern/unit))))) analysis.#then actual_output])]}]))) -(def: (random_let arity random_value output?) +(def (random_let arity random_value output?) (-> Arity Scenario Scenario) (do [! random.monad] [[loop?_input expected_input actual_input] (random_value false) @@ -254,7 +254,7 @@ analysis.#then actual_output] (list)]}]))) -(def: (random_if random_value output?) +(def (random_if random_value output?) (-> Scenario Scenario) (do [! random.monad] [[loop?_test expected_test actual_test] (random_value false) @@ -279,7 +279,7 @@ (list [analysis.#when (analysis.pattern/bit false) analysis.#then actual_else])]})]))) -(def: (random_get random_value output?) +(def (random_get random_value output?) (-> Scenario Scenario) (do [! random.monad] [lefts (|> random.nat (at ! each (n.% 10))) @@ -299,14 +299,14 @@ analysis.#then {analysis.#Reference (reference.local 2)}] (list)]}]))) -(def: (random_branch arity random_value output?) +(def (random_branch arity random_value output?) (-> Arity Scenario Scenario) (random.either (random.either (..random_case arity random_value output?) (..random_let arity random_value output?)) (random.either (..random_if random_value output?) (..random_get random_value output?)))) -(def: (random_again arity random_value output?) +(def (random_again arity random_value output?) (-> Arity Scenario Scenario) (do [! random.monad] [resets (random.list arity (random_value false))] @@ -317,7 +317,7 @@ _ (reference.foreign 0))} (list#each (|>> product.right product.right) resets)])]))) -(def: (random_scope arity output?) +(def (random_scope arity output?) (-> Arity Scenario) (do [! random.monad] [resets (random.list arity (..random_variable arity output?)) @@ -333,7 +333,7 @@ (analysis.apply [(..n_abstraction arity actual_output) (list#each (|>> product.right product.right) resets)])]))) -(def: (random_loop arity random_value output?) +(def (random_loop arity random_value output?) (-> Arity Scenario Scenario) (if output? (all random.either @@ -342,7 +342,7 @@ ) (..random_scope arity output?))) -(def: (random_abstraction' output?) +(def (random_abstraction' output?) Scenario (do [! random.monad] [[loop?_output expected_output actual_output] (..random_nat output?) @@ -362,7 +362,7 @@ {analysis.#Function environment actual_output}]))) -(def: (random_apply random_value output?) +(def (random_apply random_value output?) (-> Scenario Scenario) (do [! random.monad] [[loop?_abstraction expected_abstraction actual_abstraction] (..random_nat output?) @@ -377,7 +377,7 @@ (analysis.apply [actual_abstraction (list#each (|>> product.right product.right) inputs)])]))) -(def: (random_function random_value output?) +(def (random_function random_value output?) (-> Scenario Scenario) (if output? (..random_apply random_value output?) @@ -386,7 +386,7 @@ (..random_apply random_value output?) ))) -(def: (random_control arity random_value output?) +(def (random_control arity random_value output?) (-> Arity Scenario Scenario) (all random.either (..random_branch arity random_value output?) @@ -394,7 +394,7 @@ (..random_function random_value output?) )) -(def: (random_extension random_value output?) +(def (random_extension random_value output?) (-> Scenario Scenario) (do [! random.monad] [name (random.unicode 1) @@ -407,7 +407,7 @@ {synthesis.#Extension name (list expected_first expected_second expected_third)} {analysis.#Extension name (list actual_first actual_second actual_third)}]))) -(def: (random_body arity) +(def (random_body arity) (-> Arity Scenario) (function (random_value output?) (random.rec @@ -419,7 +419,7 @@ (..random_control arity random_value output?) (..random_extension random_value output?)))))) -(def: random_abstraction +(def random_abstraction (Random [Synthesis Analysis]) (do [! random.monad] [arity (|> random.nat (at ! each (|>> (n.% 5) ++))) @@ -427,7 +427,7 @@ (in [(..n_function loop? arity expected_body) (..n_abstraction arity actual_body)]))) -(def: abstraction +(def abstraction Test (do random.monad [[expected input] ..random_abstraction] @@ -438,7 +438,7 @@ (!expect (^.multi {try.#Success actual} (at synthesis.equivalence = expected actual))))))) -(def: application +(def application Test (do [! random.monad] [arity (|> random.nat (at ! each (|>> (n.% 10) (n.max 1)))) @@ -458,7 +458,7 @@ (!expect (^.multi {try.#Success funcS} (//primitive.corresponds? funcA funcS)))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and 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 c123d5ef7..38058930e 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 @@ -26,7 +26,7 @@ (type: (Scenario a) (-> Register Arity Register (Random [Register [a a]]))) -(def: (primitive offset arity next) +(def (primitive offset arity next) (Scenario Synthesis) (`` (all random.either (~~ (with_template [<synthesis> <random>] @@ -43,7 +43,7 @@ )) ))) -(def: (constant offset arity next) +(def (constant offset arity next) (Scenario Constant) (do random.monad [name (random.and (random.unicode 1) @@ -52,7 +52,7 @@ [name name]]))) -(def: (variable offset arity next) +(def (variable offset arity next) (Scenario Variable) (let [local (do [! random.monad] [register (at ! each (|>> (n.% arity) ++) random.nat)] @@ -69,7 +69,7 @@ [{variable.#Local foreign} {variable.#Foreign foreign}]])))))) -(def: (reference offset arity next) +(def (reference offset arity next) (Scenario Synthesis) (`` (all random.either (~~ (with_template [<tag> <random>] @@ -83,7 +83,7 @@ [//.variable ..variable] ))))) -(def: (structure offset arity next) +(def (structure offset arity next) (Scenario Synthesis) (all random.either (do [! random.monad] @@ -107,7 +107,7 @@ (//.tuple (list leftA rightA))]])) )) -(def: path +(def path (Scenario Path) (let [pattern (is (Scenario Path) (.function (again offset arity next) @@ -159,7 +159,7 @@ [(//.path/alt leftE rightE) (//.path/alt leftA rightA)]]))))) -(def: (branch offset arity next) +(def (branch offset arity next) (Scenario Synthesis) (let [random_member (is (Random Member) (random.or random.nat @@ -195,7 +195,7 @@ (//.branch/case [inputA pathA])]]))) ))) -(def: (loop offset arity next) +(def (loop offset arity next) (Scenario Synthesis) (all random.either (do random.monad @@ -213,7 +213,7 @@ //.#iteration iterationA])]])) )) -(def: (function offset arity next) +(def (function offset arity next) (Scenario Synthesis) (all random.either (do [! random.monad] @@ -232,7 +232,7 @@ //.#body bodyA])]])) )) -(def: (control offset arity next) +(def (control offset arity next) (Scenario Synthesis) (all random.either (..branch offset arity next) @@ -240,7 +240,7 @@ (..function offset arity next) )) -(def: (extension offset arity next) +(def (extension offset arity next) (Scenario Synthesis) (do random.monad [name (random.unicode 10) @@ -251,7 +251,7 @@ [{//.#Extension name (list firstE secondE thirdE)} {//.#Extension name (list firstA secondA thirdA)}]]))) -(def: (scenario offset arity next) +(def (scenario offset arity next) (Scenario Synthesis) (all random.either (..primitive offset arity next) @@ -261,7 +261,7 @@ (..extension offset arity next) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux index fc6758d5a..b0fd4e5e2 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux @@ -28,7 +28,7 @@ [meta ["[0]" archive]]]]]]]]) -(def: .public primitive +(def .public primitive (Random Analysis) (do r.monad [primitive (is (Random ////analysis.Primitive) @@ -42,7 +42,7 @@ (r.unicode 5)))] (in {////analysis.#Primitive primitive}))) -(def: .public (corresponds? analysis synthesis) +(def .public (corresponds? analysis synthesis) (-> Analysis Synthesis Bit) (`` (case [analysis synthesis] (~~ (with_template [<analysis> <post_analysis> <synthesis> <post_synthesis>] @@ -71,7 +71,7 @@ _ false))) -(def: .public test +(def .public test Test (<| (_.context (%.symbol (symbol ////synthesis.#Primitive))) (`` (all _.and 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 237a877a4..500a45325 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 @@ -34,7 +34,7 @@ [meta ["[0]" archive]]]]]]]]) -(def: variant +(def variant Test (do [! r.monad] [size (|> r.nat (at ! each (|>> (n.% 10) (n.+ 2)))) @@ -58,7 +58,7 @@ _ false))))) -(def: tuple +(def tuple Test (do [! r.monad] [size (|> r.nat (at ! each (|>> (n.% 10) (n.max 2)))) @@ -76,7 +76,7 @@ _ false))))) -(def: .public test +(def .public test Test (<| (_.context (%.symbol (symbol ////synthesis.#Structure))) (all _.and 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 2d794cf3f..6cdbb6ba4 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 @@ -27,7 +27,7 @@ [reference ["[0]" variable]]]]]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) (case <value> <pattern> @@ -44,7 +44,7 @@ (-> Context (Random [a a]))) (with_template [<name> <synthesis> <random>] - [(def: (<name> context) + [(def (<name> context) (Scenario Synthesis) (do [! random.monad] [value <random>] @@ -57,14 +57,14 @@ [text_scenario synthesis.text (random.unicode 1)] ) -(def: (primitive_scenario context) +(def (primitive_scenario context) (Scenario Synthesis) (random.either (random.either (..bit_scenario context) (..i64_scenario context)) (random.either (..f64_scenario context) (..text_scenario context)))) -(def: (with_redundancy scenario context) +(def (with_redundancy scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [redundant? random.bit] @@ -86,7 +86,7 @@ {synthesis.#Then actual_output}}}]))])) (scenario context)))) -(def: (variant_scenario scenario context) +(def (variant_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [lefts random.nat @@ -95,19 +95,19 @@ (in [(synthesis.variant [lefts right? expected]) (synthesis.variant [lefts right? input])]))) -(def: (tuple_scenario context) +(def (tuple_scenario context) (Scenario Synthesis) (let [registers (dictionary.entries (the #necessary context))] (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) +(def (structure_scenario context) (Scenario Synthesis) (random.either (..variant_scenario (..with_redundancy ..tuple_scenario) context) (..tuple_scenario context))) -(def: (let_scenario scenario context) +(def (let_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do random.monad [_ (in []) @@ -119,7 +119,7 @@ (in [(synthesis.branch/let [expected_input real_register expected_output]) (synthesis.branch/let [actual_input fake_register actual_output])]))) -(def: (if_scenario scenario context) +(def (if_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do random.monad [_ (in []) @@ -133,7 +133,7 @@ actual_then actual_else])]))) -(def: random_member +(def random_member (Random Member) (do random.monad [lefts random.nat @@ -142,7 +142,7 @@ {.#Right lefts} {.#Left lefts})))) -(def: (get_scenario scenario context) +(def (get_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [length (at ! each (|>> (n.% 5) ++) random.nat) @@ -151,11 +151,11 @@ (in [(synthesis.branch/get [path expected_record]) (synthesis.branch/get [path actual_record])]))) -(def: random_side +(def random_side (Random Side) ..random_member) -(def: (path_scenario scenario context) +(def (path_scenario scenario context) (-> (Scenario Synthesis) (Scenario Path)) (`` (all random.either (all random.either @@ -216,7 +216,7 @@ {synthesis.#Alt actual_left actual_right}])) ))) -(def: (case_scenario scenario context) +(def (case_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [_ (in []) @@ -225,7 +225,7 @@ (in [(synthesis.branch/case [expected_input expected_path]) (synthesis.branch/case [actual_input actual_path])]))) -(def: (branch_scenario scenario context) +(def (branch_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (all random.either (..let_scenario scenario context) @@ -234,9 +234,9 @@ (..case_scenario scenario context) )) -(def: scope_arity 5) +(def scope_arity 5) -(def: (scope_scenario scenario context) +(def (scope_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [_ (in []) @@ -256,7 +256,7 @@ (in [(synthesis.loop/scope [real_start (list#each product.left inits) expected_iteration]) (synthesis.loop/scope [fake_start (list#each product.right inits) actual_iteration])]))) -(def: (again_scenario scenario context) +(def (again_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [_ (in []) @@ -264,14 +264,14 @@ (in [(synthesis.loop/again (list#each product.left resets)) (synthesis.loop/again (list#each product.right resets))]))) -(def: (loop_scenario scenario context) +(def (loop_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (all random.either (..scope_scenario scenario context) (..again_scenario scenario context) )) -(def: (abstraction_scenario scenario context) +(def (abstraction_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [_ (in []) @@ -282,7 +282,7 @@ (in [(synthesis.function/abstraction [expected_environment 1 expected_body]) (synthesis.function/abstraction [actual_environment 1 actual_body])]))) -(def: (apply_scenario scenario context) +(def (apply_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (do [! random.monad] [abstraction (at ! each (|>> synthesis.constant) @@ -292,14 +292,14 @@ (in [(synthesis.function/apply [abstraction (list#each product.left inputs)]) (synthesis.function/apply [abstraction (list#each product.right inputs)])]))) -(def: (function_scenario scenario context) +(def (function_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (all random.either (..abstraction_scenario scenario context) (..apply_scenario scenario context) )) -(def: (control_scenario scenario context) +(def (control_scenario scenario context) (-> (Scenario Synthesis) (Scenario Synthesis)) (all random.either (..branch_scenario scenario context) @@ -307,7 +307,7 @@ (..function_scenario scenario context) )) -(def: (scenario context) +(def (scenario context) (Scenario Synthesis) (all random.either (..primitive_scenario context) @@ -319,12 +319,12 @@ context) )) -(def: default +(def default Context [#redundants 0 #necessary (dictionary.empty n.hash)]) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and 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 19ae703cb..08a7dd4b4 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux @@ -24,17 +24,17 @@ [\\ ["[0]" /]]) -(def: symbol_part^ +(def symbol_part^ (Random Text) (do [! r.monad] [size (|> r.nat (at ! each (|>> (n.% 20) (n.max 1))))] (r.lower_case_alpha size))) -(def: symbol^ +(def symbol^ (Random Symbol) (r.and symbol_part^ symbol_part^)) -(def: code^ +(def code^ (Random Code) (let [numeric^ (is (Random Code) (all r.either @@ -71,7 +71,7 @@ simple^ composite^)))))) -(def: code +(def code Test (do [! r.monad] [sample code^] @@ -106,20 +106,20 @@ (at code.equivalence = other =other))))))) ))) -(def: comment_text^ +(def comment_text^ (Random Text) (let [char_gen (|> r.nat (r.only (|>> (n.= (`` (char (~~ (static text.new_line))))) not)))] (do r.monad [size (|> r.nat (r#each (n.% 20)))] (r.text char_gen size)))) -(def: comment^ +(def comment^ (Random Text) (do r.monad [comment comment_text^] (in (format "... " comment text.new_line)))) -(def: comments +(def comments Test (do r.monad [sample code^ @@ -137,7 +137,7 @@ (at code.equivalence = parsed sample))) ))) -(def: .public test +(def .public test Test (<| (_.context (symbol.module (symbol /._))) (all _.and diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis.lux index 38d846740..8b5620394 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis.lux @@ -36,7 +36,7 @@ ["[1][0]" simple] ["[1][0]" access]]) -(def: !expect +(def !expect (template (_ <pattern> <value>) [(case <value> <pattern> @@ -45,17 +45,17 @@ _ false)])) -(def: random_constant +(def random_constant (Random Symbol) (random.and (random.unicode 1) (random.unicode 1))) -(def: random_variable +(def random_variable (Random Variable) (random.or random.nat random.nat)) -(def: random_environment +(def random_environment (Random (Environment Synthesis)) (do [! random.monad] [size (at ! each (n.% 5) random.nat)] @@ -63,7 +63,7 @@ (at ! each (|>> synthesis.variable)) (random.list size)))) -(def: simple +(def simple Test (`` (all _.and (~~ (with_template [<query> <check> <random> <synthesis> <equivalence>] @@ -93,7 +93,7 @@ )) ))) -(def: complex +(def complex Test (all _.and (do [! random.monad] @@ -163,7 +163,7 @@ (exception.match? \\parser.cannot_parse error))))))) )) -(def: \\parser +(def \\parser Test (<| (_.covering \\parser._) (_.for [\\parser.Parser]) @@ -206,7 +206,7 @@ )) ))) -(def: .public test +(def .public test Test (all _.and ..\\parser diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access.lux b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access.lux index 5b1a4de66..6b4e22b3a 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access.lux @@ -6,7 +6,7 @@ ["[1][0]" side] ["[1][0]" member]]) -(def: .public test +(def .public test Test (all _.and /side.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 5ff10e052..cb6eecc2b 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 @@ -15,14 +15,14 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Member) (all random.and random.nat random.bit )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Member]) 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 4d3d12bad..1fb2caec2 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 @@ -15,14 +15,14 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Side) (all random.and random.nat random.bit )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Side]) 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 3fc98a592..6c6260ba4 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 @@ -17,7 +17,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Simple) (all random.or random.bit @@ -26,7 +26,7 @@ (random.lower_case 1) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Simple]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive.lux b/stdlib/source/test/lux/tool/compiler/meta/archive.lux index 9153a8f3c..2fe7ddc98 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive.lux @@ -35,7 +35,7 @@ ["[1][0]" module] ["[1][0]" unit]]) -(def: .public (descriptor module hash) +(def .public (descriptor module hash) (-> /descriptor.Module Nat /descriptor.Descriptor) [/descriptor.#name module /descriptor.#file (format module ".lux") @@ -43,7 +43,7 @@ /descriptor.#state {.#Active} /descriptor.#references (set.empty text.hash)]) -(def: test|entry +(def test|entry Test (do random.monad [module/0 (random.lower_case 1) @@ -191,7 +191,7 @@ (exception.otherwise (exception.match? /.version_mismatch)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Archive]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/artifact.lux index 3610d0116..5bb35f439 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/artifact.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/artifact.lux @@ -12,7 +12,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Artifact) (all random.and random.nat @@ -20,7 +20,7 @@ random.bit )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Artifact /.ID]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux index 2f8086595..af39aec3d 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux @@ -10,7 +10,7 @@ [\\library ["[0]" /]]) -(def: random_definition +(def random_definition (Random /.Definition) (all random.and (random.lower_case 1) @@ -22,7 +22,7 @@ )) )) -(def: .public random +(def .public random (Random /.Category) (all random.or (random#in []) @@ -34,7 +34,7 @@ (random.lower_case 6) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Category]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/key.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/key.lux index b5c67b383..221380e77 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/key.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/key.lux @@ -11,7 +11,7 @@ ["[0]" // ["[1][0]" signature]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Key]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/module.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/module.lux index 343aeb8f7..0924b7d6e 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/module.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/module.lux @@ -19,7 +19,7 @@ ["[1][0]" document] ["[1][0]" descriptor]]) -(def: .public (random it) +(def .public (random it) (All (_ a) (-> (Random a) (Random (/.Module a)))) (all random.and random.nat @@ -30,7 +30,7 @@ (in (document.document (key.key signature example) example))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Module]) 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 6d2acbc82..379fb92de 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 @@ -18,7 +18,7 @@ [\\library ["[0]" /]]) -(def: random_module_state +(def random_module_state (Random Module_State) (all random.or (random#in []) @@ -26,7 +26,7 @@ (random#in []) )) -(def: .public (random imports) +(def .public (random imports) (-> Nat (Random /.Descriptor)) (all random.and (random.lower_case 1) @@ -36,7 +36,7 @@ (random.set text.hash imports (random.lower_case 2)) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Descriptor]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux index 4f25ec351..0647858d3 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux @@ -24,7 +24,7 @@ ["[0]" /// ["[1][0]" signature]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Document]) 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 3cd46c9c8..2c6a5c206 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux @@ -28,7 +28,7 @@ ["[0]" artifact (.only) ["[0]" category]]]]]) -(def: tagged? +(def tagged? (template (_ <tag> <it>) [(case <it> {<tag> _} @@ -37,18 +37,18 @@ _ false)])) -(def: random_dependency +(def random_dependency (Random unit.ID) (all random.and random.nat random.nat )) -(def: (random_dependencies amount) +(def (random_dependencies amount) (-> Nat (Random (Set unit.ID))) (random.set unit.hash amount ..random_dependency)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Registry]) 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 2586666ee..4f21b086b 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux @@ -21,7 +21,7 @@ ["[0]" //// ["[1][0]" version]]) -(def: .public random +(def .public random (Random /.Signature) (all random.and (all random.and @@ -30,7 +30,7 @@ ////version.random )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Signature]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/unit.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/unit.lux index 222ad9ec9..2dc7e3477 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/archive/unit.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/archive/unit.lux @@ -14,14 +14,14 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.ID) (all random.and random.nat random.nat )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.ID]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/cache.lux b/stdlib/source/test/lux/tool/compiler/meta/cache.lux index c2ba9e659..ae8df8e37 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache.lux @@ -22,7 +22,7 @@ ["$/[1]" // ["[1][0]" context]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 b93c34577..a05484a04 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux @@ -34,7 +34,7 @@ ["[1][0]" archive (.only) ["[2][0]" signature]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.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 2fcbf2246..679bdfc47 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux @@ -24,7 +24,7 @@ ["$[0]" /// ["[1][0]" context]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 9508037ea..69993bdf6 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/module.lux @@ -18,11 +18,11 @@ ["$[0]" /// ["[1][0]" context]]) -(`` (def: (bad it) +(`` (def (bad it) (-> (file.System Async) (file.System Async)) (implementation (~~ (with_template [<name>] - [(def: <name> + [(def <name> (at it <name>))] [separator] @@ -41,11 +41,11 @@ [delete] )) - (def: (make_directory path) + (def (make_directory path) (async#in {try.#Failure ""})) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] 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 47582d841..db1ab573d 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux @@ -41,7 +41,7 @@ ["$[1]" \\test]]]] ["/[1]" //]]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/tool/compiler/meta/cli.lux b/stdlib/source/test/lux/tool/compiler/meta/cli.lux index d93193c54..f4230a2f8 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cli.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cli.lux @@ -27,7 +27,7 @@ ["$[0]" / ["[1][0]" compiler]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Service /.service]) 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 b66061811..988f032f8 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux @@ -21,7 +21,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Compiler) (do [! random.monad] [definition ($symbol.random 1 1) @@ -30,7 +30,7 @@ (in [/.#definition definition /.#parameters parameters]))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Compiler]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/context.lux b/stdlib/source/test/lux/tool/compiler/meta/context.lux index 41c2adf26..8137243dc 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/context.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/context.lux @@ -16,7 +16,7 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Context) (do [! random.monad] [context (all random.either @@ -27,7 +27,7 @@ (in /.ruby))] (at ! each context (random.lower_case 1)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Context /.Extension]) diff --git a/stdlib/source/test/lux/tool/compiler/meta/export.lux b/stdlib/source/test/lux/tool/compiler/meta/export.lux index 134f62058..1058fb18c 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/export.lux @@ -34,7 +34,7 @@ ["[0]" io ["[1]" context]]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/tool/compiler/meta/import.lux b/stdlib/source/test/lux/tool/compiler/meta/import.lux index c5d2ce2b1..363fef1e5 100644 --- a/stdlib/source/test/lux/tool/compiler/meta/import.lux +++ b/stdlib/source/test/lux/tool/compiler/meta/import.lux @@ -38,7 +38,7 @@ ["[0]" io ["[1]" context]]]]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Import]) diff --git a/stdlib/source/test/lux/tool/compiler/phase.lux b/stdlib/source/test/lux/tool/compiler/phase.lux index 1692ffc4d..7a1d960cc 100644 --- a/stdlib/source/test/lux/tool/compiler/phase.lux +++ b/stdlib/source/test/lux/tool/compiler/phase.lux @@ -25,12 +25,12 @@ [meta ["[0]" archive]]]]]) -(def: (injection value) +(def (injection value) (All (_ s) (Injection (/.Operation s))) (function (_ state) {try.#Success [state value]})) -(def: (comparison init) +(def (comparison init) (All (_ s) (-> s (Comparison (/.Operation s)))) (function (_ == left right) (case [(/.result init left) @@ -44,7 +44,7 @@ (exception: oops) -(def: test|error +(def test|error Test (do [! random.monad] [state random.nat @@ -96,7 +96,7 @@ false)))) ))) -(def: test|state +(def test|state Test (do [! random.monad] [state random.nat @@ -133,7 +133,7 @@ false))) ))) -(def: test|operation +(def test|operation Test (do [! random.monad] [state random.nat @@ -165,7 +165,7 @@ ..test|error ))) -(def: test|phase +(def test|phase Test (do [! random.monad] [state/0 random.nat @@ -195,7 +195,7 @@ false)))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/tool/compiler/reference.lux b/stdlib/source/test/lux/tool/compiler/reference.lux index 3fcd3800d..eda2f8381 100644 --- a/stdlib/source/test/lux/tool/compiler/reference.lux +++ b/stdlib/source/test/lux/tool/compiler/reference.lux @@ -22,21 +22,21 @@ ["[0]" / ["[1][0]" variable]]) -(def: constant +(def constant (Random /.Constant) (all random.and (random.upper_case 5) (random.lower_case 5) )) -(def: .public random +(def .public random (Random /.Reference) (all random.or /variable.random ..constant )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Reference /.Constant]) diff --git a/stdlib/source/test/lux/tool/compiler/reference/variable.lux b/stdlib/source/test/lux/tool/compiler/reference/variable.lux index cfbd5eeaa..977fdbaf3 100644 --- a/stdlib/source/test/lux/tool/compiler/reference/variable.lux +++ b/stdlib/source/test/lux/tool/compiler/reference/variable.lux @@ -14,14 +14,14 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Variable) (all random.or random.nat random.nat )) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Variable]) diff --git a/stdlib/source/test/lux/tool/compiler/version.lux b/stdlib/source/test/lux/tool/compiler/version.lux index d441ef9d1..695c36644 100644 --- a/stdlib/source/test/lux/tool/compiler/version.lux +++ b/stdlib/source/test/lux/tool/compiler/version.lux @@ -15,11 +15,11 @@ [\\library ["[0]" /]]) -(def: .public random +(def .public random (Random /.Version) random.nat) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Version]) diff --git a/stdlib/source/test/lux/type.lux b/stdlib/source/test/lux/type.lux index e365ab360..7972ba4e8 100644 --- a/stdlib/source/test/lux/type.lux +++ b/stdlib/source/test/lux/type.lux @@ -35,17 +35,17 @@ ["[1][0]" unit] ["[1][0]" variance]]) -(def: short +(def short (Random Text) (do [! random.monad] [size (|> random.nat (at ! each (n.% 10)))] (random.unicode size))) -(def: symbol +(def symbol (Random Symbol) (random.and ..short ..short)) -(def: (random' parameters) +(def (random' parameters) (-> Nat (Random Type)) (random.rec (function (_ again) @@ -65,14 +65,14 @@ (random#each (|>> (n.% parameters) {.#Parameter})) (random.either un_parameterized))))))) -(def: .public (random parameters) +(def .public (random parameters) (-> Nat (Random Type)) (all random.either (random#each (/.univ_q parameters) (random' parameters)) (random#each (/.ex_q parameters) (random' parameters)) )) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/type/check.lux b/stdlib/source/test/lux/type/check.lux index 9f3c993dc..ebc227760 100644 --- a/stdlib/source/test/lux/type/check.lux +++ b/stdlib/source/test/lux/type/check.lux @@ -32,15 +32,15 @@ ["[0]" /]]) ... TODO: Remove the following 3 definitions ASAP. //.type already exists... -(def: short +(def short (Random Text) (random.unicode 10)) -(def: symbol +(def symbol (Random Symbol) (random.and ..short ..short)) -(def: (type' num_vars) +(def (type' num_vars) (-> Nat (Random Type)) (random.rec (function (_ again) @@ -66,11 +66,11 @@ (random#each (|>> {.#Named}) (random.and ..symbol (type' 0))) ))))) -(def: type +(def type (Random Type) (..type' 0)) -(def: (valid_type? type) +(def (valid_type? type) (-> Type Bit) (case type {.#Primitive name params} @@ -91,11 +91,11 @@ _ #0)) -(def: injection +(def injection (Injection (All (_ a) (/.Check a))) (at /.monad in)) -(def: comparison +(def comparison (Comparison (All (_ a) (/.Check a))) (function (_ == left right) (case [(/.result /.fresh_context left) (/.result /.fresh_context right)] @@ -105,7 +105,7 @@ _ false))) -(def: polymorphism +(def polymorphism Test (all _.and (_.for [/.functor] @@ -116,20 +116,20 @@ ($monad.spec ..injection ..comparison /.monad)) )) -(def: (primitive_type parameters) +(def (primitive_type parameters) (-> Nat (Random Type)) (do random.monad [primitive (random.upper_case 3) parameters (random.list parameters (primitive_type (-- parameters)))] (in {.#Primitive primitive parameters}))) -(def: clean_type +(def clean_type (Random Type) (primitive_type 2)) (exception: yolo) -(def: error_handling +(def error_handling Test (do random.monad [left ..clean_type @@ -195,7 +195,7 @@ (scenario {.#Apply left right} left))))) ))) -(def: var +(def var Test (<| (_.for [/.Var]) (all _.and @@ -324,7 +324,7 @@ false))) ))) -(def: context +(def context Test (all _.and (_.coverage [/.fresh_context] @@ -363,7 +363,7 @@ false)) )) -(def: succeeds? +(def succeeds? (All (_ a) (-> (/.Check a) Bit)) (|>> (/.result /.fresh_context) (pipe.case {try.#Success _} @@ -372,18 +372,18 @@ {try.#Failure error} false))) -(def: fails? +(def fails? (All (_ a) (-> (/.Check a) Bit)) (|>> ..succeeds? not)) -(def: nominal +(def nominal (Random Type) (do random.monad [name (random.upper_case 10)] (in {.#Primitive name (list)}))) -(def: (non_twins = random) +(def (non_twins = random) (All (_ a) (-> (-> a a Bit) (Random a) (Random [a a]))) (do random.monad [left random @@ -396,7 +396,7 @@ (type: Sub (Super Bit)) -(def: (handles_nominal_types! name/0 name/1 parameter/0 parameter/1) +(def (handles_nominal_types! name/0 name/1 parameter/0 parameter/1) (-> Text Text Type Type Bit) (let [names_matter! (and (..succeeds? (/.check {.#Primitive name/0 (list)} @@ -420,7 +420,7 @@ covariant_parameters!))) (with_template [<assertion> <combinator>] - [(def: (<assertion> name/0 name/1) + [(def (<assertion> name/0 name/1) (-> Text Text Bit) (let [pair/0 {<combinator> {.#Primitive name/0 (list)} {.#Primitive name/0 (list)}} pair/1 {<combinator> {.#Primitive name/1 (list)} {.#Primitive name/1 (list)}} @@ -442,7 +442,7 @@ [handles_sums! .#Sum] ) -(def: (handles_function_variance! nominal) +(def (handles_function_variance! nominal) (-> Type Bit) (let [functions_have_contravariant_inputs! (..succeeds? (/.check {.#Function Sub nominal} {.#Function Super nominal})) @@ -452,7 +452,7 @@ (and functions_have_contravariant_inputs! functions_have_covariant_outputs!))) -(def: (verdict check) +(def (verdict check) (All (_ _) (-> (/.Check _) (/.Check Bit))) (function (_ context) {try.#Success [context (case (check context) @@ -462,7 +462,7 @@ {try.#Failure _} false)]})) -(def: (build_ring tail_size) +(def (build_ring tail_size) (-> Nat (/.Check [Type (List Type) Type])) (do [! /.monad] [[id/head var/head] /.var @@ -480,7 +480,7 @@ _ (/.check var/last var/head)] (in [var/head var/tail+ var/last]))) -(def: (handles_var_rings! tail_size nominal/0 nominal/1) +(def (handles_var_rings! tail_size nominal/0 nominal/1) (-> Nat Type Type Bit) (let [can_create_rings_of_variables! (succeeds? (..build_ring tail_size)) @@ -510,7 +510,7 @@ can_bind_rings_of_variables! can_merge_multiple_rings_of_variables!))) -(def: (handles_vars! nominal) +(def (handles_vars! nominal) (-> Type Bit) (let [vars_check_against_themselves! (succeeds? (do /.monad @@ -558,7 +558,7 @@ cannot_rebind! bound_vars_check_against_their_bound_types!))) -(def: handles_existentials! +(def handles_existentials! Bit (let [existentials_always_match_themselves! (..succeeds? (do /.monad @@ -573,7 +573,7 @@ (and existentials_always_match_themselves! existentials_never_match_each_other!))) -(def: (handles_quantification! nominal) +(def (handles_quantification! nominal) (-> Type Bit) (let [universals_satisfy_themselves! (..succeeds? (/.check (.type (All (_ a) (Maybe a))) @@ -608,7 +608,7 @@ existentials_do_not_satisfy_particulars! ))) -(def: (handles_ultimates! nominal) +(def (handles_ultimates! nominal) (-> Type Bit) (let [any_is_the_ultimate_super_type! (and (..succeeds? (/.check Any nominal)) @@ -625,14 +625,14 @@ nothing_is_the_ultimate_sub_type! ultimates_check_themselves!))) -(def: (names_do_not_affect_types! left_name right_name nominal) +(def (names_do_not_affect_types! left_name right_name nominal) (-> Symbol Symbol Type Bit) (and (..succeeds? (/.check {.#Named left_name Any} nominal)) (..succeeds? (/.check Any {.#Named right_name nominal})) (..succeeds? (/.check {.#Named left_name Any} {.#Named right_name nominal})))) ... TODO: Test all the crazy corner cases from /.check_apply -(def: (handles_application! nominal/0 nominal/1) +(def (handles_application! nominal/0 nominal/1) (-> Type Type Bit) (let [types_flow_through! (and (..succeeds? (/.check (.type ((All (_ a) a) nominal/0)) @@ -658,7 +658,7 @@ (and types_flow_through! multiple_parameters!))) -(def: check +(def check Test (do [! random.monad] [nominal ..nominal @@ -681,7 +681,7 @@ (..names_do_not_affect_types! left_name right_name nominal) )))) -(def: dirty_type +(def dirty_type (Random (-> Type Type)) (random.rec (function (_ dirty_type) @@ -726,7 +726,7 @@ )) ))))) -(def: clean +(def clean Test (do random.monad [type_shape ..dirty_type] @@ -749,7 +749,7 @@ (try.else false)) )))) -(def: for_subsumption|ultimate +(def for_subsumption|ultimate (Random Bit) (do random.monad [example ..clean_type] @@ -760,7 +760,7 @@ (not (/.subsumes? .Nothing example)) )))) -(def: for_subsumption|nominal +(def for_subsumption|nominal (Random Bit) (do random.monad [primitive (random.upper_case 10) @@ -777,7 +777,7 @@ {.#Primitive primitive (list example)})) )))) -(def: for_subsumption|sum +(def for_subsumption|sum (Random Bit) (do random.monad [left ..clean_type @@ -792,7 +792,7 @@ {.#Sum left right})) )))) -(def: for_subsumption|product +(def for_subsumption|product (Random Bit) (do random.monad [left ..clean_type @@ -807,7 +807,7 @@ {.#Product left right})) )))) -(def: for_subsumption|function +(def for_subsumption|function (Random Bit) (do random.monad [left ..clean_type @@ -821,7 +821,7 @@ )))) (with_template [<tag> <name>] - [(def: <name> + [(def <name> (Random Bit) (do random.monad [id random.nat @@ -833,7 +833,7 @@ [.#Ex for_subsumption|existential] ) -(def: for_subsumption|quantification+application +(def for_subsumption|quantification+application (Random Bit) (do random.monad [example ..clean_type] @@ -842,7 +842,7 @@ (and (/.subsumes? (.type (Ex (_ a) (List a))) (.type (List example))) (not (/.subsumes? (.type (List example)) (.type (Ex (_ a) (List a)))))))))) -(def: for_subsumption|named +(def for_subsumption|named (Random Bit) (do random.monad [module (random.upper_case 10) @@ -854,7 +854,7 @@ {.#Named [module short] example}) )))) -(def: for_subsumption +(def for_subsumption Test (do random.monad [for_subsumption|ultimate ..for_subsumption|ultimate @@ -878,7 +878,7 @@ for_subsumption|named )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Check]) diff --git a/stdlib/source/test/lux/type/dynamic.lux b/stdlib/source/test/lux/type/dynamic.lux index 756545b61..326c92375 100644 --- a/stdlib/source/test/lux/type/dynamic.lux +++ b/stdlib/source/test/lux/type/dynamic.lux @@ -17,7 +17,7 @@ [\\library ["[0]" /]]) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Dynamic]) diff --git a/stdlib/source/test/lux/type/implicit.lux b/stdlib/source/test/lux/type/implicit.lux index 4e69f9f10..276a9c051 100644 --- a/stdlib/source/test/lux/type/implicit.lux +++ b/stdlib/source/test/lux/type/implicit.lux @@ -21,7 +21,7 @@ (/.implicitly n.multiplication) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/type/primitive.lux b/stdlib/source/test/lux/type/primitive.lux index c2be544ed..6b6f56535 100644 --- a/stdlib/source/test/lux/type/primitive.lux +++ b/stdlib/source/test/lux/type/primitive.lux @@ -25,7 +25,7 @@ (template.with_locals [g!Foo g!Bar] (these (with_template [<syntax> <meta>] - [(def: <syntax> + [(def <syntax> (syntax (_ []) (do meta.monad [frame <meta>] @@ -35,7 +35,7 @@ [specific (/.specific (template.text [g!Foo]))] ) - (def: with_no_active_frames + (def with_no_active_frames (syntax (_ [macro <code>.any]) (function (_ compiler) (let [verdict (case ((macro.expansion macro) compiler) @@ -54,7 +54,7 @@ (/.primitive (g!Bar a) Nat - (def: .public test + (def .public test Test (<| (_.covering /._) (_.for [/.primitive]) diff --git a/stdlib/source/test/lux/type/quotient.lux b/stdlib/source/test/lux/type/quotient.lux index 1653fcb36..6d1d85f6f 100644 --- a/stdlib/source/test/lux/type/quotient.lux +++ b/stdlib/source/test/lux/type/quotient.lux @@ -16,17 +16,17 @@ [\\library ["[0]" /]]) -(def: .public (random class super) +(def .public (random class super) (All (_ t c %) (-> (/.Class t c %) (Random t) (Random (/.Quotient t c %)))) (at random.monad each (/.quotient class) super)) -(def: mod_10_class +(def mod_10_class (/.class (|>> (n.% 10) %.nat))) -(def: Mod_10 +(def Mod_10 (/.type ..mod_10_class)) -(def: .public test +(def .public test Test (<| (_.covering /._) (do random.monad diff --git a/stdlib/source/test/lux/type/refinement.lux b/stdlib/source/test/lux/type/refinement.lux index 29856f4f5..b30e4a19d 100644 --- a/stdlib/source/test/lux/type/refinement.lux +++ b/stdlib/source/test/lux/type/refinement.lux @@ -17,13 +17,13 @@ [\\library ["[0]" /]]) -(def: _refiner +(def _refiner (/.refiner (n.> 123))) -(def: _type +(def _type (/.type _refiner)) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Refined]) diff --git a/stdlib/source/test/lux/type/resource.lux b/stdlib/source/test/lux/type/resource.lux index 1c2547ad9..8bd0f85d4 100644 --- a/stdlib/source/test/lux/type/resource.lux +++ b/stdlib/source/test/lux/type/resource.lux @@ -26,7 +26,7 @@ [\\library ["[0]" / (.only Res)]]) -(def: pure +(def pure Test (monad.do [! random.monad] [pre (at ! each %.nat random.nat) @@ -68,7 +68,7 @@ )) ))))) -(def: sync +(def sync Test (monad.do [! random.monad] [pre (at ! each %.nat random.nat) @@ -111,7 +111,7 @@ )) ))))) -(def: async +(def async Test (monad.do [! random.monad] [pre (at ! each %.nat random.nat) @@ -155,7 +155,7 @@ )) ))))) -(def: with_error +(def with_error (syntax (_ [exception <code>.symbol to_expand <code>.any]) (monad.do meta.monad @@ -169,7 +169,7 @@ {try.#Failure error} true)))]})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Procedure]) diff --git a/stdlib/source/test/lux/type/unit.lux b/stdlib/source/test/lux/type/unit.lux index a4198429c..048be4d5b 100644 --- a/stdlib/source/test/lux/type/unit.lux +++ b/stdlib/source/test/lux/type/unit.lux @@ -19,7 +19,7 @@ ["[1][0]" scale]]) (with_template [<name> <type> <unit>] - [(def: (<name> range) + [(def (<name> range) (-> Nat (Random (/.Qty Any <type>))) (|> random.int (at random.monad each (i.% (.int range))) @@ -30,7 +30,7 @@ [second /.Second /.second] ) -(def: polymorphism +(def polymorphism Test (all _.and (_.for [/.equivalence] @@ -41,10 +41,10 @@ ($enum.spec /.enum (..meter 1,000))) )) -(def: what (/.unit [])) -(def: What (/.type what)) +(def what (/.unit [])) +(def What (/.type what)) -(def: unit +(def unit Test (do random.monad [expected random.int] @@ -75,7 +75,7 @@ (i.= expected))) ))))) -(def: arithmetic +(def arithmetic Test (do random.monad [.let [zero (at /.meter in +0) @@ -105,7 +105,7 @@ (meter#= right))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Qty]) diff --git a/stdlib/source/test/lux/type/unit/scale.lux b/stdlib/source/test/lux/type/unit/scale.lux index 569cdc0ba..589e553ab 100644 --- a/stdlib/source/test/lux/type/unit/scale.lux +++ b/stdlib/source/test/lux/type/unit/scale.lux @@ -18,7 +18,7 @@ ["[0]" / (.only) ["/[1]" //]]]) -(def: natural +(def natural (syntax (_ []) (at meta.monad each (|>> code.nat list) @@ -26,14 +26,14 @@ (with_expansions [<from> (..natural) <to> (..natural)] - (def: how (/.scale [ratio.#denominator <from> ratio.#numerator <to>])) - (def: How (/.type how)) + (def how (/.scale [ratio.#denominator <from> ratio.#numerator <to>])) + (def How (/.type how)) - (def: how::from <from>) - (def: how::to <to>) + (def how::from <from>) + (def how::to <to>) ) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Scale]) diff --git a/stdlib/source/test/lux/type/variance.lux b/stdlib/source/test/lux/type/variance.lux index c9e65123e..1914fe807 100644 --- a/stdlib/source/test/lux/type/variance.lux +++ b/stdlib/source/test/lux/type/variance.lux @@ -17,7 +17,7 @@ (type: Sub (Super Bit)) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/world.lux b/stdlib/source/test/lux/world.lux index bebd06ea8..51002f660 100644 --- a/stdlib/source/test/lux/world.lux +++ b/stdlib/source/test/lux/world.lux @@ -17,7 +17,7 @@ ["[1]/[0]" client] ["[1]/[0]" status]]]]) -(def: .public test +(def .public test Test (all _.and /file.test diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux index cd3ac7f1d..cc43e3860 100644 --- a/stdlib/source/test/lux/world/console.lux +++ b/stdlib/source/test/lux/world/console.lux @@ -20,10 +20,10 @@ (exception: dead) -(def: mock +(def mock (/.Mock [Bit Text]) (implementation - (def: (on_read [dead? content]) + (def (on_read [dead? content]) (do try.monad [char (try.of_maybe (text.char 0 content)) [_ content] (try.of_maybe (text.split_at 1 content))] @@ -31,24 +31,24 @@ (exception.except ..dead []) (in [[dead? content] char])))) - (def: (on_read_line [dead? content]) + (def (on_read_line [dead? content]) (do try.monad [[line content] (try.of_maybe (text.split_by text.new_line content))] (if dead? (exception.except ..dead []) (in [[dead? content] line])))) - (def: (on_write message [dead? content]) + (def (on_write message [dead? content]) (if dead? (exception.except ..dead []) {try.#Success [dead? (format content message)]})) - (def: (on_close [dead? content]) + (def (on_close [dead? content]) (if dead? (exception.except ..dead []) {try.#Success [true content]})))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux index 872436a4f..3f8cb84f4 100644 --- a/stdlib/source/test/lux/world/file.lux +++ b/stdlib/source/test/lux/world/file.lux @@ -33,7 +33,7 @@ (type: Disk (Dictionary /.Path (Either [Instant Binary] (List Text)))) -(def: (file? disk @) +(def (file? disk @) (-> (Atom Disk) (-> /.Path (IO Bit))) (do io.monad [disk (atom.read! disk)] @@ -42,7 +42,7 @@ {.#Some {.#Left _}} true {.#Some {.#Right _}} false)))) -(def: (directory? disk @) +(def (directory? disk @) (-> (Atom Disk) (-> /.Path (IO Bit))) (do io.monad [disk (atom.read! disk)] @@ -51,7 +51,7 @@ {.#Some {.#Left _}} false {.#Some {.#Right _}} true)))) -(def: (alert_parent! disk alert @) +(def (alert_parent! disk alert @) (-> (Atom Disk) (-> (List /.Path) (List /.Path)) (-> /.Path (IO (Try Any)))) @@ -66,7 +66,7 @@ _ (in {try.#Failure ""})))) -(def: (write fs disk @ it) +(def (write fs disk @ it) (-> (/.System Async) (Atom Disk) (-> /.Path Binary (IO (Try Any)))) (do [! io.monad] [now instant.now @@ -86,7 +86,7 @@ _ (in {try.#Failure ""})))) -(def: (read disk @) +(def (read disk @) (-> (Atom Disk) (-> /.Path (IO (Try Binary)))) (do io.monad [disk (atom.read! disk)] @@ -97,7 +97,7 @@ _ {try.#Failure ""})))) -(def: (delete fs disk @) +(def (delete fs disk @) (-> (/.System Async) (Atom Disk) (-> /.Path (IO (Try Any)))) (do [! io.monad] @@ -123,21 +123,21 @@ _ (in {try.#Failure ""})))) -(def: (fs /) +(def (fs /) (-> Text (/.System IO)) (let [disk (is (Atom Disk) (atom.atom (dictionary.empty text.hash))) mock (/.mock /)] (implementation - (def: separator /) + (def separator /) - (def: file? (..file? disk)) - (def: directory? (..directory? disk)) - (def: write (..write mock disk)) - (def: read (..read disk)) - (def: delete (..delete mock disk)) + (def file? (..file? disk)) + (def directory? (..directory? disk)) + (def write (..write mock disk)) + (def read (..read disk)) + (def delete (..delete mock disk)) - (def: (file_size @) + (def (file_size @) (do [! io.monad] [disk (atom.read! disk)] (in (case (dictionary.value @ disk) @@ -146,7 +146,7 @@ _ {try.#Failure ""})))) - (def: (last_modified @) + (def (last_modified @) (do [! io.monad] [disk (atom.read! disk)] (in (case (dictionary.value @ disk) @@ -155,7 +155,7 @@ _ {try.#Failure ""})))) - (def: (can_execute? @) + (def (can_execute? @) (do [! io.monad] [disk (atom.read! disk)] (in (case (dictionary.value @ disk) @@ -165,7 +165,7 @@ _ {try.#Failure ""})))) - (def: (make_directory @) + (def (make_directory @) (do [! io.monad] [disk' (atom.read! disk)] (case (dictionary.value @ disk') @@ -181,7 +181,7 @@ _ (in {try.#Failure ""})))) - (def: (directory_files @) + (def (directory_files @) (do [! io.monad] [disk' (atom.read! disk)] (case (dictionary.value @ disk') @@ -192,7 +192,7 @@ _ (in {try.#Failure ""})))) - (def: (sub_directories @) + (def (sub_directories @) (do [! io.monad] [disk' (atom.read! disk)] (case (dictionary.value @ disk') @@ -203,7 +203,7 @@ _ (in {try.#Failure ""})))) - (def: (append @ it) + (def (append @ it) (do [! io.monad] [now instant.now disk' (atom.read! disk)] @@ -220,7 +220,7 @@ _ (in {try.#Failure ""})))) - (def: (modify @ it) + (def (modify @ it) (do [! io.monad] [disk' (atom.read! disk)] (case (dictionary.value @ disk') @@ -231,14 +231,14 @@ _ (in {try.#Failure ""})))) - (def: (move @ it) + (def (move @ it) (do [! (try.with io.monad)] [data (..read disk @) write (..write mock disk it data)] (..delete mock disk @))) ))) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux index 2a2053e77..78e239524 100644 --- a/stdlib/source/test/lux/world/file/watch.lux +++ b/stdlib/source/test/lux/world/file/watch.lux @@ -25,7 +25,7 @@ [data ["$[0]" binary]]]) -(def: concern +(def concern (Random [/.Concern (Predicate /.Concern)]) (all random.either (random#in [/.creation /.creation?]) @@ -33,7 +33,7 @@ (random#in [/.deletion /.deletion?]) )) -(def: concern::test +(def concern::test Test (all _.and (_.coverage [/.creation /.creation?] @@ -64,7 +64,7 @@ (/.deletion? /.all))) )) -(def: exception +(def exception Test (do [! random.monad] [directory (random.alphabetic 5) @@ -88,7 +88,7 @@ false))))) ))) -(def: (no_events_prior_to_creation! fs watcher directory) +(def (no_events_prior_to_creation! fs watcher directory) (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit))) (do [! (try.with async.monad)] [_ (at fs make_directory directory) @@ -96,7 +96,7 @@ (|> (at watcher poll []) (at ! each list.empty?)))) -(def: (after_creation! fs watcher expected_path) +(def (after_creation! fs watcher expected_path) (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit))) (do (try.with async.monad) [_ (is (Async (Try Any)) @@ -114,7 +114,7 @@ false) (list.empty? poll/post))))) -(def: (after_modification! fs watcher data expected_path) +(def (after_modification! fs watcher data expected_path) (-> (//.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."}) @@ -132,7 +132,7 @@ false) (list.empty? poll/2'))))) -(def: (after_deletion! fs watcher expected_path) +(def (after_deletion! fs watcher expected_path) (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit))) (do (try.with async.monad) [_ (at fs delete expected_path) @@ -148,7 +148,7 @@ false) (list.empty? poll/3'))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Watcher]) diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux index 6d3daa301..a2db959e7 100644 --- a/stdlib/source/test/lux/world/input/keyboard.lux +++ b/stdlib/source/test/lux/world/input/keyboard.lux @@ -110,7 +110,7 @@ /.f22 /.f23 /.f24]])] - (def: listing + (def listing (List /.Key) (list.together (`` (list (~~ (with_template [<definition> <keys>] [((is (-> Any (List /.Key)) @@ -120,30 +120,30 @@ <groups>)))))) - (def: catalogue + (def catalogue (Set /.Key) (set.of_list n.hash ..listing)) - (def: verdict + (def verdict (n.= (list.size ..listing) (set.size ..catalogue))) (with_template [<definition> <keys>] - [(def: <definition> + [(def <definition> Test (_.coverage <keys> ..verdict))] <groups>) - (def: .public random + (def .public random (Random /.Key) (let [count (list.size ..listing)] (do [! random.monad] [choice (at ! each (n.% count) random.nat)] (in (maybe.trusted (list.item choice ..listing)))))) - (def: .public test + (def .public test Test (<| (_.covering /._) (_.for [/.Key]) diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux index 1ccf30196..1572f30d3 100644 --- a/stdlib/source/test/lux/world/net/http/client.lux +++ b/stdlib/source/test/lux/world/net/http/client.lux @@ -29,7 +29,7 @@ ["/[1]" // (.only) ["[1][0]" status]]]]) -(def: (verification ! expected response) +(def (verification ! expected response) (All (_ !) (-> (Monad !) Nat (! (Try (//.Response !))) (! Bit))) @@ -51,7 +51,7 @@ {try.#Failure error} (in false)))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Client]) @@ -69,7 +69,7 @@ headers (random.dictionary text.hash num_headers (random.lower_case 3) (random.lower_case 3)) .let [mock (is (/.Client IO) (implementation - (def: (request method url headers data) + (def (request method url headers data) (io.io (let [value (case method {//.#Post} on_post {//.#Get} on_get diff --git a/stdlib/source/test/lux/world/net/http/status.lux b/stdlib/source/test/lux/world/net/http/status.lux index 28789a09a..4ba760537 100644 --- a/stdlib/source/test/lux/world/net/http/status.lux +++ b/stdlib/source/test/lux/world/net/http/status.lux @@ -82,7 +82,7 @@ /.loop_detected /.not_extended /.network_authentication_required]])] - (def: all + (def all (List //.Status) (list.together (`` (list (~~ (with_template [<category> <status+>] [((is (-> Any (List //.Status)) @@ -92,23 +92,23 @@ <categories>)))))) - (def: unique + (def unique (Set //.Status) (set.of_list n.hash ..all)) - (def: verdict + (def verdict (n.= (list.size ..all) (set.size ..unique))) (with_template [<category> <status+>] - [(def: <category> + [(def <category> Test (_.coverage <status+> ..verdict))] <categories>) - (def: .public test + (def .public test Test (<| (_.covering /._) (`` (.all _.and diff --git a/stdlib/source/test/lux/world/output/video/resolution.lux b/stdlib/source/test/lux/world/output/video/resolution.lux index f9e679733..d7fa6e20b 100644 --- a/stdlib/source/test/lux/world/output/video/resolution.lux +++ b/stdlib/source/test/lux/world/output/video/resolution.lux @@ -35,22 +35,22 @@ /.wuxga /.wqhd /.uhd_4k)] - (def: listing + (def listing (List /.Resolution) (list <resolutions>)) - (def: catalogue + (def catalogue (Set /.Resolution) (set.of_list /.hash ..listing)) - (def: .public random + (def .public random (Random /.Resolution) (let [count (list.size ..listing)] (do [! random.monad] [choice (at ! each (n.% count) random.nat)] (in (maybe.trusted (list.item choice ..listing)))))) - (def: .public test + (def .public test Test (<| (_.covering /._) (_.for [/.Resolution]) diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux index 3067422e0..dac2768c9 100644 --- a/stdlib/source/test/lux/world/program.lux +++ b/stdlib/source/test/lux/world/program.lux @@ -28,17 +28,17 @@ [\\specification ["$[0]" /]]) -(def: (environment env_size) +(def (environment env_size) (-> Nat (Random Environment)) (random.dictionary text.hash env_size (random.alphabetic 5) (random.alphabetic 5))) -(def: path +(def path (Random Path) (random.alphabetic 5)) -(def: .public test +(def .public test Test (<| (_.covering /._) (do [! random.monad] diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux index 3ad40e908..dd83fd31b 100644 --- a/stdlib/source/test/lux/world/shell.lux +++ b/stdlib/source/test/lux/world/shell.lux @@ -30,57 +30,57 @@ (exception: dead) -(def: (mock [environment working_directory command arguments]) +(def (mock [environment working_directory command arguments]) (-> [Environment Path /.Command (List /.Argument)] (/.Mock Bit)) (implementation - (def: (on_read dead?) + (def (on_read dead?) (if dead? (exception.except ..dead []) (do try.monad [echo (try.of_maybe (list.head arguments))] (in [dead? echo])))) - (def: (on_fail dead?) + (def (on_fail dead?) (if dead? (exception.except ..dead []) {try.#Success [dead? ""]})) - (def: (on_write message dead?) + (def (on_write message dead?) (if dead? (exception.except ..dead []) {try.#Success dead?})) - (def: (on_destroy dead?) + (def (on_destroy dead?) (if dead? (exception.except ..dead []) {try.#Success true})) - (def: (on_await dead?) + (def (on_await dead?) (if dead? (exception.except ..dead []) {try.#Success [true /.normal]})))) -(def: (io_shell command oops input destruction exit) +(def (io_shell command oops input destruction exit) (-> /.Command Text Text Text /.Exit (/.Shell IO)) (implementation - (def: (execute [environment working_directory command arguments]) + (def (execute [environment working_directory command arguments]) (<| io.io {try.#Success} (is (/.Process IO)) (implementation - (def: (read _) + (def (read _) (io.io {try.#Success command})) - (def: (fail _) + (def (fail _) (io.io {try.#Success oops})) - (def: (write message) + (def (write message) (io.io {try.#Failure message})) - (def: (destroy _) + (def (destroy _) (io.io {try.#Failure destruction})) - (def: (await _) + (def (await _) (io.io {try.#Success exit}))))))) -(def: .public test +(def .public test Test (<| (_.covering /._) (all _.and |