/usr/share/picolisp/lib/test.l is in picolisp 17.12+20180218-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # 21dec16abu
# (c) Software Lab. Alexander Burger
### Unit Tests ###
# Local usage:
# ./pil lib/test.l -bye +
# Global usage:
# pil @lib/test.l -bye +
(unless *Dbg
(quit "Needs debug mode '+'") )
(setq
*CMD (cmd)
*PWD (in '(pwd) (line T)) )
(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
|