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

Add tests for vector/_last

Browse Source 
This adds test.check tests for `vector/_last`. This is _really_ similar to `vector/_first` (and the other vector tests), so I think there are definitely ways to extract common logic from these.
This commit is contained in:
Nic McPhee 2020-12-18 17:02:18 -06:00
parent 66ec0a1ebd
commit ab1f6d4396
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,6 +60,36 @@
(first-spec gen/boolean "boolean")
(first-spec gen/string "string")
;;; vector/_last
(defn check-last
[generator value-type]
(let [stack-type (keyword (str "vector_" value-type))]
(prop/for-all [vect (gen/vector generator)]
(let [start-state (state/push-to-stack state/empty-state
stack-type
vect)
end-state (vector/_last stack-type start-state)]
(or
(and (empty? vect)
(= (state/peek-stack end-state stack-type)
vect))
(and
(= (last vect)
(state/peek-stack end-state (keyword value-type)))
(state/empty-stack? end-state stack-type)))))))
(defmacro last-spec
[generator value-type]
`(defspec ~(symbol (str "last-spec-" value-type))
100
(check-last ~generator ~value-type)))
(last-spec gen/small-integer "integer")
(last-spec gen/double "float")
(last-spec gen/boolean "boolean")
(last-spec gen/string "string")
;;; vector/_indexof
(defn check-expected-index