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
20
21

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

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