[perl #65170] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S02-builtin_data_types/unicode.t

commit e00ba2f74e7c0923b6550f76f6d22d10950c90a1
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Aug 16 03:59:55 2009 +0000

    [t/spec] Additional tests for RT #65170
    
    git-svn-id: http://svn.pugscode.org/p...@28002 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-builtin_data_types/unicode.t 
b/t/spec/S02-builtin_data_types/unicode.t
index 2263361..a399c9d 100644
--- a/t/spec/S02-builtin_data_types/unicode.t
+++ b/t/spec/S02-builtin_data_types/unicode.t
@@ -1,7 +1,7 @@
 use v6;
 
 use Test;
-plan 15;
+plan 17;
 
 #L<S02/"Built-In Data Types"/".bytes, .codes or .graphs">
 
@@ -16,6 +16,16 @@ is "foo\r\nbar".graphs, 7, 'CRLF is 1 graph';
 # Speculation, .chars is unspecced, also use Bytes etc.
 is $u.chars, 1, '.chars defaults to .graphs';
 
+# RT #65170
+{
+    my $rt65170;
+
+    $rt65170 = "\c[LATIN CAPITAL LETTER A WITH DOT ABOVE, COMBINING DOT 
BELOW]";
+    is $rt65170.chars, 1, '.chars defaults to .graphs (2)';
+    $rt65170 = "\c[LATIN CAPITAL LETTER A, COMBINING DOT ABOVE, COMBINING DOT 
BELOW]";
+    is $rt65170.chars, 1, '.chars defaults to .graphs (3)';
+}
+
 #L<S02/"Built-In Data Types"/"coerce to the proper units">
     $u = "\x[41,
             E1,