#lang racket

(require "uncover-locals.scm")
(require "test-util.scm")

(define programs
    (list
     `(program ()
               ((start . (seq (assign x.1 20) (seq (assign x.2 3) (return (+ x.1 x.2)))))))))

(test-eq
 (cadr (uncover-locals (list-ref programs 0)))
 `(locals . (x.1 x.2)))