sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-04-27 14:57:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tests for IO

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-07 18:53:23 +09:00
parent 97531f6cb7
commit 6de7911b7c
2 changed files with 44 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/Makefile
View file

@ -1,5 +1,7 @@
test1: test1.lisp qemu.sh tcat test1: test1.lisp qemu.sh tcat
sh qemu.sh test1.lisp sh qemu.sh test1.lisp
test2: test2.lisp qemu.sh tcat
sh qemu.sh test2.lisp
eval10: eval10.lisp qemu.sh tcat eval10: eval10.lisp qemu.sh tcat
sh qemu.sh eval10.lisp sh qemu.sh eval10.lisp
eval15: eval15.lisp qemu.sh tcat eval15: eval15.lisp qemu.sh tcat

42
test/test2.lisp Normal file
View file

@ -0,0 +1,42 @@
(READ)AAA
(READ)(1 (2 3) 4)
(READ)
AAA
(READ)
(1 (2 3) 4)
(CAR (READ))(1 (2 3) 4)
(CDR (READ))(1 (2 3) 4)
(CONS (READ) (CONS (QUOTE A) NIL))B
(CONS (READ) (CONS (QUOTE A) NIL))(1 (2 3) 4)
(ATOM (READ))A
(ATOM (READ))(1 2)
(EQ (QUOTE A) (READ))A
(EQ (QUOTE B) (READ))A
(PRINT (QUOTE A))
(PRINT (QUOTE (1 2)))
((LAMBDA () ())
(PRINT (QUOTE A))
(PRINT (QUOTE B))
(PRINT)
(PRINT (QUOTE C))
(PRINT (QUOTE (1 2 3)))
(PRINT))
(PRINT (READ))AAA
(PRINT (READ))(1 (2 3) 4)
(PRINT)
(PRINT (PRINT))
(PRINT (PRINT (QUOTE A)))
((LAMBDA (LOOP) (LOOP LOOP))
(QUOTE (LAMBDA (LOOP)
((LAMBDA () ())
(PRINT (QUOTE >))
(PRINT (CONS (QUOTE INPUT) (CONS (READ) NIL)))
(PRINT)
(LOOP LOOP)))))
A
B
C
(1 2)
(1 (2 3) 4)