#lang scheme
(require (planet schematics/schemeunit:3)
         "../../ast.ss"
         "../../private/env.ss")

(provide env-tests)

(define t1 (make-constant #f 't1))
(define t2 (make-constant #f 't2))

(define env-tests
  (test-suite
   "env"
   
   (test-equal? "default" (lookup (empty-env) 'v) #f)
   (test-equal? "default" (lookup (empty-env) 'v t1) t1)
   (test-equal? "extend" (lookup (extend (empty-env) 'v1 t1) 'v1) t1)
   (test-equal? "extend"
                (lookup (extend (extend (empty-env) 'v1 t1)
                                'v1 t1)
                        'v1)
                t1)))