(import 7off (chicken io) scheme)

(with-output-to-file
    "test-output.gmi"
    (lambda () (with-input-from-file "test-input.md" (lambda () (7off allow-wack-headers: #t)))))

(define real
  (with-input-from-file "test-output.gmi" read-lines))

(define dream
  (with-input-from-file "desired-output.gmi" read-lines))

(unless (equal? dream real)
  (print "Does not produce desired output"))