aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/control/parser/synthesis.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/control/parser/synthesis.lux17
1 files changed, 9 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/control/parser/synthesis.lux b/stdlib/source/test/lux/control/parser/synthesis.lux
index 7046d5d1d..9f765d0a5 100644
--- a/stdlib/source/test/lux/control/parser/synthesis.lux
+++ b/stdlib/source/test/lux/control/parser/synthesis.lux
@@ -34,13 +34,14 @@
[\\library
["[0]" /]])
-(template: (!expect <pattern> <value>)
- [(case <value>
- <pattern>
- true
-
- _
- false)])
+(def: !expect
+ (template (_ <pattern> <value>)
+ [(case <value>
+ <pattern>
+ true
+
+ _
+ false)]))
(def: random_constant
(Random Symbol)
@@ -63,7 +64,7 @@
(def: simple
Test
(`` (all _.and
- (~~ (template [<query> <check> <random> <synthesis> <equivalence>]
+ (~~ (with_template [<query> <check> <random> <synthesis> <equivalence>]
[(do [! random.monad]
[expected <random>
dummy (|> <random> (random.only (|>> (at <equivalence> = expected) not)))]