diff --git a/test-suite/tests/strings.test b/test-suite/tests/strings.test
index 089429dcf..e439b95a1 100644
--- a/test-suite/tests/strings.test
+++ b/test-suite/tests/strings.test
@@ -24,3 +24,7 @@
 	 (not (string<? "foo\0" "foo")))
 (pass-if "string-ci<? respects string length"
 	 (not (string-ci<? "foo\0" "foo")))
+(pass-if "substring-move! checks start and end correctly"
+	 (signals-error?
+	  'out-of-range
+	  (substring-move! "sample" 3 0 "test" 3)))