#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))))