rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add tests for vector/_take

Browse Source 
This add tests for `vector/_take`.
This commit is contained in:
Erik Rauer 2021-01-05 15:52:59 -06:00
parent 7613f18c70
commit 5412ff6c90
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/propeller/push/instructions/vector_spec.clj
View File

@ -431,3 +431,21 @@
(state/peek-stack end-state stack-type)))) (state/peek-stack end-state stack-type))))
(gen-specs "subvec" check-subvec :vector :integer :integer) (gen-specs "subvec" check-subvec :vector :integer :integer)
;;; vector/_take
(defn check-take
[value-type vect n]
(let [stack-type (keyword (str "vector_" value-type))
start-state (state/push-to-stack
(state/push-to-stack state/empty-state
stack-type
vect)
:integer
n)
end-state (vector/_take stack-type start-state)
expected-result (vec (take n vect))]
(= expected-result
(state/peek-stack end-state stack-type))))
(gen-specs "take" check-take :vector :integer)