Add test for string/last

This adds a test for the `string/last` instruction
2021-03-23 22:18:28 -05:00 · 2021-03-23 22:18:28 -05:00 · c270ce6c1a
commit c270ce6c1a
parent 9cd4f875c2
1 changed files with 16 additions and 1 deletions
--- a/test/propeller/push/instructions/string_spec.clj
+++ b/test/propeller/push/instructions/string_spec.clj
@ -232,3 +232,18 @@
  (prop/for-all [str gen/string
                 char gen/char]
                (check-indexof-char str char)))
+
+
+;; string/last
+
+(defn check-last
+  [value]
+  (let [start-state (state/push-to-stack state/empty-state :string value)
+        end-state ((:string_last @core/instruction-table) start-state)
+        expected-result (last value)]
+    (= expected-result
+       (state/peek-stack end-state :char))))
+
+(defspec last-spec 100
+  (prop/for-all [str gen/string]
+                (check-last str)))