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

Add a test for string/replace-first-char

Browse Source 
This adds a test for the `string/replace-first-char` instruction
This commit is contained in:
Erik Rauer 2021-04-01 11:19:09 -05:00
parent 110679d8f7
commit 3cdc2f7fe5
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
test/propeller/push/instructions/string_spec.clj
View File

@ -409,3 +409,23 @@
str2 gen/string str2 gen/string
str3 gen/string] str3 gen/string]
(check-replace-first str1 str2 str3))) (check-replace-first str1 str2 str3)))
;; string/replace-first-char
(defn check-replace-first-char
[value char1 char2]
(let [start-state (-> state/empty-state
(state/push-to-stack :string value)
(state/push-to-stack :char char1)
(state/push-to-stack :char char2))
end-state ((:string_replace_first_char @core/instruction-table) start-state)
expected-result (string/replace-first value char1 char2)]
(= expected-result
(state/peek-stack end-state :string))))
(defspec replace-first-char-spec 100
(prop/for-all [str gen/string
char1 gen/char
char2 gen/char]
(check-replace-first-char str char1 char2)))