(match:string): New tests.

diff --git a/test-suite/tests/regexp.test b/test-suite/tests/regexp.test
index 06550f2..c5d0d3a 100644 (file)
--- a/test-suite/tests/regexp.test
+++ b/test-suite/tests/regexp.test
@@ -58,6 +58,18 @@
   (pass-if-exception "bad arg 3" exception:wrong-type-arg
     (make-regexp "xyz" regexp/icase 'abc)))
 
+;;;
+;;; match:string
+;;;
+
+(with-test-prefix "match:string"
+
+  (pass-if "foo"
+    (string=? "foo" (match:string (string-match ".*" "foo"))))
+
+  (pass-if "foo offset 1"
+    (string=? "foo" (match:string (string-match ".*" "foo" 1)))))
+
 ;;;
 ;;; regexp-quote
 ;;;