diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/test/test/lux/data/text.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/test/test/lux/data/text.lux b/stdlib/test/test/lux/data/text.lux index d5deef0a4..aa316a7ad 100644 --- a/stdlib/test/test/lux/data/text.lux +++ b/stdlib/test/test/lux/data/text.lux @@ -29,14 +29,14 @@ sample (R;text size)] (assert "" (|> sample (&;nth idx) - (case> (^=> (#;Some char) - [(char;as-text char) char'] - [[(&;index-of' char' sample) - (&;last-index-of' char' sample) - (&;index-of char' idx sample) - (&;last-index-of char' idx sample)] - [(#;Some io) (#;Some lio) - (#;Some io') (#;Some lio')]]) + (case> (^multi (#;Some char) + [(char;as-text char) char'] + [[(&;index-of' char' sample) + (&;last-index-of' char' sample) + (&;index-of char' idx sample) + (&;last-index-of char' idx sample)] + [(#;Some io) (#;Some lio) + (#;Some io') (#;Some lio')]]) (and (n.<= idx io) (n.>= idx lio) |