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