(module exn-test mzscheme
  
  (require 
   (planet "test.ss" ("schematics" "schemeunit.plt" 2 0))
   (file "base.ss")
   )
  
  (provide 
   exn-tests
   )
  
  (define exn-tests
    (test-suite
     "All tests for exn"
     
     (test-case
      "raise-exn raises an exception"
      (check-exn
       exn:fail:unlib?
       (lambda ()
         (raise-exn exn:fail:unlib
           "This is an exception."))))

     (test-case
      "raise-exn/append raises an exception"
      (check-exn
       exn:fail:unlib?
       (lambda ()
         (raise-exn/append exn:fail:unlib
           "This is an exception. "
           "Oh yes it is."))))

     (test-case
      "raise-exn/format raises an exception"
      (check-exn
       exn:fail:unlib?
       (lambda ()
         (raise-exn/format exn:fail:unlib
           "This is an exception. ~a Test number ~a."
           "Oh yes it is."
           69))))

     ))
  )