picolisp

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

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:
Mlib/test.l | 4+++-
Mtest/lib/math.l | 4++--
Mtest/src/flow.l | 6+++---
Mtest/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) ) )