aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/aedifex.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/extension.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/build.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/stamp.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/time.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/version.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/version/value.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/time.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/time/date.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/time/time.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/type.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/versioning.lux4
-rw-r--r--stdlib/source/test/aedifex/cache.lux16
-rw-r--r--stdlib/source/test/aedifex/cli.lux14
-rw-r--r--stdlib/source/test/aedifex/command.lux2
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux4
-rw-r--r--stdlib/source/test/aedifex/command/build.lux42
-rw-r--r--stdlib/source/test/aedifex/command/clean.lux16
-rw-r--r--stdlib/source/test/aedifex/command/deploy.lux4
-rw-r--r--stdlib/source/test/aedifex/command/deps.lux2
-rw-r--r--stdlib/source/test/aedifex/command/install.lux6
-rw-r--r--stdlib/source/test/aedifex/command/pom.lux2
-rw-r--r--stdlib/source/test/aedifex/command/test.lux12
-rw-r--r--stdlib/source/test/aedifex/command/version.lux14
-rw-r--r--stdlib/source/test/aedifex/dependency.lux4
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux12
-rw-r--r--stdlib/source/test/aedifex/dependency/resolution.lux58
-rw-r--r--stdlib/source/test/aedifex/dependency/status.lux4
-rw-r--r--stdlib/source/test/aedifex/hash.lux4
-rw-r--r--stdlib/source/test/aedifex/input.lux6
-rw-r--r--stdlib/source/test/aedifex/local.lux2
-rw-r--r--stdlib/source/test/aedifex/metadata.lux2
-rw-r--r--stdlib/source/test/aedifex/metadata/artifact.lux4
-rw-r--r--stdlib/source/test/aedifex/metadata/snapshot.lux8
-rw-r--r--stdlib/source/test/aedifex/package.lux4
-rw-r--r--stdlib/source/test/aedifex/parser.lux16
-rw-r--r--stdlib/source/test/aedifex/pom.lux2
-rw-r--r--stdlib/source/test/aedifex/profile.lux34
-rw-r--r--stdlib/source/test/aedifex/project.lux6
-rw-r--r--stdlib/source/test/aedifex/repository.lux18
-rw-r--r--stdlib/source/test/aedifex/repository/identity.lux4
-rw-r--r--stdlib/source/test/aedifex/repository/local.lux2
-rw-r--r--stdlib/source/test/aedifex/repository/origin.lux4
-rw-r--r--stdlib/source/test/aedifex/repository/remote.lux12
-rw-r--r--stdlib/source/test/aedifex/runtime.lux4
-rw-r--r--stdlib/source/test/lux.lux102
-rw-r--r--stdlib/source/test/lux/abstract.lux8
-rw-r--r--stdlib/source/test/lux/abstract/apply.lux2
-rw-r--r--stdlib/source/test/lux/abstract/codec.lux10
-rw-r--r--stdlib/source/test/lux/abstract/comonad.lux2
-rw-r--r--stdlib/source/test/lux/abstract/comonad/free.lux8
-rw-r--r--stdlib/source/test/lux/abstract/enum.lux2
-rw-r--r--stdlib/source/test/lux/abstract/equivalence.lux14
-rw-r--r--stdlib/source/test/lux/abstract/functor.lux12
-rw-r--r--stdlib/source/test/lux/abstract/functor/contravariant.lux2
-rw-r--r--stdlib/source/test/lux/abstract/hash.lux4
-rw-r--r--stdlib/source/test/lux/abstract/interval.lux26
-rw-r--r--stdlib/source/test/lux/abstract/mix.lux2
-rw-r--r--stdlib/source/test/lux/abstract/monad.lux2
-rw-r--r--stdlib/source/test/lux/abstract/monad/free.lux8
-rw-r--r--stdlib/source/test/lux/abstract/monoid.lux2
-rw-r--r--stdlib/source/test/lux/abstract/order.lux4
-rw-r--r--stdlib/source/test/lux/abstract/predicate.lux6
-rw-r--r--stdlib/source/test/lux/control.lux6
-rw-r--r--stdlib/source/test/lux/control/concatenative.lux14
-rw-r--r--stdlib/source/test/lux/control/concurrency/actor.lux8
-rw-r--r--stdlib/source/test/lux/control/concurrency/async.lux8
-rw-r--r--stdlib/source/test/lux/control/concurrency/atom.lux2
-rw-r--r--stdlib/source/test/lux/control/concurrency/frp.lux8
-rw-r--r--stdlib/source/test/lux/control/concurrency/semaphore.lux12
-rw-r--r--stdlib/source/test/lux/control/concurrency/stm.lux6
-rw-r--r--stdlib/source/test/lux/control/concurrency/thread.lux2
-rw-r--r--stdlib/source/test/lux/control/continuation.lux6
-rw-r--r--stdlib/source/test/lux/control/exception.lux4
-rw-r--r--stdlib/source/test/lux/control/function.lux4
-rw-r--r--stdlib/source/test/lux/control/function/contract.lux2
-rw-r--r--stdlib/source/test/lux/control/function/inline.lux8
-rw-r--r--stdlib/source/test/lux/control/function/memo.lux10
-rw-r--r--stdlib/source/test/lux/control/function/mixin.lux4
-rw-r--r--stdlib/source/test/lux/control/function/mutual.lux10
-rw-r--r--stdlib/source/test/lux/control/io.lux6
-rw-r--r--stdlib/source/test/lux/control/lazy.lux8
-rw-r--r--stdlib/source/test/lux/control/maybe.lux2
-rw-r--r--stdlib/source/test/lux/control/parser.lux22
-rw-r--r--stdlib/source/test/lux/control/parser/cli.lux4
-rw-r--r--stdlib/source/test/lux/control/parser/code.lux10
-rw-r--r--stdlib/source/test/lux/control/parser/environment.lux2
-rw-r--r--stdlib/source/test/lux/control/parser/json.lux6
-rw-r--r--stdlib/source/test/lux/control/parser/tree.lux8
-rw-r--r--stdlib/source/test/lux/control/parser/type.lux16
-rw-r--r--stdlib/source/test/lux/control/parser/xml.lux12
-rw-r--r--stdlib/source/test/lux/control/pipe.lux2
-rw-r--r--stdlib/source/test/lux/control/reader.lux6
-rw-r--r--stdlib/source/test/lux/control/region.lux10
-rw-r--r--stdlib/source/test/lux/control/remember.lux16
-rw-r--r--stdlib/source/test/lux/control/security/capability.lux2
-rw-r--r--stdlib/source/test/lux/control/security/policy.lux20
-rw-r--r--stdlib/source/test/lux/control/state.lux16
-rw-r--r--stdlib/source/test/lux/control/thread.lux6
-rw-r--r--stdlib/source/test/lux/control/try.lux8
-rw-r--r--stdlib/source/test/lux/control/writer.lux6
-rw-r--r--stdlib/source/test/lux/data.lux12
-rw-r--r--stdlib/source/test/lux/data/binary.lux56
-rw-r--r--stdlib/source/test/lux/data/bit.lux2
-rw-r--r--stdlib/source/test/lux/data/collection.lux10
-rw-r--r--stdlib/source/test/lux/data/collection/array.lux16
-rw-r--r--stdlib/source/test/lux/data/collection/bits.lux6
-rw-r--r--stdlib/source/test/lux/data/collection/dictionary.lux12
-rw-r--r--stdlib/source/test/lux/data/collection/dictionary/ordered.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/dictionary/plist.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/list.lux20
-rw-r--r--stdlib/source/test/lux/data/collection/queue.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/queue/priority.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/sequence.lux8
-rw-r--r--stdlib/source/test/lux/data/collection/set.lux8
-rw-r--r--stdlib/source/test/lux/data/collection/set/multi.lux10
-rw-r--r--stdlib/source/test/lux/data/collection/set/ordered.lux6
-rw-r--r--stdlib/source/test/lux/data/collection/stack.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/stream.lux8
-rw-r--r--stdlib/source/test/lux/data/collection/tree.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/tree/finger.lux6
-rw-r--r--stdlib/source/test/lux/data/collection/tree/zipper.lux4
-rw-r--r--stdlib/source/test/lux/data/color.lux24
-rw-r--r--stdlib/source/test/lux/data/color/named.lux10
-rw-r--r--stdlib/source/test/lux/data/format/json.lux22
-rw-r--r--stdlib/source/test/lux/data/format/tar.lux20
-rw-r--r--stdlib/source/test/lux/data/format/xml.lux14
-rw-r--r--stdlib/source/test/lux/data/identity.lux6
-rw-r--r--stdlib/source/test/lux/data/product.lux2
-rw-r--r--stdlib/source/test/lux/data/sum.lux2
-rw-r--r--stdlib/source/test/lux/data/text.lux40
-rw-r--r--stdlib/source/test/lux/data/text/buffer.lux4
-rw-r--r--stdlib/source/test/lux/data/text/encoding.lux12
-rw-r--r--stdlib/source/test/lux/data/text/encoding/utf8.lux2
-rw-r--r--stdlib/source/test/lux/data/text/escape.lux18
-rw-r--r--stdlib/source/test/lux/data/text/regex.lux30
-rw-r--r--stdlib/source/test/lux/data/text/unicode/block.lux6
-rw-r--r--stdlib/source/test/lux/data/text/unicode/set.lux4
-rw-r--r--stdlib/source/test/lux/debug.lux16
-rw-r--r--stdlib/source/test/lux/documentation.lux10
-rw-r--r--stdlib/source/test/lux/extension.lux6
-rw-r--r--stdlib/source/test/lux/ffi.js.lux2
-rw-r--r--stdlib/source/test/lux/ffi.jvm.lux20
-rw-r--r--stdlib/source/test/lux/ffi.lua.lux2
-rw-r--r--stdlib/source/test/lux/ffi.old.lux12
-rw-r--r--stdlib/source/test/lux/ffi.php.lux2
-rw-r--r--stdlib/source/test/lux/ffi.py.lux2
-rw-r--r--stdlib/source/test/lux/ffi.rb.lux2
-rw-r--r--stdlib/source/test/lux/ffi.scm.lux2
-rw-r--r--stdlib/source/test/lux/ffi/export.js.lux6
-rw-r--r--stdlib/source/test/lux/ffi/export.jvm.lux24
-rw-r--r--stdlib/source/test/lux/ffi/export.lua.lux6
-rw-r--r--stdlib/source/test/lux/ffi/export.py.lux6
-rw-r--r--stdlib/source/test/lux/ffi/export.rb.lux10
-rw-r--r--stdlib/source/test/lux/locale.lux10
-rw-r--r--stdlib/source/test/lux/locale/language.lux20
-rw-r--r--stdlib/source/test/lux/locale/territory.lux16
-rw-r--r--stdlib/source/test/lux/macro.lux24
-rw-r--r--stdlib/source/test/lux/macro/code.lux16
-rw-r--r--stdlib/source/test/lux/macro/local.lux10
-rw-r--r--stdlib/source/test/lux/macro/pattern.lux4
-rw-r--r--stdlib/source/test/lux/macro/syntax.lux4
-rw-r--r--stdlib/source/test/lux/macro/syntax/check.lux4
-rw-r--r--stdlib/source/test/lux/macro/syntax/declaration.lux4
-rw-r--r--stdlib/source/test/lux/macro/syntax/definition.lux6
-rw-r--r--stdlib/source/test/lux/macro/syntax/export.lux4
-rw-r--r--stdlib/source/test/lux/macro/syntax/input.lux4
-rw-r--r--stdlib/source/test/lux/macro/syntax/type/variable.lux4
-rw-r--r--stdlib/source/test/lux/macro/template.lux6
-rw-r--r--stdlib/source/test/lux/math.lux6
-rw-r--r--stdlib/source/test/lux/math/infix.lux2
-rw-r--r--stdlib/source/test/lux/math/logic/continuous.lux2
-rw-r--r--stdlib/source/test/lux/math/logic/fuzzy.lux18
-rw-r--r--stdlib/source/test/lux/math/modular.lux4
-rw-r--r--stdlib/source/test/lux/math/modulus.lux6
-rw-r--r--stdlib/source/test/lux/math/number.lux4
-rw-r--r--stdlib/source/test/lux/math/number/complex.lux30
-rw-r--r--stdlib/source/test/lux/math/number/frac.lux18
-rw-r--r--stdlib/source/test/lux/math/number/i16.lux4
-rw-r--r--stdlib/source/test/lux/math/number/i32.lux4
-rw-r--r--stdlib/source/test/lux/math/number/i64.lux12
-rw-r--r--stdlib/source/test/lux/math/number/i8.lux4
-rw-r--r--stdlib/source/test/lux/math/number/int.lux6
-rw-r--r--stdlib/source/test/lux/math/number/nat.lux6
-rw-r--r--stdlib/source/test/lux/math/number/ratio.lux6
-rw-r--r--stdlib/source/test/lux/math/number/rev.lux4
-rw-r--r--stdlib/source/test/lux/meta.lux30
-rw-r--r--stdlib/source/test/lux/meta/configuration.lux6
-rw-r--r--stdlib/source/test/lux/meta/location.lux4
-rw-r--r--stdlib/source/test/lux/meta/symbol.lux4
-rw-r--r--stdlib/source/test/lux/meta/version.lux4
-rw-r--r--stdlib/source/test/lux/program.lux4
-rw-r--r--stdlib/source/test/lux/static.lux2
-rw-r--r--stdlib/source/test/lux/target.lux8
-rw-r--r--stdlib/source/test/lux/target/js.lux44
-rw-r--r--stdlib/source/test/lux/target/jvm.lux160
-rw-r--r--stdlib/source/test/lux/target/lua.lux44
-rw-r--r--stdlib/source/test/lux/target/python.lux44
-rw-r--r--stdlib/source/test/lux/target/ruby.lux58
-rw-r--r--stdlib/source/test/lux/test.lux16
-rw-r--r--stdlib/source/test/lux/time.lux8
-rw-r--r--stdlib/source/test/lux/time/date.lux2
-rw-r--r--stdlib/source/test/lux/time/day.lux4
-rw-r--r--stdlib/source/test/lux/time/duration.lux2
-rw-r--r--stdlib/source/test/lux/time/instant.lux2
-rw-r--r--stdlib/source/test/lux/time/month.lux4
-rw-r--r--stdlib/source/test/lux/time/year.lux4
-rw-r--r--stdlib/source/test/lux/tool.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/arity.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis.lux30
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/complex.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux26
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/inference.lux22
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/macro.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/module.lux16
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/pattern.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/scope.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/simple.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/analysis/type.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis.lux26
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/case.lux18
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/complex.lux26
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/function.lux12
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/reference.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/analysis/simple.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/extension.lux16
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux18
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/case.lux34
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/function.lux60
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/loop.lux26
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/primitive.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/structure.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/phase/synthesis/variable.lux52
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/syntax.lux16
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/synthesis.lux16
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/member.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/synthesis/access/side.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/language/lux/synthesis/simple.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/artifact.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/artifact/category.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/key.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/module.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/module/descriptor.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/module/document.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux8
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/signature.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/archive/unit.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/cache.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/cache/archive.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/cache/artifact.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/cache/module.lux8
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/cache/purge.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/cli.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/cli/compiler.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/context.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/export.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/meta/import.lux2
-rw-r--r--stdlib/source/test/lux/tool/compiler/phase.lux14
-rw-r--r--stdlib/source/test/lux/tool/compiler/reference.lux6
-rw-r--r--stdlib/source/test/lux/tool/compiler/reference/variable.lux4
-rw-r--r--stdlib/source/test/lux/tool/compiler/version.lux4
-rw-r--r--stdlib/source/test/lux/type.lux10
-rw-r--r--stdlib/source/test/lux/type/check.lux84
-rw-r--r--stdlib/source/test/lux/type/dynamic.lux2
-rw-r--r--stdlib/source/test/lux/type/implicit.lux2
-rw-r--r--stdlib/source/test/lux/type/primitive.lux6
-rw-r--r--stdlib/source/test/lux/type/quotient.lux8
-rw-r--r--stdlib/source/test/lux/type/refinement.lux6
-rw-r--r--stdlib/source/test/lux/type/resource.lux10
-rw-r--r--stdlib/source/test/lux/type/unit.lux14
-rw-r--r--stdlib/source/test/lux/type/unit/scale.lux12
-rw-r--r--stdlib/source/test/lux/type/variance.lux2
-rw-r--r--stdlib/source/test/lux/world.lux2
-rw-r--r--stdlib/source/test/lux/world/console.lux12
-rw-r--r--stdlib/source/test/lux/world/file.lux46
-rw-r--r--stdlib/source/test/lux/world/file/watch.lux16
-rw-r--r--stdlib/source/test/lux/world/input/keyboard.lux12
-rw-r--r--stdlib/source/test/lux/world/net/http/client.lux6
-rw-r--r--stdlib/source/test/lux/world/net/http/status.lux10
-rw-r--r--stdlib/source/test/lux/world/output/video/resolution.lux8
-rw-r--r--stdlib/source/test/lux/world/program.lux6
-rw-r--r--stdlib/source/test/lux/world/shell.lux28
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