aboutsummaryrefslogtreecommitdiff
path: root/stdlib/test/tests.lux
blob: 5314c2923ca9c49b2362b70125c1467e30f42dcb (plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
##  Copyright (c) Eduardo Julian. All rights reserved.
##  This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
##  If a copy of the MPL was not distributed with this file,
##  You can obtain one at http://mozilla.org/MPL/2.0/.

(;module:
  lux
  (lux (control monad)
       (codata [io])
       (concurrency [promise])
       [cli #+ program:]
       [test])
  (test lux
        (lux ["_;" cli]
             (data [bit]
                   [bool]
                   [char]
                   [error]
                   [ident]
                   [identity]
                   [log]
                   [maybe]
                   [number]
                   [product]
                   [sum]
                   [text]
                   (error [exception])
                   (format [json])
                   (struct [array]
                           [dict]
                           [list]
                           [queue]
                           [set]
                           [stack]
                           [tree]
                           [vector]
                           [zipper]
                           )
                   (text [format])
                   )
             ## (codata ["_;" io]
             ##         [env]
             ##         [state]
             ##         (struct [stream]))
             ## (macro [ast]
             ##        [syntax])
             ## [type]
             ## (concurrency ["_;" promise]
             ##              [frp]
             ##              [stm]
             ##              [actor]
             ##              )
             ## [host]
             ## [math]
             ## [pipe]
             ## [lexer]
             ## [regex]
             ## (data (format [json]))
             )
        )
  ## (lux ## (codata [cont])
  ##      ## (data (struct [stack]
  ##      ##               [tree]
  ##      ##               [zipper])
  ##      ##       (error exception))
  ##      ## (concurrency [atom])
  ##      ## [macro]
  ##      ## (macro [template]
  ##      ##        [poly]
  ##      ##        (poly ["poly_;" eq]
  ##      ##              ["poly_;" text-encoder]
  ##      ##              ["poly_;" functor]))
  ##      ## (math [ratio]
  ##      ##       [complex]
  ##      ##       [random])
  ##      ## (type [check] [auto])
  ##      ## (control [effect])
  ##      ["_;" lexer]
  ##      ["_;" regex]
  ##      (data (format ["_;" json]))
  ##      )
  )

## [Program]
(program: args
  (test;run))