#lang racket

(require rackunit "tbd.rkt")

(define hw-tests
  (test-suite "scheme unit tests"
              
   (test-case "test my-map"
    (begin
      (check-equal? (my-map (lambda (x) (* x x)) '(1 2 3)) '(1 4 9))))

   (test-case "test co-map"
              (begin
                (check-equal? (co-map (lambda (x) (* x x)) '(1 2 3)) '(1 4 9))))))

(require rackunit/gui)
(test/gui hw-tests)