;; @(#)$Id: test-homework.scm,v 1.5 2006/01/11 23:30:34 leavens Exp $

(module test-homework (lib "typedscm.ss" "typedscm")
  (provide test-hw0 test-hw1 test-hw2 test-hw3 test-hw4
           test-hw5 test-hw6 test-hw7 test-hw8 test-hw9 test-hw10
           test-hw11 test-hw12 test-hw13 test-hw14 test-hw15
           test-ex)

  (deftype test-hw0 (-> (string) void))
  (deftype test-hw1 (-> (string) void))
  (deftype test-hw2 (-> (string) void))
  (deftype test-hw3 (-> (string) void))
  (deftype test-hw4 (-> (string) void))
  (deftype test-hw5 (-> (string) void))
  (deftype test-hw6 (-> (string) void))
  (deftype test-hw7 (-> (string) void))
  (deftype test-hw8 (-> (string) void))
  (deftype test-hw9 (-> (string) void))
  (deftype test-hw10 (-> (string) void))
  (deftype test-hw11 (-> (string) void))
  (deftype test-hw12 (-> (string) void))
  (deftype test-hw13 (-> (string) void))
  (deftype test-hw14 (-> (string) void))
  (deftype test-hw15 (-> (string) void))
  (deftype test-hwex (-> (string) void))

  (define cs342:test-maker
    (let ((testdir (string-append (collection-path "homework") "/")))
      (lambda (hw-number)
        (lambda (procedure-name)
          (if (not (string? procedure-name))
              (error "argument must be a string, like \"subst\""))
          (let ((file-to-load (string-append testdir
                                             "hw"
                                             hw-number
                                             "/"
                                             procedure-name
                                             ".tst")))
            (load file-to-load))))))
  
  (define test-hw0
    (lambda (procedure-name)
      ((cs342:test-maker "0")
       procedure-name)))
  (define test-hw1
    (lambda (procedure-name)
      ((cs342:test-maker "1")
       procedure-name)))
  (define test-hw2
    (lambda (procedure-name)
      ((cs342:test-maker "2")
       procedure-name)))
  (define test-hw3
    (lambda (procedure-name)
      ((cs342:test-maker "3")
       procedure-name)))
  (define test-hw4
    (lambda (procedure-name)
      ((cs342:test-maker "4")
       procedure-name)))
  (define test-hw5
    (lambda (procedure-name)
      ((cs342:test-maker "5")
       procedure-name)))
  (define test-hw6
    (lambda (procedure-name)
      ((cs342:test-maker "6")
       procedure-name)))
  (define test-hw7
    (lambda (procedure-name)
      ((cs342:test-maker "7")
       procedure-name)))
  (define test-hw8
    (lambda (procedure-name)
      ((cs342:test-maker "8")
       procedure-name)))
  (define test-hw9
    (lambda (procedure-name)
      ((cs342:test-maker "9")
       procedure-name)))
  (define test-hw10
    (lambda (procedure-name)
      ((cs342:test-maker "10")
       procedure-name)))
  (define test-hw11
    (lambda (procedure-name)
      ((cs342:test-maker "11")
       procedure-name)))
  (define test-hw12
    (lambda (procedure-name)
      ((cs342:test-maker "12")
       procedure-name)))
  (define test-hw13
    (lambda (procedure-name)
      ((cs342:test-maker "13")
       procedure-name)))
  (define test-hw14
    (lambda (procedure-name)
      ((cs342:test-maker "14")
       procedure-name)))
  (define test-hw15
    (lambda (procedure-name)
      ((cs342:test-maker "15")
       procedure-name)))
  (define test-ex
    (lambda (procedure-name)
      ((cs342:test-maker "ex")
       procedure-name)))
  )