From 3717be6b0d5eb45213fd5d277662d3b32abadeaf Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 27 Apr 2021 21:16:08 -0700
Subject: match-str: tests and bugfix.

* lib.c (do_match_str): Fix wrong return value calculation
in LSTR-LSTR case.
* tests/015/match-str.tl: New file.
---
 tests/015/match-str.tl | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 tests/015/match-str.tl

(limited to 'tests/015/match-str.tl')

diff --git a/tests/015/match-str.tl b/tests/015/match-str.tl
new file mode 100644
index 00000000..53e2c73a
--- /dev/null
+++ b/tests/015/match-str.tl
@@ -0,0 +1,41 @@
+(load "../common")
+
+(defun lz (str)
+  (lazy-str (spl "" str) ""))
+
+(defun lz* (str)
+  (lazy-str (append (spl "" str) 42) ""))
+
+(mtest
+  (match-str "" "") 0
+  (match-str "a" "a") 1
+  (match-str "a" "") 0
+  (match-str "a" "" 1) 1
+  (match-str "a" "" 2) nil
+  (match-str "abc" "c" 2) 3
+  (match-str "abc" "b" 1) 2
+  (match-str "abc" "a" 0) 1
+  (match-str "abc" "b" 2) nil
+  (match-str "abc" "a" 1) nil
+  (match-str "abc" "c" 0) nil
+  (match-str "abc" "c" 3) nil
+  (match-str "abc" "c" 4) nil
+  (match-str "abc" "abcd") nil)
+
+(mtest
+  (match-str (lz* "abc#") "c" 2) 3
+  (match-str "abc#" (lz "c") 2) 3
+  (match-str (lz* "abc#") (lz "c") 2) 3
+  (match-str (lz "abc") (lz "c") 2) 3
+  (match-str (lz "abc") (lz "b") 1) 2
+  (match-str (lz "abc") (lz "a") 0) 1
+  (match-str (lz "abc") (lz "b") 2) nil
+  (match-str (lz "abc") (lz "a") 1) nil
+  (match-str (lz "abc") (lz "c") 0) nil
+  (match-str (lz "abc") (lz "c") 3) nil
+  (match-str (lz "abc") (lz "c") 4) nil
+  (match-str (lz "abc") (lz "abcd")) nil)
+
+(mtest
+  (match-str "" "" -1) nil
+  (match-str "" "" -1) nil)
-- 
cgit v1.2.3