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