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
|
# 11jul11abu
# (c) Software Lab. Alexander Burger
### Unit Tests ###
# Local usage:
# ./pil lib/test.l $(/bin/pwd) -bye +
# Global usage:
# pil @lib/test.l $(/bin/pwd) -bye +
(setq
*CMD (cmd)
*PWD (opt) )
(test T (pool (tmp "db")))
(load
"@test/src/main.l"
"@test/src/apply.l"
"@test/src/flow.l"
"@test/src/sym.l"
"@test/src/subr.l"
"@test/src/big.l"
"@test/src/io.l"
"@test/src/db.l"
"@test/src/net.l"
"@test/src/ext.l"
"@test/src/ht.l" )
(load "@test/lib.l")
(load "@test/lib/misc.l")
(load "@test/lib/lint.l")
(load "@test/lib/math.l")
(msg 'OK)
# vi:et:ts=3:sw=3
|
