Test output for ini-file
Testing time: 8.0s
CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm (input "") => () ; correct (input "; comment") => () ; correct (input "[section]") => ((section)) ; correct (input "[sec tion]") => ((|sec tion|)) ; correct (input "one") => ((default (one . #t))) ; correct (input "one=2") => ((default (one . 2))) ; correct (input "one=two") => ((default (one . "two"))) ; correct (input "one=\"two\"") => ((default (one . "\"two\""))) ; correct (input "one= two ") => ((default (one . "two"))) ; correct (input "1 = two 3 ") => ((default (1 . "two 3"))) ; correct (input "one = two\n [section]\n three = four") => ((section (three . "four")) (default (one . "two"))) ; correct (fails? (input "[section")) => #t ; correct (fails? (input "one=")) => #t ; correct (fails? (input "one=#")) => #t ; correct (fails? (input "=two")) => #t ; correct (fails? (input "one=\ntwo")) => #t ; correct (output (quote ())) => "" ; correct (output (quote (one . 2))) => "one=2\n" ; correct (output (quote (section))) => "[section]\n\n" ; correct (output (quote ((one . 2) (three . "four")))) => "three=four\none=2\n" ; correct (output (quote (section (one . 2) (three . 4)))) => "[section]\nthree=4\none=2\n\n" ; correct (output (quote ((section (one . "two"))))) => "[section]\none=two\n\n" ; correct (output (quote (((section (one . "two")))))) => "[section]\none=two\n\n" ; correct (read-ini "example.ini") => ((database (file . "\"payroll.dat\"") (port . 143) (server . "192.0.2.62")) (owner (organization . "Acme Widgets Inc.") (name . "John Doe"))) ; correct (input (output (read-ini "example.ini"))) => ((database (file . "\"payroll.dat\"") (port . 143) (server . "192.0.2.62")) (owner (organization . "Acme Widgets Inc.") (name . "John Doe"))) ; correct