Add missing copyright headers.
[mes.git] / tests / read.test
1 #! /bin/sh
2 # -*-scheme-*-
3
4 # For use as a scaffolded sexp reader test
5 # ***REMOVE THIS BLOCK COMMENT INITIALLY***
6
7 # GNU Mes --- Maxwell Equations of Software
8 # Copyright © 2016, 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
9 #
10 # This file is part of GNU Mes.
11 #
12 # GNU Mes is free software; you can redistribute it and/or modify it
13 # under the terms of the GNU General Public License as published by
14 # the Free Software Foundation; either version 3 of the License, or (at
15 # your option) any later version.
16 #
17 # GNU Mes is distributed in the hope that it will be useful, but
18 # WITHOUT ANY WARRANTY; without even the implied warranty of
19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20 # GNU General Public License for more details.
21 #
22 # You should have received a copy of the GNU General Public License
23 # along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
24
25
26 MES=${MES-$(dirname $0)/../src/mes}
27 exec $MES -s $0
28 !#
29
30 0
31 cons
32 (cons 0 1)
33 (display 0) (newline)
34 #t
35 #f
36 (display #t) (newline)
37 (display #f) (newline)
38 'foo
39 (display 'foo) (newline)
40 (display #o77) (newline)
41 (display #o-6) (newline)
42 (display #x16) (newline)
43 (display #x-16) (newline)
44 (display #\A) (newline)
45 (display #\newline) (newline)
46 #\alarm
47 #\backspace
48 #\tab
49 #\newline
50 #\vtab
51 #\page
52 #\return
53 #\space
54 (display "\"")
55 (display "\\")
56 (display "\\\"\"\\")
57 (display 'foo)(newline)
58 (display '(foo))(newline)
59 (display '('foo))(newline)
60 (display (cdr '(car . cdr))) (newline)
61 (display "foo bar") (newline)
62 ;;barf
63 #!
64 barf
65 !#
66 #|
67 burp
68 |#
69 #;(bla) (display "must see!\n")
70 (display
71   (lambda (x)
72    #;()#t)
73   )
74 (display #(0 1 2)) (newline)
75 (display (list '(foo
76             #! boo !#
77             ;;(bb 4)
78             )
79           ))
80 (newline)
81 ;; TODO: syntax, unsyntax, unsyntax-splicing