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

Add a test for string/remove-char

Browse Source 
This adds a test for the `string/remove-char` instruction
This commit is contained in:
Erik Rauer 2021-04-01 10:59:38 -05:00
parent 95cab60576
commit da22da5014
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/string_spec.clj
View File

@ -331,3 +331,21 @@
(defspec parse-to-chars-spec 100 (defspec parse-to-chars-spec 100
(prop/for-all [str gen/string] (prop/for-all [str gen/string]
(check-parse-to-chars str))) (check-parse-to-chars str)))
;; string/remove-char
(defn check-remove-char
[value char]
(let [start-state (-> state/empty-state
(state/push-to-stack :string value)
(state/push-to-stack :char char))
end-state ((:string_remove_char @core/instruction-table) start-state)
expected-result (apply str (filter #(not= char %) value))]
(= expected-result
(state/peek-stack end-state :string))))
(defspec remove-char-spec 100
(prop/for-all [str gen/string
char gen/char]
(check-remove-char str char)))