(module error mzscheme
  (require "../error.ss"
           (planet "test.ss" ("schematics" "schemeunit.plt" 1)))
  (provide error-test)
  (define error-test
    (make-test-suite "error.ss"
      (make-test-case 
       "raise-file-not-found"
       (assert-exn exn:fail:filesystem?
                   (lambda () (raise-file-not-found 'testing "there"))))))
  )