diff options
Diffstat (limited to 'stdlib/source/specification/lux')
17 files changed, 86 insertions, 86 deletions
diff --git a/stdlib/source/specification/lux/abstract/apply.lux b/stdlib/source/specification/lux/abstract/apply.lux index 431fc8f29..f14a43aa5 100644 --- a/stdlib/source/specification/lux/abstract/apply.lux +++ b/stdlib/source/specification/lux/abstract/apply.lux @@ -5,17 +5,17 @@ [abstract [monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Apply]}]] + ["[0]" / {"+" [Apply]}]] [// [functor {"+" [Injection Comparison]}]]) -(def: (identity injection comparison (^open "\.")) +(def: (identity injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample (\ ! each injection random.nat)] @@ -24,7 +24,7 @@ (\on sample (injection function.identity)) sample)))) -(def: (homomorphism injection comparison (^open "\.")) +(def: (homomorphism injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample random.nat @@ -34,7 +34,7 @@ (\on (injection sample) (injection increase)) (injection (increase sample)))))) -(def: (interchange injection comparison (^open "\.")) +(def: (interchange injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample random.nat @@ -45,7 +45,7 @@ (\on (injection increase) (injection (: (-> (-> Nat Nat) Nat) (function (_ f) (f sample))))))))) -(def: (composition injection comparison (^open "\.")) +(def: (composition injection comparison (^open "\[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Apply f) Test)) (do [! random.monad] [sample random.nat diff --git a/stdlib/source/specification/lux/abstract/codec.lux b/stdlib/source/specification/lux/abstract/codec.lux index bea518b69..5cbdb2aa1 100644 --- a/stdlib/source/specification/lux/abstract/codec.lux +++ b/stdlib/source/specification/lux/abstract/codec.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [control - ["." try]] + ["[0]" try]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// [equivalence {"+" [Equivalence]}]]]]) -(def: .public (spec (^open "@//.") (^open "@//.") generator) +(def: .public (spec (^open "@//[0]") (^open "@//[0]") generator) (All (_ m a) (-> (Equivalence a) (/.Codec m a) (Random a) Test)) (do random.monad [expected generator] diff --git a/stdlib/source/specification/lux/abstract/comonad.lux b/stdlib/source/specification/lux/abstract/comonad.lux index 4941d31ad..ee28bfb49 100644 --- a/stdlib/source/specification/lux/abstract/comonad.lux +++ b/stdlib/source/specification/lux/abstract/comonad.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [CoMonad]}]] + ["[0]" / {"+" [CoMonad]}]] [// [functor {"+" [Injection Comparison]}]]) -(def: (left_identity injection (^open "_//.")) +(def: (left_identity injection (^open "_//[0]")) (All (_ f) (-> (Injection f) (CoMonad f) Test)) (do [! random.monad] [sample random.nat @@ -25,7 +25,7 @@ (n.= (morphism start) (|> start _//disjoint (_//each morphism) _//out))))) -(def: (right_identity injection comparison (^open "_//.")) +(def: (right_identity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (CoMonad f) Test)) (do random.monad [sample random.nat @@ -35,7 +35,7 @@ (== start (|> start _//disjoint (_//each _//out)))))) -(def: (associativity injection comparison (^open "_//.")) +(def: (associativity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (CoMonad f) Test)) (do [! random.monad] [sample random.nat diff --git a/stdlib/source/specification/lux/abstract/enum.lux b/stdlib/source/specification/lux/abstract/enum.lux index 2f71401ae..26fdf0828 100644 --- a/stdlib/source/specification/lux/abstract/enum.lux +++ b/stdlib/source/specification/lux/abstract/enum.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "\.") gen_sample) +(def: .public (spec (^open "\[0]") gen_sample) (All (_ a) (-> (/.Enum a) (Random a) Test)) (do random.monad [sample gen_sample] diff --git a/stdlib/source/specification/lux/abstract/equivalence.lux b/stdlib/source/specification/lux/abstract/equivalence.lux index 59786ab42..d4c335794 100644 --- a/stdlib/source/specification/lux/abstract/equivalence.lux +++ b/stdlib/source/specification/lux/abstract/equivalence.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / {"+" [Equivalence]}]]) + ["[0]" / {"+" [Equivalence]}]]) -(def: .public (spec (^open "_//.") random) +(def: .public (spec (^open "_//[0]") random) (All (_ a) (-> (Equivalence a) (Random a) Test)) (do random.monad [left random diff --git a/stdlib/source/specification/lux/abstract/functor.lux b/stdlib/source/specification/lux/abstract/functor.lux index 681f6dcd5..37e38ad42 100644 --- a/stdlib/source/specification/lux/abstract/functor.lux +++ b/stdlib/source/specification/lux/abstract/functor.lux @@ -6,13 +6,13 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Functor]}]]) + ["[0]" / {"+" [Functor]}]]) (type: .public (Injection f) (All (_ a) (-> a (f a)))) @@ -22,7 +22,7 @@ (-> (Equivalence a) (Equivalence (f a))))) -(def: (identity injection comparison (^open "@//.")) +(def: (identity injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Functor f) Test)) (do [! random.monad] [sample (\ ! each injection random.nat)] @@ -31,7 +31,7 @@ (@//each function.identity sample) sample)))) -(def: (homomorphism injection comparison (^open "@//.")) +(def: (homomorphism injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Functor f) Test)) (do [! random.monad] [sample random.nat @@ -41,7 +41,7 @@ (@//each increase (injection sample)) (injection (increase sample)))))) -(def: (composition injection comparison (^open "@//.")) +(def: (composition injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (Functor f) Test)) (do [! random.monad] [sample (\ ! each injection random.nat) diff --git a/stdlib/source/specification/lux/abstract/functor/contravariant.lux b/stdlib/source/specification/lux/abstract/functor/contravariant.lux index a9ac6e660..048b34ba8 100644 --- a/stdlib/source/specification/lux/abstract/functor/contravariant.lux +++ b/stdlib/source/specification/lux/abstract/functor/contravariant.lux @@ -6,15 +6,15 @@ [equivalence {"+" [Equivalence]}] [monad {"+" [do]}]] [control - ["." function]] + ["[0]" function]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [Functor]}]]) + ["[0]" / {"+" [Functor]}]]) -(def: (identity equivalence value (^open "@//.")) +(def: (identity equivalence value (^open "@//[0]")) (All (_ f a) (-> (Equivalence (f a)) (f a) (Functor f) Test)) (_.test "Law of identity." (equivalence diff --git a/stdlib/source/specification/lux/abstract/hash.lux b/stdlib/source/specification/lux/abstract/hash.lux index ed504cd26..65b78a5cb 100644 --- a/stdlib/source/specification/lux/abstract/hash.lux +++ b/stdlib/source/specification/lux/abstract/hash.lux @@ -5,13 +5,13 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}] + ["[0]" random {"+" [Random]}] [number ["n" nat]]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "\.") random) +(def: .public (spec (^open "\[0]") random) (All (_ a) (-> (/.Hash a) (Random a) Test)) (do random.monad [parameter random diff --git a/stdlib/source/specification/lux/abstract/interval.lux b/stdlib/source/specification/lux/abstract/interval.lux index a6de2bc5a..38b9a3e6c 100644 --- a/stdlib/source/specification/lux/abstract/interval.lux +++ b/stdlib/source/specification/lux/abstract/interval.lux @@ -4,13 +4,13 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." order]] + ["[0]" order]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "@//.") gen_sample) +(def: .public (spec (^open "@//[0]") gen_sample) (All (_ a) (-> (/.Interval a) (Random a) Test)) (<| (_.for [/.Interval]) (do random.monad diff --git a/stdlib/source/specification/lux/abstract/mix.lux b/stdlib/source/specification/lux/abstract/mix.lux index dddf30c5f..aecd00cbb 100644 --- a/stdlib/source/specification/lux/abstract/mix.lux +++ b/stdlib/source/specification/lux/abstract/mix.lux @@ -5,15 +5,15 @@ [abstract [monad {"+" [do]}]] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [// [functor {"+" [Injection Comparison]}]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec injection comparison (^open "@//.")) +(def: .public (spec injection comparison (^open "@//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Mix f) Test)) (do random.monad [subject random.nat diff --git a/stdlib/source/specification/lux/abstract/monad.lux b/stdlib/source/specification/lux/abstract/monad.lux index 11ee011e1..e193e1ecd 100644 --- a/stdlib/source/specification/lux/abstract/monad.lux +++ b/stdlib/source/specification/lux/abstract/monad.lux @@ -3,15 +3,15 @@ [lux "*" ["_" test {"+" [Test]}] [math - ["." random] + ["[0]" random] [number ["n" nat]]]]] [\\library - ["." / {"+" [do]}]] + ["[0]" / {"+" [do]}]] [// [functor {"+" [Injection Comparison]}]]) -(def: (left_identity injection comparison (^open "_//.")) +(def: (left_identity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Monad f) Test)) (do [! random.monad] [sample random.nat @@ -23,7 +23,7 @@ (|> (injection sample) (_//each morphism) _//conjoint) (morphism sample))))) -(def: (right_identity injection comparison (^open "_//.")) +(def: (right_identity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Monad f) Test)) (do random.monad [sample random.nat] @@ -32,7 +32,7 @@ (|> (injection sample) (_//each _//in) _//conjoint) (injection sample))))) -(def: (associativity injection comparison (^open "_//.")) +(def: (associativity injection comparison (^open "_//[0]")) (All (_ f) (-> (Injection f) (Comparison f) (/.Monad f) Test)) (do [! random.monad] [sample random.nat diff --git a/stdlib/source/specification/lux/abstract/monoid.lux b/stdlib/source/specification/lux/abstract/monoid.lux index 6dc4d2207..dba042a60 100644 --- a/stdlib/source/specification/lux/abstract/monoid.lux +++ b/stdlib/source/specification/lux/abstract/monoid.lux @@ -5,13 +5,13 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." / + ["[0]" / [// [equivalence {"+" [Equivalence]}]]]]) -(def: .public (spec (^open "\.") (^open "\.") gen_sample) +(def: .public (spec (^open "\[0]") (^open "\[0]") gen_sample) (All (_ a) (-> (Equivalence a) (/.Monoid a) (Random a) Test)) (do random.monad [sample gen_sample diff --git a/stdlib/source/specification/lux/abstract/order.lux b/stdlib/source/specification/lux/abstract/order.lux index 139e8cac4..79c8d4c78 100644 --- a/stdlib/source/specification/lux/abstract/order.lux +++ b/stdlib/source/specification/lux/abstract/order.lux @@ -5,11 +5,11 @@ [abstract [monad {"+" [do]}]] [math - ["." random {"+" [Random]}]]]] + ["[0]" random {"+" [Random]}]]]] [\\library - ["." /]]) + ["[0]" /]]) -(def: .public (spec (^open "@//.") generator) +(def: .public (spec (^open "@//[0]") generator) (All (_ a) (-> (/.Order a) (Random a) Test)) (<| (_.for [/.Order]) ($_ _.and diff --git a/stdlib/source/specification/lux/world/console.lux b/stdlib/source/specification/lux/world/console.lux index 5264211b4..15305d236 100644 --- a/stdlib/source/specification/lux/world/console.lux +++ b/stdlib/source/specification/lux/world/console.lux @@ -6,16 +6,16 @@ [monad {"+" [do]}]] [control [io {"+" [IO]}] - ["." try] + ["[0]" try] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text + ["[0]" text ["%" format {"+" [format]}]]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (spec console) (-> (IO (/.Console Async)) Test) diff --git a/stdlib/source/specification/lux/world/file.lux b/stdlib/source/specification/lux/world/file.lux index 765893ba6..f7c056624 100644 --- a/stdlib/source/specification/lux/world/file.lux +++ b/stdlib/source/specification/lux/world/file.lux @@ -4,32 +4,32 @@ ["_" test {"+" [Test]}] [abstract [monad {"+" [do]}] - ["." predicate]] + ["[0]" predicate]] [control [pipe {"+" [case>]}] [io {"+" [IO]}] - ["." maybe ("#\." functor)] - ["." try ("#\." functor)] - ["." exception] + ["[0]" maybe ("[1]\[0]" functor)] + ["[0]" try ("[1]\[0]" functor)] + ["[0]" exception] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text ("#\." equivalence) + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}] [encoding - ["." utf8 ("#\." codec)]]] - ["." binary {"+" [Binary]} ("#\." equivalence monoid) - ["$#" \\test]] + ["[0]" utf8 ("[1]\[0]" codec)]]] + ["[0]" binary {"+" [Binary]} ("[1]\[0]" equivalence monoid) + ["$[1]" \\test]] [collection - ["." list]]] + ["[0]" list]]] [math - ["." random] + ["[0]" random] [number ["n" nat]]] [time - ["." instant {"+" [Instant]} ("#\." equivalence)]]]] + ["[0]" instant {"+" [Instant]} ("[1]\[0]" equivalence)]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: (for_path fs) (-> (IO (/.System Async)) Test) @@ -126,7 +126,7 @@ [made_sub? (\ fs make_directory sub_dir) directory_files (\ fs directory_files parent) sub_directories (\ fs sub_directories parent) - .let [(^open "list\.") (list.equivalence text.equivalence)]] + .let [(^open "list\[0]") (list.equivalence text.equivalence)]] (in (<| (try.else false) (do try.monad [_ made_sub?] diff --git a/stdlib/source/specification/lux/world/program.lux b/stdlib/source/specification/lux/world/program.lux index 772aa28a4..e647e316b 100644 --- a/stdlib/source/specification/lux/world/program.lux +++ b/stdlib/source/specification/lux/world/program.lux @@ -5,18 +5,18 @@ [abstract [monad {"+" [do]}]] [control - ["." try] + ["[0]" try] [concurrency - ["." async {"+" [Async]}]]] + ["[0]" async {"+" [Async]}]]] [data - ["." text] + ["[0]" text] [collection - ["." dictionary] - ["." list]]] + ["[0]" dictionary] + ["[0]" list]]] [math - ["." random]]]] + ["[0]" random]]]] [\\library - ["." /]]) + ["[0]" /]]) (def: .public (spec subject) (-> (/.Program Async) Test) diff --git a/stdlib/source/specification/lux/world/shell.lux b/stdlib/source/specification/lux/world/shell.lux index 8f12be702..2d844ce9a 100644 --- a/stdlib/source/specification/lux/world/shell.lux +++ b/stdlib/source/specification/lux/world/shell.lux @@ -5,22 +5,22 @@ [abstract [monad {"+" [do]}]] [control - ["." try ("#\." functor)] + ["[0]" try ("[1]\[0]" functor)] [concurrency - ["." async {"+" [Async]} ("#\." monad)]] + ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]] [parser - ["." environment {"+" [Environment]}]]] + ["[0]" environment {"+" [Environment]}]]] [data - ["." product] - ["." text ("#\." equivalence) + ["[0]" product] + ["[0]" text ("[1]\[0]" equivalence) ["%" format {"+" [format]}]]] [math - ["." random] + ["[0]" random] [number ["n" nat] ["i" int]]]]] [\\library - ["." / + ["[0]" / [// [file {"+" [Path]}]]]]) |