diff --git a/tests/test.cmp b/tests/test.cmp
index f7a8d1a9..47507b0c 100644
--- a/tests/test.cmp
+++ b/tests/test.cmp
@@ -3930,6 +3930,11 @@ set a pad(11:33, " ", 12)
 pad(11:33, " ", 12) => "       11:33"
 set a pad(11:33, " ", 12, 1)
 pad(11:33, " ", 12, 1) => "11:33       "
+set a pad("foo", "0", $MaxStringLen+1)
+$MaxStringLen => 65535
+65535 + 1 => 65536
+pad("foo", "0", 65536) => String too long
+../tests/test.rem(799): String too long
 
 # Don't want Remind to queue reminders
 EXIT
diff --git a/tests/test.rem b/tests/test.rem
index 6687e530..6aceb96f 100644
--- a/tests/test.rem
+++ b/tests/test.rem
@@ -796,6 +796,7 @@ set a pad("foo", "quux", 14)
 set a pad("foo", "quux", 14, 1)
 set a pad(11:33, " ", 12)
 set a pad(11:33, " ", 12, 1)
+set a pad("foo", "0", $MaxStringLen+1)
 
 # Don't want Remind to queue reminders
 EXIT