File: syntax.scm

package info (click to toggle)
scmail 1.3-4.1
  • links: PTS
  • area: main
  • in suites: bullseye, forky, sid, trixie
  • size: 592 kB
  • sloc: lisp: 1,535; sh: 178; makefile: 145
file content (15 lines) | stat: -rw-r--r-- 408 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
(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)