test for grapheme_strlen===null for bad utf8

1 files changed, 2 insertions, 0 deletions

diff --git a/tests/it.t b/tests/it.t
index 6ad45bf..ffce004 100755
--- a/tests/it.t
+++ b/tests/it.t
@@ -355,6 +355,8 @@ is(it::ucwords('foo bär über'), 'Foo Bär Über');
 is(it::substr_replace('abcdefgh', 'xyz', 2, 4), substr_replace('abcdefgh', 'xyz', 2, 4), 'it::substr_replace the same as substr_replace for ascii');
 is(it::substr_replace('✔☯♥', '☃☃', 1, 1), '✔☃☃♥', 'it::substr_replace for utf-8');
 
+is(grapheme_strlen("\xc1"), null, "need grapheme_strlen side effect for any2utf8");
+
 is(it::any2utf8('Meier'), 'Meier', "it::any2utf8 ascii input");
 is(it::any2utf8('Müller'), 'Müller', "it::any2utf8 utf8 input");
 is(it::any2utf8('Aslı'), 'Aslı', "it::any2utf8 utf8 non-latin1 input");