mes: Guile-like command-line interface.
[mes.git] / tests / read.test
1 #! /bin/sh
2 # -*-scheme-*-
3 # ***REMOVE THIS BLOCK COMMENT INITIALLY***
4 MES=${MES-$(dirname $0)/../src/mes}
5 $MES -s $0
6 exit $?
7 !#
8
9 0
10 cons
11 (cons 0 1)
12 (display 0) (newline)
13 #t
14 #f
15 (display #t) (newline)
16 (display #f) (newline)
17 'foo
18 (display 'foo) (newline)
19 (display #o77) (newline)
20 (display #o-6) (newline)
21 (display #x16) (newline)
22 (display #x-16) (newline)
23 (display #\A) (newline)
24 (display #\newline) (newline)
25 #\alarm
26 #\backspace
27 #\tab
28 #\newline
29 #\vtab
30 #\page
31 #\return
32 #\space
33 (display "\"")
34 (display "\\")
35 (display "\\\"\"\\")
36 (display 'foo)(newline)
37 (display '(foo))(newline)
38 (display '('foo))(newline)
39 (display (cdr '(car . cdr))) (newline)
40 (display "foo bar") (newline)
41 ;;barf
42 #!
43 barf
44 !#
45 #|
46 burp
47 |#
48 #;(bla) (display "must see!\n")
49 (display
50   (lambda (x)
51    #;()#t)
52   )
53 (display #(0 1 2)) (newline)
54 (display (list '(foo
55             #! boo !#
56             ;;(bb 4)
57             )
58           ))
59 (newline)
60 ;; TODO: syntax, unsyntax, unsyntax-splicing