lux-r/source/test/program.lux


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

(.using
  [lux "*"
   ["_" test {"+" Test}]
   [control
    ["[0]" io]
    [parser
     [cli {"+" program:}]]]]
  [spec
   ["[0]" compositor]]
  [\\
   ["[0]" /]])

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