picolisp

commit dabc9b9f9d27e17cc3c3273a3ac295f0e4047a56
parent 28bf9c03fdb1fdcabf417c66f2f2aa4eca934ea4
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 11 Jul 2011 14:03:15 +0200

More issues with position independent "lib/test.l"
Diffstat:
M
lib/test.l
 | 
4
+++-
M
test/lib/math.l
 | 
4
++--
M
test/src/flow.l
 | 
6
+++---
M
test/src/main.l
 | 
10
+++++-----

4 files changed, 13 insertions(+), 11 deletions(-)
diff --git a/lib/test.l b/lib/test.l
@@ -8,7 +8,9 @@
 # Global usage:
 # pil @lib/test.l $(/bin/pwd) -bye +
 
-(setq *PWD (opt))
+(setq
+   *CMD (cmd)
+   *PWD (opt) )
 
 (test T (pool (tmp "db")))
 
diff --git a/test/lib/math.l b/test/lib/math.l
@@ -1,7 +1,7 @@
-# 18may10abu
+# 11jul11abu
 # (c) Software Lab. Alexander Burger
 
-(load "lib/math.l")
+(load "@lib/math.l")
 
 ### pow ###
 (test 8.0 (pow 2.0 3.0))
diff --git a/test/src/flow.l b/test/src/flow.l
@@ -1,4 +1,4 @@
-# 30sep10abu
+# 11jul11abu
 # (c) Software Lab. Alexander Burger
 
 ### quote ###
@@ -435,8 +435,8 @@
 
 
 ### call ###
-(test T (call 'test "-d" "test"))
-(test NIL (call 'test "-f" "test"))
+(test T (call 'test "-d" (path "@test")))
+(test NIL (call 'test "-f" (path "@test")))
 
 
 ### kill ###
diff --git a/test/src/main.l b/test/src/main.l
@@ -85,7 +85,7 @@
 
 
 ### info ###
-(test '(T . @) (info "test"))
+(test '(T . @) (info "@test"))
 (test (5 . @)
    (out (tmp "info") (prinl "info"))
    (info (tmp "info")) )
@@ -116,22 +116,22 @@
 ### argv ###
 (test '("abc" "123")
    (pipe
-      (call "bin/picolisp" "-prog (println (argv)) (bye)" "abc" 123)
+      (call *CMD "-prog (println (argv)) (bye)" "abc" 123)
       (read) ) )
 (test '("abc" "123")
    (pipe
-      (call "bin/picolisp" "-prog (argv A B) (println (list A B)) (bye)" "abc" 123)
+      (call *CMD "-prog (argv A B) (println (list A B)) (bye)" "abc" 123)
       (read) ) )
 
 
 ### opt ###
 (test '("abc" "123")
    (pipe
-      (call "bin/picolisp" "-prog (println (list (opt) (opt))) (bye)" "abc" 123)
+      (call *CMD "-prog (println (list (opt) (opt))) (bye)" "abc" 123)
       (read) ) )
 (test "abc"
    (pipe
-      (call "bin/picolisp" "-de f () (println (opt))" "-f" "abc" "-bye")
+      (call *CMD "-de f () (println (opt))" "-f" "abc" "-bye")
       (read) ) )