Convert test-rint to rackunit

test-cvar-to-bril.rkt

@@ -22,4 +22,3 @@
 (for ([program listings])
  (test-eq (interp-RVar (list-ref listings 0))
           (evaluate-bril-main (pass (list-ref listings 0)))))
-

test-rint.rkt

@@ -1,5 +1,8 @@
 #lang racket
 
+(provide test-rint-tests)
+
+(require rackunit)
 (require "test-util.rkt")
 (require "rint.rkt")
 
@@ -9,7 +12,14 @@
 (define ast1.1 (Prim '+ (list rd neg-eight)))
 (define program (Program '() ast1.1))
 
-(test-eq -5
+(define test-rint-tests
+ (test-suite
+  "RInt interpretation tests"
+  (test-case 
+   "program with input"
+   (check-equal?
+    -5
     (with-input-from-num-list '(3)
-     (lambda () (interp-RInt program))))
+       (lambda () (interp-RInt program)))))))
+