picolisp

commit 3347572fd3f3f8a0cf4eae57d29b4706f293ae90
parent 8c279a2ce72717c8ec7745419e318caa056415d0
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 10 Jul 2013 19:09:14 +0200

Unit tests
Diffstat:
M
test/src/io.l
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/test/src/io.l b/test/src/io.l
@@ -1,4 +1,4 @@
-# 09nov12abu
+# 10jul13abu
 # (c) Software Lab. Alexander Burger
 
 ### path ###
@@ -11,6 +11,12 @@
 (test (1 3) (~(1 . 2) 3))
 (test (1 2 3 4) (1 ~(2 3) 4))
 (test (1 2 4) (1 ~(2 . 3) 4))
+(test (1 2 3) [1 2 3])
+(test (1 2 3) (1 2 3]
+(test (1 2 3) (1 2 3)]
+(test (1 (2 3)) (1 (2 3]
+(test (quote 1 (2 (3))) '(1 (2 (3]
+(test (quote 1 (2 (3))) '[1 (2 (3])
 (test (1 abc (d e f))
    (pipe (prinl "(1 abc (d e f))")
       (read) ) )