29 lines
960 B
Scheme
29 lines
960 B
Scheme
#lang scheme/base
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
(only-in mzlib/file
|
|
make-temporary-file)
|
|
web-server/configuration/configuration-table)
|
|
(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))))
|
|
|
|
(test-case
|
|
"Default configuration file may be converted to sexpr and back"
|
|
(check-not-false
|
|
(sexpr->configuration-table
|
|
(configuration-table->sexpr
|
|
(read-configuration-table
|
|
default-configuration-table-path)))))))
|