(module test-teachpacks mzscheme

  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2 8))
           (lib "unit.ss")
           (prefix audio:
                   (file "../language/teachpacks/audio.scm"))
           (prefix avl-rational-keys:
                   (file "../language/teachpacks/avl-rational-keys.scm"))
           (prefix binary-io-utilities:
                   (file "../language/teachpacks/binary-io-utilities.scm"))
           (prefix io-utilities:
                   (file "../language/teachpacks/io-utilities.scm"))
           (prefix list-utilities:
                   (file "../language/teachpacks/list-utilities.scm"))
           (prefix testing:
                   (file "../language/teachpacks/testing.scm"))
           (prefix world:
                   (file "../language/teachpacks/world.scm")))

  (provide test-teachpacks)

  (define test-teachpacks
    (test-suite "Teachpacks"
      (test-case "audio"
        (check-not-exn
         (lambda () (invoke-unit audio:teachpack@))))
      (test-case "avl-rational-keys"
        (check-not-exn
         (lambda () (invoke-unit avl-rational-keys:teachpack@))))
      (test-case "binary-io-utilities"
        (check-not-exn
         (lambda () (invoke-unit binary-io-utilities:teachpack@))))
      (test-case "io-utilities"
        (check-not-exn
         (lambda () (invoke-unit io-utilities:teachpack@))))
      (test-case "list-utilities"
        (check-not-exn
         (lambda () (invoke-unit list-utilities:teachpack@))))
      (test-case "testing"
        (check-not-exn
         (lambda () (invoke-unit testing:teachpack@))))
      (test-case "world"
        (check-not-exn
         (lambda () (invoke-unit world:teachpack@))))))

  )