Test output for schematic [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
schematic-extract (version) .......................................... [ PASS]
schematic-format (version) ........................................... [ PASS]
schematic-markdown (version) ......................................... [ PASS]
schematic-wiki (version) ............................................. [ PASS]
schematic-extract (no input) ......................................... [ PASS]
schematic-format (no input) .......................................... [ PASS]
schematic-markdown (no input) ........................................ [ PASS]
schematic-wiki (no input) ............................................ [ PASS]
format (define) ...................................................... [ FAIL]
    expected "(define x 1)\n\n(define x\n  1)\n\n(define\n  x 1)\n\n(define\n  x\n  1)\n" but got "(define x 1)\n\n(define x\n  1)\n\n(define\n    x 1)\n\n(define\n    x\n  1)\n"
    (get-output-string output-port)
format (do) .......................................................... [ FAIL]
    expected "(do () () x)\n\n(do () ()\n  x)\n\n(do ()\n    () x)\n\n(do ()\n    ()\n  x)\n\n(do\n () () x)\n\n(do\n ()\n    () x)\n\n(do\n ()\n    ()\n  x)\n" but got "(do () () x)\n\n(do () ()\n  x)\n\n(do ()\n    () x)\n\n(do ()\n    ()\n  x)\n\n(do\n    () () x)\n\n(do\n    ()\n    () x)\n\n(do\n    ()\n    ()\n  x)\n"
    (get-output-string output-port)
format (let) ......................................................... [ PASS]