diff options
Diffstat (limited to 'stdlib/source/test/lux/macro/code.lux')
| -rw-r--r-- | stdlib/source/test/lux/macro/code.lux | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/stdlib/source/test/lux/macro/code.lux b/stdlib/source/test/lux/macro/code.lux index 00a805f26..0cdbc9610 100644 --- a/stdlib/source/test/lux/macro/code.lux +++ b/stdlib/source/test/lux/macro/code.lux @@ -121,19 +121,19 @@ (`` ($_ _.and (~~ (template [<coverage> <random> <tag>] [(do {@ random.monad} - [value <random>] + [expected <random>] (_.cover [<coverage>] - (and (case (..read (/.to-text (<coverage> value))) - (#try.Success lux-code) + (and (case (..read (/.to-text (<coverage> expected))) + (#try.Success actual) (:: /.equivalence = - lux-code - (<coverage> value)) + actual + (<coverage> expected)) (#try.Failure error) false) (:: /.equivalence = - [.dummy-cursor (<tag> value)] - (<coverage> value)))))] + [.dummy-cursor (<tag> expected)] + (<coverage> expected)))))] [/.bit random.bit #.Bit] [/.nat random.nat #.Nat] @@ -145,23 +145,22 @@ [/.identifier ..random-name #.Identifier] [/.form (..random-sequence ..random) #.Form] [/.tuple (..random-sequence ..random) #.Tuple] - [/.record (..random-record ..random) #.Record] - )) + [/.record (..random-record ..random) #.Record])) (~~ (template [<coverage> <random> <tag>] [(do {@ random.monad} - [value <random>] + [expected <random>] (_.cover [<coverage>] - (and (case (..read (/.to-text (<coverage> value))) - (#try.Success lux-code) + (and (case (..read (/.to-text (<coverage> expected))) + (#try.Success actual) (:: /.equivalence = - lux-code - (<coverage> value)) + actual + (<coverage> expected)) (#try.Failure error) false) (:: /.equivalence = - [.dummy-cursor (<tag> ["" value])] - (<coverage> value))) + [.dummy-cursor (<tag> ["" expected])] + (<coverage> expected))) ))] [/.local-tag ..random-text #.Tag] |