20 lines
790 B
Scheme
20 lines
790 B
Scheme
(module configuration-table-test mzscheme
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
(lib "file.ss")
|
|
(lib "configuration-table.ss" "web-server" "configuration")
|
|
(lib "web-config-unit.ss" "web-server"))
|
|
(provide configuration-table-tests)
|
|
|
|
(define configuration-table-tests
|
|
(test-suite
|
|
"Configuration Table"
|
|
|
|
(test-case
|
|
"Default configuration file may be parsed"
|
|
(check-not-false (read-configuration-table default-configuration-table-path)))
|
|
|
|
(test-case
|
|
"Default configuration file may be written"
|
|
(check-not-false (write-configuration-table
|
|
(read-configuration-table default-configuration-table-path)
|
|
(make-temporary-file))))))) |