Support non-nested #| |# comment.
[mes.git] / tests / read.test
1 #! /bin/sh
2 # -*-scheme-*-
3 # ***REMOVE THIS BLOCK COMMENT INITIALLY***
4 echo ' ()' | cat $0 /dev/stdin | $(dirname $0)/../scripts/mes $MES_FLAGS "$@"
5 #paredit:||
6 exit $?
7 !#
8
9 ;; FIXME
10 (gc)
11
12
13 0
14 cons
15 (cons 0 1)
16 (display 0) (newline)
17 #t
18 #f
19 (display #t) (newline)
20 (display #f) (newline)
21 'foo
22 (display 'foo) (newline)
23 (display #x16) (newline)
24 (display #\A) (newline)
25 (display #\newline) (newline)
26 (display 'foo)(newline)
27 (display '(foo))(newline)
28 (display '('foo))(newline)
29 (display (cdr '(car . cdr))) (newline)
30 (display "foo bar") (newline)
31 ;;barf
32 #!
33 barf
34 !#
35 #|
36 burp
37 |#
38 #;(bla) (display "must see!\n")
39 (display `(display ,display)) (newline)
40 (display `(display ,@'(string port))) (newline)
41 (display #(0 1 2)) (newline)
42 (display (list '(foo
43             #! boo !#
44             ;;(bb 4)
45             )
46           ))
47 (newline)
48
49 ;; TODO: syntax, unsyntax, unsyntax-splicing