diff options
author | Eduardo Julian | 2021-01-05 07:55:22 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-01-05 07:55:22 -0400 |
commit | 75102dcfa7c2c0afd32cb5bf5ac012df2db6a7a1 (patch) | |
tree | 643350e00eebc8682c5087a4cd73b5f9406d92fb /stdlib/source/test/aedifex/artifact | |
parent | c03bd9f9787fb9f383c57b4ebb0fa9d49abbfaa1 (diff) |
Added lexically-scoped templates.
Diffstat (limited to 'stdlib/source/test/aedifex/artifact')
-rw-r--r-- | stdlib/source/test/aedifex/artifact/time_stamp/time.lux | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/stdlib/source/test/aedifex/artifact/time_stamp/time.lux b/stdlib/source/test/aedifex/artifact/time_stamp/time.lux new file mode 100644 index 000000000..bd9bbe071 --- /dev/null +++ b/stdlib/source/test/aedifex/artifact/time_stamp/time.lux @@ -0,0 +1,31 @@ +(.module: + [lux #* + ["_" test (#+ Test)] + ["." time (#+ Time)] + [abstract + [monad (#+ do)]] + [control + ["." try ("#\." functor)] + [parser + ["<.>" text]]] + [math + ["." random (#+ Random)] + [number + ["n" nat] + ["i" int]]]] + {#program + ["." /]}) + +(def: #export test + Test + (<| (_.covering /._) + ($_ _.and + (do random.monad + [expected random.time] + (_.cover [/.format /.parser] + (|> expected + /.format + (<text>.run /.parser) + (try\map (\ time.equivalence = expected)) + (try.default false)))) + ))) |