(import /src/calc)
(import /src/parser)
(import /src/env)

(import /src/operations :prefix "o/")
(import /src/adverbs :prefix "a/")

(use testament)
(use /test-support)

(deftest dip
  (let [s (env/new-env)
        in (parser/parse "2 3 4 (+) dip")]
    (eval-all s in)
    (let [four (calc/pop s)
          five (calc/pop s)]
      (is (= 4 (four :value)))
      (is (= 5 (five :value))))))

(run-tests!)