stdlib/source/test/aedifex.lux


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

(.module:
  [lux #*
   ["_" test (#+ Test)]
   [control
    [io (#+ io)]
    [parser
     [cli (#+ program:)]]]]
  ["." / #_
   ["#." parser]])

(def: test
  Test
  ($_ _.and
      /parser.test
      ))

(program: args
  (<| io
      _.run!
      (_.times 100)
      ..test))