aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorCalvin Rose <calsrose@gmail.com>2019-06-10 14:11:07 -0400
committerCalvin Rose <calsrose@gmail.com>2019-06-10 14:11:07 -0400
commitb4e25e5597d776ac59511c6490f6f3a45f1f882d (patch)
treebd5d1080479427875a46d3f89aba799b6fde5983
parentFix string/check-set. (diff)
Add some string/check-set tests.
-rw-r--r--test/suite6.janet7
1 files changed, 7 insertions, 0 deletions
diff --git a/test/suite6.janet b/test/suite6.janet
index 8b37c63b..2c7b2b19 100644
--- a/test/suite6.janet
+++ b/test/suite6.janet
@@ -118,4 +118,11 @@
(assert (deep= (parser/status p) (parser/status p2)) "parser 2")
(assert (deep= (parser/state p) (parser/state p2)) "parser 3")
+# String check-set
+(assert (string/check-set "abc" "a") "string/check-set 1")
+(assert (not (string/check-set "abc" "z")) "string/check-set 2")
+(assert (string/check-set "abc" "abc") "string/check-set 3")
+(assert (not (string/check-set "abc" "")) "string/check-set 4")
+(assert (not (string/check-set "" "aabc")) "string/check-set 5")
+
(end-suite)