Add tests to cover RT #125248.

Raku · Jun 5, 2015 · 5f50466 · 5f50466
1 parent 8319ef6
commit 5f50466
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/S15-nfg/many-combiners.t b/S15-nfg/many-combiners.t
@@ -0,0 +1,11 @@
+use Test;
+
+plan 5;
+
+# RT #125248
+my $test-str = "N̴͔̈F̷͚́G̶͔̈́ ̷̃͜i̴̡͘s̴̰͘ ̶̫̉a̵̬͆w̴̢͒ę̴̏s̴̱̋o̴̫̓m̸̜͐e̶̥̋";
+is $test-str.chars, 14, 'Correct value of .chars for string with many combiners';
+is "N̴͔̈F̷͚́G̶͔̈́ ̷̃͜i̴̡͘s̴̰͘ ̶̫̉a̵̬͆w̴̢͒ę̴̏s̴̱̋o̴̫̓m̸̜͐e̶̥̋".NFC.elems, 56, 'Can .NFC string with many combiners';
+is "N̴͔̈F̷͚́G̶͔̈́ ̷̃͜i̴̡͘s̴̰͘ ̶̫̉a̵̬͆w̴̢͒ę̴̏s̴̱̋o̴̫̓m̸̜͐e̶̥̋".NFD.elems, 57, 'Can .NFD string with many combiners';
+is "N̴͔̈F̷͚́G̶͔̈́ ̷̃͜i̴̡͘s̴̰͘ ̶̫̉a̵̬͆w̴̢͒ę̴̏s̴̱̋o̴̫̓m̸̜͐e̶̥̋".NFKC.elems, 56, 'Can .NFKC string with many combiners';
+is "N̴͔̈F̷͚́G̶͔̈́ ̷̃͜i̴̡͘s̴̰͘ ̶̫̉a̵̬͆w̴̢͒ę̴̏s̴̱̋o̴̫̓m̸̜͐e̶̥̋".NFKD.elems, 57, 'Can .NFKD string with many combiners';