Add tests for vector/_rest
This adds tests for `vector/_rest`.
This commit is contained in:
parent
d5f115f81c
commit
8afa8f83e5
@ -338,6 +338,21 @@
|
||||
|
||||
(gen-specs "replacefirst" check-replacefirst :vector :item :item)
|
||||
|
||||
;;; vector/_rest
|
||||
|
||||
(defn check-rest
|
||||
[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/_rest stack-type start-state)
|
||||
expected-result (vec (rest vect))]
|
||||
(= expected-result
|
||||
(state/peek-stack end-state stack-type))))
|
||||
|
||||
(gen-specs "rest" check-rest :vector)
|
||||
|
||||
;;; vector/_subvec
|
||||
|
||||
(defn clean-subvec-bounds
|
||||
|
Loading…
x
Reference in New Issue
Block a user