picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

test.l (616B)

      1 # 11jul11abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 ### Unit Tests ###
      5 # Local usage:
      6 # ./pil lib/test.l $(/bin/pwd) -bye +
      7 
      8 # Global usage:
      9 # pil @lib/test.l $(/bin/pwd) -bye +
     10 
     11 (setq
     12    *CMD (cmd)
     13    *PWD (opt) )
     14 
     15 (test T (pool (tmp "db")))
     16 
     17 (load
     18    "@test/src/main.l"
     19    "@test/src/apply.l"
     20    "@test/src/flow.l"
     21    "@test/src/sym.l"
     22    "@test/src/subr.l"
     23    "@test/src/big.l"
     24    "@test/src/io.l"
     25    "@test/src/db.l"
     26    "@test/src/net.l"
     27    "@test/src/ext.l"
     28    "@test/src/ht.l" )
     29 
     30 (load "@test/lib.l")
     31 (load "@test/lib/misc.l")
     32 
     33 (load "@test/lib/lint.l")
     34 
     35 (load "@test/lib/math.l")
     36 
     37 (msg 'OK)
     38 
     39 # vi:et:ts=3:sw=3