diff options
author | Eduardo Julian | 2021-01-12 23:09:05 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-01-12 23:09:05 -0400 |
commit | 71de092a045dc70ab1c9eead477cf1512b144a87 (patch) | |
tree | 1f71aca655d867b748c430996d3687911b7537cc /stdlib/source/test/aedifex | |
parent | 5dbf134346424602b0104d1f749c1a9eac6f21af (diff) |
Raise error when trying to use deprecated fields/method/classes in JVM.
Diffstat (limited to 'stdlib/source/test/aedifex')
-rw-r--r-- | stdlib/source/test/aedifex/artifact/time.lux | 42 | ||||
-rw-r--r-- | stdlib/source/test/aedifex/artifact/time/date.lux (renamed from stdlib/source/test/aedifex/artifact/time_stamp/date.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/test/aedifex/artifact/time/time.lux (renamed from stdlib/source/test/aedifex/artifact/time_stamp/time.lux) | 0 |
3 files changed, 42 insertions, 0 deletions
diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux new file mode 100644 index 000000000..880bc1f83 --- /dev/null +++ b/stdlib/source/test/aedifex/artifact/time.lux @@ -0,0 +1,42 @@ +(.module: + [lux #* + ["_" test (#+ Test)] + [abstract + [monad (#+ do)] + {[0 #spec] + [/ + ["$." equivalence]]}] + [control + ["." try ("#\." functor)] + [parser + ["<.>" text]]] + [math + ["." random]] + [time + ["." instant]]] + {#program + ["." /]} + ["." / #_ + ["#." date] + ["#." time]]) + +(def: #export test + Test + (<| (_.covering /._) + (_.for [/.Time]) + ($_ _.and + (_.for [/.equivalence] + ($equivalence.spec /.equivalence random.instant)) + + (do random.monad + [expected random.instant] + (_.cover [/.format /.parser] + (|> expected + /.format + (<text>.run /.parser) + (try\map (\ instant.equivalence = expected)) + (try.default false)))) + + /date.test + /time.test + ))) diff --git a/stdlib/source/test/aedifex/artifact/time_stamp/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux index 0f4b5b7d3..0f4b5b7d3 100644 --- a/stdlib/source/test/aedifex/artifact/time_stamp/date.lux +++ b/stdlib/source/test/aedifex/artifact/time/date.lux diff --git a/stdlib/source/test/aedifex/artifact/time_stamp/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux index bd9bbe071..bd9bbe071 100644 --- a/stdlib/source/test/aedifex/artifact/time_stamp/time.lux +++ b/stdlib/source/test/aedifex/artifact/time/time.lux |