diff options
| -rw-r--r-- | lib.c | 2 | ||||
| -rw-r--r-- | tests/015/match-str.tl | 41 |
2 files changed, 42 insertions, 1 deletions
@@ -4554,7 +4554,7 @@ static val do_match_str(val bigstr, val str, cnum pos, val self) return nil; } - return length_str_le(str, num(i)) ? num(i + 1) : nil; + return length_str_le(str, num(i)) ? num(p) : nil; } default: invalid_ops(self, bigstr, str); 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) |