aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/artifact/time_stamp/date.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-01-12 23:09:05 -0400
committerEduardo Julian2021-01-12 23:09:05 -0400
commit71de092a045dc70ab1c9eead477cf1512b144a87 (patch)
tree1f71aca655d867b748c430996d3687911b7537cc /stdlib/source/test/aedifex/artifact/time_stamp/date.lux
parent5dbf134346424602b0104d1f749c1a9eac6f21af (diff)
Raise error when trying to use deprecated fields/method/classes in JVM.
Diffstat (limited to 'stdlib/source/test/aedifex/artifact/time_stamp/date.lux')
-rw-r--r--stdlib/source/test/aedifex/artifact/time_stamp/date.lux44
1 files changed, 0 insertions, 44 deletions
diff --git a/stdlib/source/test/aedifex/artifact/time_stamp/date.lux b/stdlib/source/test/aedifex/artifact/time_stamp/date.lux
deleted file mode 100644
index 0f4b5b7d3..000000000
--- a/stdlib/source/test/aedifex/artifact/time_stamp/date.lux
+++ /dev/null
@@ -1,44 +0,0 @@
-(.module:
- [lux #*
- ["_" test (#+ Test)]
- [abstract
- [monad (#+ do)]]
- [control
- ["." try ("#\." functor)]
- [parser
- ["<.>" text]]]
- [math
- ["." random (#+ Random)]
- [number
- ["n" nat]
- ["i" int]]]
- [time
- ["." date (#+ Date)]
- ["." year]]]
- {#program
- ["." /]})
-
-(def: #export random
- (Random Date)
- (random.one (function (_ raw)
- (try.to_maybe
- (do try.monad
- [year (|> raw date.year year.value i.abs (i.% +10,000) year.year)]
- (date.date year
- (date.month raw)
- (date.day_of_month raw)))))
- random.date))
-
-(def: #export test
- Test
- (<| (_.covering /._)
- ($_ _.and
- (do random.monad
- [expected ..random]
- (_.cover [/.format /.parser]
- (|> expected
- /.format
- (<text>.run /.parser)
- (try\map (\ date.equivalence = expected))
- (try.default false))))
- )))