mes-m2/test/test101/read.test

#! /bin/sh
# -*-scheme-*-

# For use as a scaffolded sexp reader test
# ***REMOVE THIS BLOCK COMMENT INITIALLY***

# GNU Mes --- Maxwell Equations of Software
# Copyright © 2016, 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
#
# This file is part of GNU Mes.
#
# GNU Mes is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or (at
# your option) any later version.
#
# GNU Mes is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.

if [ "$MES" != guile ]; then
    MES=${MES-$(dirname $0)/../src/mes}
    MES_BOOT=boot-02.scm exec $MES < $0
fi

exec ${MES-mes} --no-auto-compile -s $0
!#

(set-current-output-port (open-output-file "test/results/test101.answer"))
(define (newline) (display #\newline))
0
cons
(cons 0 1)
(display 0) (newline)
#t
#f
(display #t) (newline)
(display #f) (newline)
'foo
(display 'foo) (newline)
(display #o77) (newline)
(display #o-6) (newline)
(display #x16) (newline)
(display #x-16) (newline)
(display #\A) (newline)
(display #\newline) (newline)
#\alarm
#\backspace
#\tab
#\newline
#\vtab
#\page
#\return
#\space
(display "\"")
(display "\\")
(display "\\\"\"\\")
(display 'foo)(newline)
(display '(foo))(newline)
(display '('foo))(newline)
(display (cdr '(car cdr))) (newline)
(display "foo bar") (newline)
;;barf
#!
barf
!#
#|
burp
|#
#;(bla) (display "must see!\n")
(display
  (lambda (x)
   #;()#t)
  )
(display #(0 1 2)) (newline)
(display (list '(foo
            #! boo !#
            ;;(bb 4)
            )
          ))
(newline)
(exit 0)
;; TODO: syntax, unsyntax, unsyntax-splicing