aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/control/remember.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/control/remember.lux46
1 files changed, 23 insertions, 23 deletions
diff --git a/stdlib/source/test/lux/control/remember.lux b/stdlib/source/test/lux/control/remember.lux
index a96f993c9..5f62bac4b 100644
--- a/stdlib/source/test/lux/control/remember.lux
+++ b/stdlib/source/test/lux/control/remember.lux
@@ -76,33 +76,33 @@
should_fail1 (..attempt (macro.expand (to_remember macro yesterday message (#.Some expected))))
should_succeed0 (..attempt (macro.expand (to_remember macro tomorrow message #.None)))
should_succeed1 (..attempt (macro.expand (to_remember macro tomorrow message (#.Some expected))))]
- (wrap (list (code.bit (and (case should_fail0
- (#try.Failure error)
- (and (test_failure yesterday message #.None error)
- (text.contains? extra error))
+ (in (list (code.bit (and (case should_fail0
+ (#try.Failure error)
+ (and (test_failure yesterday message #.None error)
+ (text.contains? extra error))
- _
- false)
- (case should_fail1
- (#try.Failure error)
- (and (test_failure yesterday message (#.Some expected) error)
- (text.contains? extra error))
+ _
+ false)
+ (case should_fail1
+ (#try.Failure error)
+ (and (test_failure yesterday message (#.Some expected) error)
+ (text.contains? extra error))
- _
- false)
- (case should_succeed0
- (^ (#try.Success (list)))
- true
+ _
+ false)
+ (case should_succeed0
+ (^ (#try.Success (list)))
+ true
- _
- false)
- (case should_succeed1
- (^ (#try.Success (list actual)))
- (is? expected actual)
+ _
+ false)
+ (case should_succeed1
+ (^ (#try.Success (list actual)))
+ (is? expected actual)
- _
- false)
- )))))))
+ _
+ false)
+ )))))))
(def: #export test
Test