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

Add tests for vector/_butlast

Browse Source 
This adds tests for `vector/_butlast`.
This commit is contained in:
Erik Rauer 2020-12-29 14:43:39 -06:00
parent 957af4fc06
commit 5e87478ceb
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,6 +42,21 @@
arg-types)] arg-types)]
(~check-fn ~value-type ~@symbol-names))))))) (~check-fn ~value-type ~@symbol-names)))))))
;;; vector/_butlast
(defn check-butlast
[value-type vect]
(let [stack-type (keyword (str "vector_" value-type))
start-state (state/push-to-stack state/empty-state
stack-type
vect)
end-state (vector/_butlast stack-type start-state)
expected-result (vec (butlast vect))]
(= expected-result
(state/peek-stack end-state stack-type))))
(gen-specs "butlast" check-butlast :vector)
;;; vector/_contains ;;; vector/_contains
(defn check-contains (defn check-contains