aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/data/binary.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/data/binary.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/data/binary.lux b/stdlib/source/test/lux/data/binary.lux
index c43caf3a4..c6514691e 100644
--- a/stdlib/source/test/lux/data/binary.lux
+++ b/stdlib/source/test/lux/data/binary.lux
@@ -362,7 +362,7 @@
post \\parser.end?]
(in (and (not pre)
post))))
- (!expect {try.#Success #1}))))
+ (!expect {try.#Success .true}))))
(do [! random.monad]
[to_read (at ! each (n.% (++ ..segment_size)) random.nat)
data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))]
@@ -377,7 +377,7 @@
(in (and (n.= 0 start)
(n.= to_read offset)
(n.= ..segment_size nothing_left)))))
- (!expect {try.#Success #1}))))
+ (!expect {try.#Success .true}))))
(do [! random.monad]
[to_read (at ! each (n.% (++ ..segment_size)) random.nat)
data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))]
@@ -391,7 +391,7 @@
(in (and (n.= ..segment_size
(n.+ to_read remaining))
(n.= 0 nothing_left)))))
- (!expect {try.#Success #1}))))
+ (!expect {try.#Success .true}))))
..size
..binary
..utf8
@@ -589,7 +589,7 @@
(at (list.equivalence n.equivalence) = binary_vals slice_vals)
_
- #0))))
+ false))))
(_.coverage [/.slice_out_of_bounds]
(and (throws? /.slice_out_of_bounds (/.slice size size sample))
(let [verdict (throws? /.slice_out_of_bounds (/.slice offset size sample))]