#lang racket

(require "test-util.rkt")
(require "rint.rkt")

(define eight (Int 8))
(define rd (Prim 'read '()))
(define neg-eight (Prim '- (list eight)))
(define ast1.1 (Prim '+ (list rd neg-eight)))
(define program (Program '() ast1.1))

(test-eq -5
  (with-input-from-num-list '(3)
     (lambda () (interp-RInt program))))