#lang racket ;; ============================================================================= ;; Lazy (Fall 2020): lazy-interp-tests.rkt ;; ============================================================================= (require (only-in "lazy-interp.rkt" eval) "lazy-interp-support.rkt" "test-support.rkt") ;; DO NOT EDIT ABOVE THIS LINE ================================================= (define/provide-test-suite lazy-interp-tests ;; DO NOT EDIT THIS LINE ========== ; TODO: Add your own tests below! (test-equal? "Works with Num primitive" (eval `2) (v-num 2)) (test-pred "Works with Pairs" v-pair? (eval `(pair 1 2)))) ;; DO NOT EDIT BELOW THIS LINE ================================================= (run-tests lazy-interp-tests)