testPart1.rkt

(load "interpreter.scm")
(define test
  (lambda (file expected)
    (if (eq? (interpret file) expected) (string-append "Passed: " file) (string-append "Failed: " file))))

(test "Tests/1.txt" 150)
(test "Tests/2.txt" -4)
(test "Tests/3.txt" 10)
(test "Tests/4.txt" 16)
(test "Tests/5.txt" 220)
(test "Tests/6.txt" 5)
(test "Tests/7.txt" 6)
(test "Tests/8.txt" 10)
(test "Tests/9.txt" 5)
(test "Tests/10.txt" -39)
(with-handlers ([exn:fail? (lambda (exn) exn)])
    (test "Tests/11.txt" 20))
(with-handlers ([exn:fail? (lambda (exn) exn)])
    (test "Tests/12.txt" 20))
(with-handlers ([exn:fail? (lambda (exn) exn)])
    (test "Tests/13.txt" 20))
(with-handlers ([exn:fail? (lambda (exn) exn)])
    (test "Tests/14.txt" 20))
(test "Tests/15.txt" 'true)
(test "Tests/16.txt" 100)
(test "Tests/17.txt" 'false)
(test "Tests/18.txt" 'true)
(test "Tests/19.txt" 128)
(test "Tests/20.txt" 12)