aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/data
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/lux/data')
-rw-r--r--stdlib/source/test/lux/data/binary.lux2
-rw-r--r--stdlib/source/test/lux/data/collection/array.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/dictionary.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/dictionary/ordered.lux8
-rw-r--r--stdlib/source/test/lux/data/collection/dictionary/plist.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/list.lux4
-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.lux12
-rw-r--r--stdlib/source/test/lux/data/collection/set/multi.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/set/ordered.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/stack.lux2
-rw-r--r--stdlib/source/test/lux/data/collection/stream.lux2
-rw-r--r--stdlib/source/test/lux/data/collection/tree.lux2
-rw-r--r--stdlib/source/test/lux/data/collection/tree/finger.lux6
-rw-r--r--stdlib/source/test/lux/data/collection/tree/zipper.lux2
-rw-r--r--stdlib/source/test/lux/data/format/binary.lux2
-rw-r--r--stdlib/source/test/lux/data/format/json.lux30
-rw-r--r--stdlib/source/test/lux/data/format/tar.lux6
-rw-r--r--stdlib/source/test/lux/data/format/xml.lux6
-rw-r--r--stdlib/source/test/lux/data/sum.lux2
-rw-r--r--stdlib/source/test/lux/data/text/buffer.lux2
-rw-r--r--stdlib/source/test/lux/data/text/encoding.lux4
-rw-r--r--stdlib/source/test/lux/data/text/escape.lux4
-rw-r--r--stdlib/source/test/lux/data/text/format.lux6
-rw-r--r--stdlib/source/test/lux/data/text/regex.lux2
-rw-r--r--stdlib/source/test/lux/data/text/unicode/set.lux4
28 files changed, 72 insertions, 72 deletions
diff --git a/stdlib/source/test/lux/data/binary.lux b/stdlib/source/test/lux/data/binary.lux
index ba454ead3..15df63e2e 100644
--- a/stdlib/source/test/lux/data/binary.lux
+++ b/stdlib/source/test/lux/data/binary.lux
@@ -14,7 +14,7 @@
["[0]" exception (.only Exception)]]
[data
[collection
- ["[0]" list ("[1]#[0]" functor)]
+ ["[0]" list (.open: "[1]#[0]" functor)]
[array
[\\unsafe (.only)]]]]
[math
diff --git a/stdlib/source/test/lux/data/collection/array.lux b/stdlib/source/test/lux/data/collection/array.lux
index b1d6b549f..ee06a8073 100644
--- a/stdlib/source/test/lux/data/collection/array.lux
+++ b/stdlib/source/test/lux/data/collection/array.lux
@@ -13,10 +13,10 @@
["$[0]" equivalence]
["$[0]" functor (.only Injection)]]]
[control
- ["[0]" maybe ("[1]#[0]" functor)]]
+ ["[0]" maybe (.open: "[1]#[0]" functor)]]
[data
["[0]" bit]
- ["[0]" text ("[1]#[0]" equivalence)]
+ ["[0]" text (.open: "[1]#[0]" equivalence)]
[collection
["[0]" list]
["[0]" set]]]
diff --git a/stdlib/source/test/lux/data/collection/dictionary.lux b/stdlib/source/test/lux/data/collection/dictionary.lux
index ad26c0120..11a4da3cb 100644
--- a/stdlib/source/test/lux/data/collection/dictionary.lux
+++ b/stdlib/source/test/lux/data/collection/dictionary.lux
@@ -9,13 +9,13 @@
["$[0]" equivalence]
["$[0]" functor (.only Injection)]]]
[control
- ["[0]" maybe ("[1]#[0]" functor)]
+ ["[0]" maybe (.open: "[1]#[0]" functor)]
["[0]" try]
["[0]" exception]]
[data
["[0]" product]
[collection
- ["[0]" list ("[1]#[0]" functor)]
+ ["[0]" list (.open: "[1]#[0]" functor)]
["[0]" set]]]
[math
["[0]" random]
diff --git a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux
index 01c979131..75e7a36e2 100644
--- a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux
+++ b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux
@@ -9,15 +9,15 @@
[\\specification
["$[0]" equivalence]]]
[control
- ["[0]" maybe ("[1]#[0]" monad)]]
+ ["[0]" maybe (.open: "[1]#[0]" monad)]]
[data
["[0]" product]
- ["[0]" bit ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
[collection
["[0]" set]
- ["[0]" list ("[1]#[0]" functor)]]]
+ ["[0]" list (.open: "[1]#[0]" functor)]]]
[math
- ["[0]" random (.only Random) ("[1]#[0]" monad)]
+ ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]
[number
["n" nat]]]]]
[\\library
diff --git a/stdlib/source/test/lux/data/collection/dictionary/plist.lux b/stdlib/source/test/lux/data/collection/dictionary/plist.lux
index 3b8f1ae99..252ca9f85 100644
--- a/stdlib/source/test/lux/data/collection/dictionary/plist.lux
+++ b/stdlib/source/test/lux/data/collection/dictionary/plist.lux
@@ -8,9 +8,9 @@
["$[0]" equivalence]
["$[0]" monoid]]]
[control
- ["[0]" maybe ("[1]#[0]" monad)]]
+ ["[0]" maybe (.open: "[1]#[0]" monad)]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
["[0]" text]
[collection
["[0]" set]
diff --git a/stdlib/source/test/lux/data/collection/list.lux b/stdlib/source/test/lux/data/collection/list.lux
index c727f3041..81e8d76dc 100644
--- a/stdlib/source/test/lux/data/collection/list.lux
+++ b/stdlib/source/test/lux/data/collection/list.lux
@@ -21,7 +21,7 @@
[data
["[0]" bit]
["[0]" product]
- ["[0]" text ("[1]#[0]" equivalence)]
+ ["[0]" text (.open: "[1]#[0]" equivalence)]
[collection
["[0]" set]]]
[math
@@ -30,7 +30,7 @@
["n" nat]
["[0]" int]]]]]
[\\library
- ["[0]" / ("[1]#[0]" monad)]])
+ ["[0]" / (.open: "[1]#[0]" monad)]])
(def: bounded_size
(Random Nat)
diff --git a/stdlib/source/test/lux/data/collection/queue.lux b/stdlib/source/test/lux/data/collection/queue.lux
index 05388830b..a67697de2 100644
--- a/stdlib/source/test/lux/data/collection/queue.lux
+++ b/stdlib/source/test/lux/data/collection/queue.lux
@@ -8,10 +8,10 @@
["$[0]" equivalence]
["$[0]" functor (.only Injection)]]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
[collection
["[0]" set]
- ["[0]" list ("[1]#[0]" monoid)]]]
+ ["[0]" list (.open: "[1]#[0]" monoid)]]]
[math
["[0]" random]
[number
diff --git a/stdlib/source/test/lux/data/collection/queue/priority.lux b/stdlib/source/test/lux/data/collection/queue/priority.lux
index fc8484b42..624231fb1 100644
--- a/stdlib/source/test/lux/data/collection/queue/priority.lux
+++ b/stdlib/source/test/lux/data/collection/queue/priority.lux
@@ -5,9 +5,9 @@
[abstract
["[0]" monad (.only do)]]
[control
- ["[0]" maybe ("[1]#[0]" functor)]]
+ ["[0]" maybe (.open: "[1]#[0]" functor)]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]]
[math
["[0]" random (.only Random)]
[number
diff --git a/stdlib/source/test/lux/data/collection/sequence.lux b/stdlib/source/test/lux/data/collection/sequence.lux
index f86951ea4..92d59f68d 100644
--- a/stdlib/source/test/lux/data/collection/sequence.lux
+++ b/stdlib/source/test/lux/data/collection/sequence.lux
@@ -15,17 +15,17 @@
["[0]" try (.only Try)]
["[0]" exception]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]
- ["[0]" text ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
+ ["[0]" text (.open: "[1]#[0]" equivalence)]
[collection
- ["[0]" list ("[1]#[0]" mix)]
+ ["[0]" list (.open: "[1]#[0]" mix)]
["[0]" set]]]
[math
["[0]" random]
[number
["n" nat]]]]]
[\\library
- ["[0]" / ("[1]#[0]" monad)]])
+ ["[0]" / (.open: "[1]#[0]" monad)]])
(def: signatures
Test
diff --git a/stdlib/source/test/lux/data/collection/set.lux b/stdlib/source/test/lux/data/collection/set.lux
index 53bf5ee0e..17617c2dc 100644
--- a/stdlib/source/test/lux/data/collection/set.lux
+++ b/stdlib/source/test/lux/data/collection/set.lux
@@ -10,7 +10,7 @@
["$[0]" hash]
["$[0]" monoid]]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
[collection
["[0]" list]]]
[math
@@ -18,7 +18,7 @@
[number
["n" nat]]]]]
[\\library
- ["[0]" / ("#[0]" equivalence)]])
+ ["[0]" / (.open: "[1]#[0]" equivalence)]])
(def: gen_nat
(Random Nat)
@@ -68,7 +68,7 @@
(bit#= (/.empty? setL)
(n.= 0 (/.size setL))))
(_.coverage [/.list /.of_list]
- (|> setL /.list (/.of_list n.hash) (#= setL)))
+ (|> setL /.list (/.of_list n.hash) (/#= setL)))
(_.coverage [/.member?]
(and (list.every? (/.member? setL) (/.list setL))
(not (/.member? setL non_memberL))))
@@ -89,12 +89,12 @@
(|> setL
(/.has non_memberL)
(/.lacks non_memberL)
- (#= setL))
+ (/#= setL))
idempotency!
(|> setL
(/.lacks non_memberL)
- (#= setL))]
+ (/#= setL))]
(and symmetry!
idempotency!)))
(_.coverage [/.union /.sub?]
@@ -107,7 +107,7 @@
union_with_empty_set!
(|> setL
(/.union (/.empty n.hash))
- (#= setL))]
+ (/#= setL))]
(and sets_are_subs_of_their_unions!
union_with_empty_set!)))
(_.coverage [/.intersection /.super?]
diff --git a/stdlib/source/test/lux/data/collection/set/multi.lux b/stdlib/source/test/lux/data/collection/set/multi.lux
index 2811e074c..555d7e210 100644
--- a/stdlib/source/test/lux/data/collection/set/multi.lux
+++ b/stdlib/source/test/lux/data/collection/set/multi.lux
@@ -10,10 +10,10 @@
["$[0]" equivalence]
["$[0]" hash]]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
[collection
["[0]" set]
- ["[0]" list ("[1]#[0]" mix)]]]
+ ["[0]" list (.open: "[1]#[0]" mix)]]]
[math
["[0]" random (.only Random)]
[number
diff --git a/stdlib/source/test/lux/data/collection/set/ordered.lux b/stdlib/source/test/lux/data/collection/set/ordered.lux
index f8dba7aaf..64a1dc4bb 100644
--- a/stdlib/source/test/lux/data/collection/set/ordered.lux
+++ b/stdlib/source/test/lux/data/collection/set/ordered.lux
@@ -8,11 +8,11 @@
[\\specification
["$[0]" equivalence]]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
[collection
["[0]" list]]]
[math
- ["[0]" random (.only Random) ("[1]#[0]" monad)]
+ ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]
[number
["n" nat]]]]]
[\\library
diff --git a/stdlib/source/test/lux/data/collection/stack.lux b/stdlib/source/test/lux/data/collection/stack.lux
index 70141fc19..337b7de4e 100644
--- a/stdlib/source/test/lux/data/collection/stack.lux
+++ b/stdlib/source/test/lux/data/collection/stack.lux
@@ -10,7 +10,7 @@
[control
["[0]" maybe]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]]
[math
["[0]" random]
[number
diff --git a/stdlib/source/test/lux/data/collection/stream.lux b/stdlib/source/test/lux/data/collection/stream.lux
index 7c6f10baf..ee293cfa8 100644
--- a/stdlib/source/test/lux/data/collection/stream.lux
+++ b/stdlib/source/test/lux/data/collection/stream.lux
@@ -13,7 +13,7 @@
["[0]" text (.only)
["%" format (.only format)]]
[collection
- ["[0]" list ("[1]#[0]" functor)]]]
+ ["[0]" list (.open: "[1]#[0]" functor)]]]
[math
["[0]" random]
[number
diff --git a/stdlib/source/test/lux/data/collection/tree.lux b/stdlib/source/test/lux/data/collection/tree.lux
index c936ded41..945c1c6b8 100644
--- a/stdlib/source/test/lux/data/collection/tree.lux
+++ b/stdlib/source/test/lux/data/collection/tree.lux
@@ -11,7 +11,7 @@
[data
["[0]" product]
[collection
- ["[0]" list ("[1]#[0]" functor mix)]]]
+ ["[0]" list (.open: "[1]#[0]" functor mix)]]]
[math
["[0]" random (.only Random)]
[number
diff --git a/stdlib/source/test/lux/data/collection/tree/finger.lux b/stdlib/source/test/lux/data/collection/tree/finger.lux
index d2ddb1b96..a9e3d68e6 100644
--- a/stdlib/source/test/lux/data/collection/tree/finger.lux
+++ b/stdlib/source/test/lux/data/collection/tree/finger.lux
@@ -5,11 +5,11 @@
[abstract
[monad (.only do)]]
[control
- ["[0]" maybe ("[1]#[0]" functor)]]
+ ["[0]" maybe (.open: "[1]#[0]" functor)]]
[data
- ["[0]" text ("[1]#[0]" equivalence monoid)]
+ ["[0]" text (.open: "[1]#[0]" equivalence monoid)]
[collection
- ["[0]" list ("[1]#[0]" mix)]]]
+ ["[0]" list (.open: "[1]#[0]" mix)]]]
[math
["[0]" random]
[number
diff --git a/stdlib/source/test/lux/data/collection/tree/zipper.lux b/stdlib/source/test/lux/data/collection/tree/zipper.lux
index 4270e0f88..4a2bbac26 100644
--- a/stdlib/source/test/lux/data/collection/tree/zipper.lux
+++ b/stdlib/source/test/lux/data/collection/tree/zipper.lux
@@ -10,7 +10,7 @@
["$[0]" comonad]]]
[control
["[0]" pipe]
- ["[0]" maybe ("[1]#[0]" functor)]]
+ ["[0]" maybe (.open: "[1]#[0]" functor)]]
[data
["[0]" product]
["[0]" text]
diff --git a/stdlib/source/test/lux/data/format/binary.lux b/stdlib/source/test/lux/data/format/binary.lux
index 4210d2563..8c69f0c64 100644
--- a/stdlib/source/test/lux/data/format/binary.lux
+++ b/stdlib/source/test/lux/data/format/binary.lux
@@ -8,7 +8,7 @@
[\\specification
["$[0]" monoid]]]
[data
- ["[0]" binary ("[1]#[0]" equivalence)]]
+ ["[0]" binary (.open: "[1]#[0]" equivalence)]]
[math
["[0]" random (.only Random)]]]]
[\\library
diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux
index 9ae374636..1fb8f94fa 100644
--- a/stdlib/source/test/lux/data/format/json.lux
+++ b/stdlib/source/test/lux/data/format/json.lux
@@ -9,7 +9,7 @@
["$[0]" equivalence]
["$[0]" codec]]]
[control
- ["[0]" try ("[1]#[0]" functor)]]
+ ["[0]" try (.open: "[1]#[0]" functor)]]
[data
["[0]" product]
["[0]" bit]
@@ -19,7 +19,7 @@
["[0]" sequence]
["[0]" dictionary]
["[0]" set]
- ["[0]" list ("[1]#[0]" functor)]]]
+ ["[0]" list (.open: "[1]#[0]" functor)]]]
[math
["[0]" random (.only Random)]
[number
@@ -29,7 +29,7 @@
["[0]" syntax (.only syntax:)]
["[0]" code]]]]
[\\library
- ["[0]" / (.only JSON) ("#[0]" equivalence)]])
+ ["[0]" / (.only JSON) (.open: "[1]#[0]" equivalence)]])
(def: .public random
(Random /.JSON)
@@ -85,7 +85,7 @@
(|> expected
/.format
(# /.codec decoded)
- (try#each (#= expected))
+ (try#each (/#= expected))
(try.else false))))
(do random.monad
[keys (random.set text.hash 3 (random.alphabetic 1))
@@ -106,7 +106,7 @@
(_.coverage [/.field]
(list.every? (function (_ [key expected])
(|> (/.field key object)
- (try#each (#= expected))
+ (try#each (/#= expected))
(try.else false)))
expected))
))
@@ -122,7 +122,7 @@
.let [can_find_known_key!
(|> object
(/.field key)
- (try#each (#= {/.#Number expected}))
+ (try#each (/#= {/.#Number expected}))
(try.else false))
cannot_find_unknown_key!
@@ -165,15 +165,15 @@
<key5> (string)
<key6> (string)]
(_.coverage [/.json]
- (and (#= {/.#Null} (/.json ()))
+ (and (/#= {/.#Null} (/.json ()))
(~~ (template [<tag> <value>]
- [(#= {<tag> <value>} (/.json <value>))]
+ [(/#= {<tag> <value>} (/.json <value>))]
[/.#Boolean <boolean>]
[/.#Number <number>]
[/.#String <string>]
))
- (#= {/.#Array <array_sequence>} (/.json [() <boolean> <number> <string>]))
+ (/#= {/.#Array <array_sequence>} (/.json [() <boolean> <number> <string>]))
(let [object (/.json {<key0> ()
<key1> <boolean>
<key2> <number>
@@ -189,11 +189,11 @@
value4 (/.field <key4> object)
value5 (/.field <key5> object)
value6 (/.field <key6> value5)]
- (in (and (#= {/.#Null} value0)
- (#= {/.#Boolean <boolean>} value1)
- (#= {/.#Number <number>} value2)
- (#= {/.#String <string>} value3)
- (#= {/.#Array <array_sequence>} value4)
- (#= {/.#Number <number>} value6))))))
+ (in (and (/#= {/.#Null} value0)
+ (/#= {/.#Boolean <boolean>} value1)
+ (/#= {/.#Number <number>} value2)
+ (/#= {/.#String <string>} value3)
+ (/#= {/.#Array <array_sequence>} value4)
+ (/#= {/.#Number <number>} value6))))))
)))
))))
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux
index 24c1be821..c30fb086b 100644
--- a/stdlib/source/test/lux/data/format/tar.lux
+++ b/stdlib/source/test/lux/data/format/tar.lux
@@ -12,8 +12,8 @@
["<b>" binary]]]
[data
["[0]" product]
- ["[0]" binary ("[1]#[0]" equivalence monoid)]
- ["[0]" text ("[1]#[0]" equivalence)
+ ["[0]" binary (.open: "[1]#[0]" equivalence monoid)]
+ ["[0]" text (.open: "[1]#[0]" equivalence)
["%" format (.only format)]
[encoding
["[0]" utf8]]
@@ -22,7 +22,7 @@
["[1]/[0]" block]]]
[collection
["[0]" sequence]
- ["[0]" list ("[1]#[0]" mix)]]
+ ["[0]" list (.open: "[1]#[0]" mix)]]
["[0]" format
["[1]" binary]]]
[time
diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux
index 89c68a67a..dc95a00fe 100644
--- a/stdlib/source/test/lux/data/format/xml.lux
+++ b/stdlib/source/test/lux/data/format/xml.lux
@@ -13,15 +13,15 @@
["p" parser
["</>" xml]]]
[data
- ["[0]" text ("[1]#[0]" equivalence)
+ ["[0]" text (.open: "[1]#[0]" equivalence)
["%" format (.only format)]]
[collection
["[0]" dictionary]
- ["[0]" list ("[1]#[0]" functor)]]]
+ ["[0]" list (.open: "[1]#[0]" functor)]]]
[macro
["^" pattern]]
[math
- ["[0]" random (.only Random) ("[1]#[0]" monad)]
+ ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]
[number
["n" nat]]]
[meta
diff --git a/stdlib/source/test/lux/data/sum.lux b/stdlib/source/test/lux/data/sum.lux
index 9dd279775..82adfdc49 100644
--- a/stdlib/source/test/lux/data/sum.lux
+++ b/stdlib/source/test/lux/data/sum.lux
@@ -12,7 +12,7 @@
[data
["[0]" text]
[collection
- ["[0]" list ("[1]#[0]" functor)]]]
+ ["[0]" list (.open: "[1]#[0]" functor)]]]
[math
["[0]" random]
[number
diff --git a/stdlib/source/test/lux/data/text/buffer.lux b/stdlib/source/test/lux/data/text/buffer.lux
index 0def44bd6..b6d868fbd 100644
--- a/stdlib/source/test/lux/data/text/buffer.lux
+++ b/stdlib/source/test/lux/data/text/buffer.lux
@@ -5,7 +5,7 @@
[abstract
[monad (.only do)]]
[data
- ["[0]" text ("[1]#[0]" equivalence)
+ ["[0]" text (.open: "[1]#[0]" equivalence)
["%" format (.only format)]]]
[math
["[0]" random (.only Random)]
diff --git a/stdlib/source/test/lux/data/text/encoding.lux b/stdlib/source/test/lux/data/text/encoding.lux
index 42f0e9d38..d56fd8bdc 100644
--- a/stdlib/source/test/lux/data/text/encoding.lux
+++ b/stdlib/source/test/lux/data/text/encoding.lux
@@ -10,9 +10,9 @@
["[0]" maybe]
["[0]" try]]
[data
- ["[0]" text ("[1]#[0]" equivalence)]
+ ["[0]" text (.open: "[1]#[0]" equivalence)]
[collection
- ["[0]" list ("[1]#[0]" mix)]
+ ["[0]" list (.open: "[1]#[0]" mix)]
["[0]" set]]]
[macro
["[0]" template]]
diff --git a/stdlib/source/test/lux/data/text/escape.lux b/stdlib/source/test/lux/data/text/escape.lux
index c2d06ce89..aba3d5948 100644
--- a/stdlib/source/test/lux/data/text/escape.lux
+++ b/stdlib/source/test/lux/data/text/escape.lux
@@ -12,8 +12,8 @@
[parser
["<[0]>" code]]]
[data
- ["[0]" bit ("[1]#[0]" equivalence)]
- ["[0]" text (.only Char) ("[1]#[0]" equivalence)
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
+ ["[0]" text (.only Char) (.open: "[1]#[0]" equivalence)
["%" format (.only format)]]
[collection
["[0]" set (.only Set)]]]
diff --git a/stdlib/source/test/lux/data/text/format.lux b/stdlib/source/test/lux/data/text/format.lux
index 9026a7029..903e13497 100644
--- a/stdlib/source/test/lux/data/text/format.lux
+++ b/stdlib/source/test/lux/data/text/format.lux
@@ -11,13 +11,13 @@
[control
["[0]" try]]
[data
- ["[0]" text ("[1]#[0]" equivalence)]
+ ["[0]" text (.open: "[1]#[0]" equivalence)]
["[0]" bit]
[format
["[0]" xml]
["[0]" json]]
[collection
- ["[0]" list ("[1]#[0]" functor)]]]
+ ["[0]" list (.open: "[1]#[0]" functor)]]]
["[0]" time (.only)
["[0]" day]
["[0]" month]
@@ -25,7 +25,7 @@
["[0]" duration]
["[0]" date]]
[math
- ["[0]" random (.only Random) ("[1]#[0]" monad)]
+ ["[0]" random (.only Random) (.open: "[1]#[0]" monad)]
["[0]" modulus]
["[0]" modular]
[number
diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux
index 646e29e6c..c16388e4e 100644
--- a/stdlib/source/test/lux/data/text/regex.lux
+++ b/stdlib/source/test/lux/data/text/regex.lux
@@ -11,7 +11,7 @@
["<[0]>" text (.only Parser)]
["<[0]>" code]]]
[data
- ["[0]" text ("[1]#[0]" equivalence)
+ ["[0]" text (.open: "[1]#[0]" equivalence)
["%" format (.only format)]]]
["[0]" macro (.only)
[syntax (.only syntax:)]
diff --git a/stdlib/source/test/lux/data/text/unicode/set.lux b/stdlib/source/test/lux/data/text/unicode/set.lux
index a0cc8b90f..af36a8463 100644
--- a/stdlib/source/test/lux/data/text/unicode/set.lux
+++ b/stdlib/source/test/lux/data/text/unicode/set.lux
@@ -8,9 +8,9 @@
["$[0]" equivalence]]]
[data
["[0]" product]
- ["[0]" bit ("[1]#[0]" equivalence)]
+ ["[0]" bit (.open: "[1]#[0]" equivalence)]
[collection
- ["[0]" set ("[1]#[0]" equivalence)]]]
+ ["[0]" set (.open: "[1]#[0]" equivalence)]]]
[math
["[0]" random (.only Random)]
[number