diff options
| author | Eduardo Julian | 2021-01-28 20:14:11 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-01-28 20:14:11 -0400 |
| commit | 1797521191746640e761cc1b4973d46b8c403dee (patch) | |
| tree | 197b60bf206f75c32a930b85910101c6d4c0d0f9 /stdlib/source/test/aedifex/artifact/time.lux | |
| parent | 43d28326ad59c74439b96343cc8f619ed7d90231 (diff) | |
Implemented arithmetic right-shift in terms of logic right-shift.
Diffstat (limited to 'stdlib/source/test/aedifex/artifact/time.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/artifact/time.lux | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux index 880bc1f83..4bf63018c 100644 --- a/stdlib/source/test/aedifex/artifact/time.lux +++ b/stdlib/source/test/aedifex/artifact/time.lux @@ -11,7 +11,7 @@ [parser ["<.>" text]]] [math - ["." random]] + ["." random (#+ Random)]] [time ["." instant]]] {#program @@ -20,16 +20,20 @@ ["#." date] ["#." time]]) +(def: #export random + (Random /.Time) + random.instant) + (def: #export test Test (<| (_.covering /._) (_.for [/.Time]) ($_ _.and (_.for [/.equivalence] - ($equivalence.spec /.equivalence random.instant)) + ($equivalence.spec /.equivalence ..random)) (do random.monad - [expected random.instant] + [expected ..random] (_.cover [/.format /.parser] (|> expected /.format |