projectTest.rkt

#lang racket

(require "project.rkt")

; This file uses Racket's unit-testing framework, which is convenient but not required of you.

; Note we have provided [only] 3 tests, but you can't run them until do some of the assignment.
; You will want more tests.

(require rackunit)

(define tests
  (test-suite
   "Project Tests"

   (check-equal? (eval-exp (plus (num 2) (num 2))) (num 4) "plus simple test")

   (check-exn (lambda (x) (string=? (exn-message x) "NUMEX addition applied to non-number"))
              (lambda () (eval-exp (plus (num 2) (bool #t))))
              "plus bad argument")

   (check-equal? (mupllist->racketlist
                  (eval-exp (call (call mupl-all-gt (int 9))
                                  (racketlist->mupllist 
                                   (list (int 10) (int 9) (int 15))))))
                 (list (int 10) (int 15))
                 "provided combined test using problems 1, 2, and 4")
   ))


(require rackunit/text-ui)
;; runs the test
(run-tests tests)