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

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

honu 2.1: flavors, changed signature

File size: 341 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 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))))
16
17
18
Note: See TracBrowser for help on using the repository browser.