aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/debug.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/debug.lux9
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/debug.lux b/stdlib/source/test/lux/debug.lux
index 8c89a23b3..fcba3ec1a 100644
--- a/stdlib/source/test/lux/debug.lux
+++ b/stdlib/source/test/lux/debug.lux
@@ -26,6 +26,7 @@
[number
[ratio (.only Ratio)]]]
[meta
+ ["[0]" type]
["[0]" code (.only)
["<[1]>" \\parser]]
[macro
@@ -86,7 +87,7 @@
[sample_bit random.bit
sample_int random.int
sample_frac random.frac]
- (in (`` (and (when (/.representation (type_literal [Bit Int Frac])
+ (in (`` (and (when (/.representation (type.literal [Bit Int Frac])
[sample_bit sample_int sample_frac])
{try.#Success actual}
(text#= (format "[" (%.bit sample_bit)
@@ -99,7 +100,7 @@
false)
... TODO: Uncomment after switching from the old (tag+last?) to the new (lefts+right?) representation for variants
... (,, (with_template [<lefts> <right?> <value> <format>]
- ... [(|> (/.representation (type_literal (Or Bit Int Frac))
+ ... [(|> (/.representation (type.literal (Or Bit Int Frac))
... (is (Or Bit Int Frac)
... (<lefts> <right?> <value>)))
... (try#each (text#= (format "(" (%.nat <lefts>)
@@ -181,11 +182,11 @@
(|> (/.representation .Any sample_frac)
(try#each (text#= "[]"))
(try.else false))
- (|> (/.representation (type_literal (List Nat)) (is (List Nat) (list sample_nat)))
+ (|> (/.representation (type.literal (List Nat)) (is (List Nat) (list sample_nat)))
(try#each (text#= (%.list %.nat (list sample_nat))))
(try.else false))
(,, (with_template [<sample>]
- [(|> (/.representation (type_literal (Maybe Nat)) (is (Maybe Nat) <sample>))
+ [(|> (/.representation (type.literal (Maybe Nat)) (is (Maybe Nat) <sample>))
(try#each (text#= (%.maybe %.nat <sample>)))
(try.else false))]