28 lines
819 B
Scheme
28 lines
819 B
Scheme
#lang scheme/base
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
(lib "file-box.ss" "web-server" "lang")
|
|
(only-in mzlib/file make-temporary-file))
|
|
(provide file-box-tests)
|
|
|
|
(define file-box-tests
|
|
(test-suite
|
|
"File Boxes"
|
|
(test-case
|
|
"Creating a file box"
|
|
(check-not-false (file-box (make-temporary-file) 42)))
|
|
|
|
(test-case
|
|
"Reading a file box"
|
|
(check-equal? (file-unbox (file-box (make-temporary-file) 42)) 42))
|
|
|
|
(test-case
|
|
"Writing a file box"
|
|
(check-not-false (file-box-set! (file-box (make-temporary-file) 42) 43)))
|
|
|
|
(test-case
|
|
"Reading and Writing a file box"
|
|
(check-equal? (let ([fb (file-box (make-temporary-file) 42)])
|
|
(file-box-set! fb 43)
|
|
(file-unbox fb))
|
|
43))))
|