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

Add tests for vector/_occurrencesof

Browse Source 
This adds tests for `vector/_occurrencesof`.
This commit is contained in:
Erik Rauer 2020-12-30 14:23:14 -06:00
parent 99dbabcb82
commit aa2ed597a1
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

@ -233,6 +233,24 @@
(gen-specs "nth" check-nth :vector :integer) (gen-specs "nth" check-nth :vector :integer)
;;; vector/_occurrencesof
(defn check-occurrencesof
[value-type vect value]
(let [stack-type (keyword (str "vector_" value-type))
start-state (state/push-to-stack
(state/push-to-stack state/empty-state
stack-type
vect)
(keyword value-type)
value)
end-state (vector/_occurrencesof stack-type start-state)
expected-result (count (filterv #(= value %) vect))]
(= expected-result
(state/peek-stack end-state :integer))))
(gen-specs "occurrencesof" check-occurrencesof :vector :item)
;;; vector/_subvec ;;; vector/_subvec
(defn clean-subvec-bounds (defn clean-subvec-bounds