new-luxc/test/tests.lux


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

(;module:
  lux
  (lux (control monad)
       [io]
       (concurrency [promise])
       [cli #+ program:]
       [test])
  (test (luxc ["_;P" parser]
              (analyser ["_;A" primitive]
                        ["_;A" structure]
                        ["_;A" reference]
                        ["_;A" case]
                        ["_;A" function]
                        ["_;A" type]
                        (procedure ["_;A" common]
                                   ["_;A" host]))
              (synthesizer ["_;S" primitive]
                           ["_;S" structure]
                           (case ["_;S" special])
                           ["_;S" function]
                           ["_;S" procedure]
                           ["_;S" loop])
              (generator ["_;G" primitive]
                         ["_;G" structure]
                         ["_;G" case]
                         ["_;G" function]
                         ["_;G" reference]
                         (procedure ["_;G" common]
                                    ["_;G" host]))
              )))

(program: args
  (test;run))