diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/utf16_to_utf8.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ext/XS-APItest/t/utf16_to_utf8.t b/ext/XS-APItest/t/utf16_to_utf8.t index 3f6f798a32..5e6c58acf5 100644 --- a/ext/XS-APItest/t/utf16_to_utf8.t +++ b/ext/XS-APItest/t/utf16_to_utf8.t @@ -34,6 +34,9 @@ is($got, undef, 'hence eval returns undef'); for (["\xD8\0\0\0", 'NULs'], ["\xD8\0\xD8\0", '2 Lows'], + ["\xDC\0\0\0", 'High NUL'], + ["\xDC\0\xD8\0", 'High Low'], + ["\xDC\0\xDC\0", 'High High'], ) { my ($malformed, $name) = @$_; $got = eval {utf16_to_utf8($malformed)}; |