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

Fix some issues with the string/contains-char test

Browse Source 
Fixes the test to actually run `check-contains-char` as well as some issues with that function.

Also fixes similar problems with the `string/conj-char` test.
This commit is contained in:
Erik Rauer 2021-03-16 23:22:04 -05:00
parent 54c44a49b6
commit f14d738669
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,7 @@
(let [start-state (-> state/empty-state (let [start-state (-> state/empty-state
(state/push-to-stack :string value) (state/push-to-stack :string value)
(state/push-to-stack :char char)) (state/push-to-stack :char char))
end-state ((:string_conj-char @core/instruction-table) start-state) end-state ((:string_conj_char @core/instruction-table) start-state)
expected-result (str value char)] expected-result (str value char)]
(= expected-result (= expected-result
(state/peek-stack end-state :string)))) (state/peek-stack end-state :string))))
@ -59,7 +59,7 @@
(defspec conj-char-spec 100 (defspec conj-char-spec 100
(prop/for-all [str gen/string (prop/for-all [str gen/string
char gen/char] char gen/char]
(check-concat str char))) (check-conj-char str char)))
;; string/contains ;; string/contains
@ -87,9 +87,15 @@
(let [start-state (-> state/empty-state (let [start-state (-> state/empty-state
(state/push-to-stack :string value) (state/push-to-stack :string value)
(state/push-to-stack :char char)) (state/push-to-stack :char char))
end-state ((:string_contains-char @core/instruction-table) start-state) end-state ((:string_contains_char @core/instruction-table) start-state)
expected-result (string/includes? value char)] expected-result (string/includes? value (str char))]
(= expected-result (= expected-result
(state/peek-stack end-state :boolean))))
(defspec contains-char-spec 100
(prop/for-all [str gen/string
char gen/char]
(check-contains-char str char)))
(state/peek-stack end-state :string)))) (state/peek-stack end-state :string))))
(defspec contains-char-spec 100 (defspec contains-char-spec 100