lux-r/source/test/program.lux


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

(.require
 [lux (.except)
  ["_" test (.only Test)]
  [control
   ["[0]" io]
   [parser
    [cli (.only program)]]]]
 [spec
  ["[0]" compositor]]
 [\\
  ["[0]" /]])

(def _
  (program args
    (<| io.io
        _.run!
        ... (_.times 100)
        (_.seed 1985013625126912890)
        (compositor.spec /.jvm /.bundle /.expander /.program))))