lux-r/source/test/program.lux


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

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

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