(use gauche.test)
(test-start "syntax")

(define (target-files)
  (apply append (map sys-glob '("../*.in" 
                                "../dot.scmail/*.sample"
                                "../scmail/*.scm"))))

(test "all files" 'ok
       (lambda () (for-each (lambda (file)
                   (call-with-input-file file port->sexp-list))
                 (target-files))
         'ok))

(test-end)