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.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index e755e88a..2f0f9859 100644
--- a/lib.c
+++ b/lib.c
@@ -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);