15 lines
551 B
Clojure
15 lines
551 B
Clojure
(ns propeller.push.state-test
|
|
(:require [clojure.test :as t]
|
|
[propeller.push.state :as state]
|
|
[propeller.push.utils.limits :as l]))
|
|
|
|
(t/deftest push-to-stack-test
|
|
(t/is (= (state/push-to-stack {:integer '()} :integer 1)
|
|
{:integer '(1)}))
|
|
(t/is (= (state/push-to-stack {:integer '()} :integer 1e100)
|
|
{:integer (list (long l/max-number-magnitude))})))
|
|
|
|
(t/deftest push-to-stack-many-test
|
|
(t/is (= (state/push-to-stack-many {:string '()} :string ["a" "b" "c"])
|
|
{:string '("a" "b" "c")})))
|