#lang racket

;; =============================================================================
;; ACI (Fall 2021): aci-tests.rkt
;; =============================================================================

(require (only-in "aci.rkt" aci run restore clone reset-tabs)
         "test-support.rkt")

;; DO NOT EDIT ABOVE THIS LINE =================================================

(define/provide-test-suite student-tests ;; DO NOT EDIT THIS LINE ==================
  ; TODO: Add your own tests below!
  (test-equal? "web-read input" 5
               (test-aci ((run (+ (web-read "Input first number:")
                                  (web-read "Input second number:")))
                          (restore 0 2)
                          (restore 0 3)))))

;; DO NOT EDIT BELOW THIS LINE =================================================

(module+ main (run-tests student-tests))