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