source: project/release/4/honu/trunk/tests/run.scm @ 28125

Last change on this file since 28125 was 28125, checked in by felix winkelmann, 9 years ago

honu 2.2: fix tests and add another hack for prolog

File size: 344 bytes
Line 
1(use honu)
2
3(let ((data
4       (with-input-from-file "Toplevel.java"
5         (lambda ()
6           (read-file 
7            (current-input-port) 
8            (lambda (p)
9              (let ((x (read-honu port: p line-numbers: #t)))
10                (pp x) 
11                x) ) ) ) ) ) )
12  (with-output-to-file "result"
13    (cut pp data))
14  (assert (equal? data
15                  (with-input-from-file "expected" read))))
Note: See TracBrowser for help on using the repository browser.