[perl #65172] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S29-conversions/ord_and_chr.t

commit 2f95300eed064742a91048b65ae28efea460b673
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Aug 16 04:04:25 2009 +0000

    [t/spec] Test for RT #65172
    
    git-svn-id: http://svn.pugscode.org/p...@28003 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S29-conversions/ord_and_chr.t 
b/t/spec/S29-conversions/ord_and_chr.t
index ee3820d..38d9a5d 100644
--- a/t/spec/S29-conversions/ord_and_chr.t
+++ b/t/spec/S29-conversions/ord_and_chr.t
@@ -121,7 +121,7 @@ my @maps = (
   "\o03", 3,
 );
 
-plan 3...@maps*2;
+plan 3...@maps*2;
 
 for @maps -> $char, $code {
   my $descr = "\\{$code}{$code >= 32 ?? " == '{$char}'" !! ""}";
@@ -152,4 +152,12 @@ is chr(104, 101, 108, 108, 111), 'hello', 'chr works with 
a list of ints';
 #?rakudo skip 'RT #62772'
 ok ord("") ~~ Failure, 'ord("") returns a Failure';
 
+# RT #65172
+{
+    my $rt65172a = "\c[LATIN CAPITAL LETTER A, COMBINING DOT ABOVE]";
+    my $rt65172b = "\c[LATIN CAPITAL LETTER A WITH DOT ABOVE]";
+    #?rakudo todo 'RT #65172'
+    is $rt65172a.ord, $rt65172b.ord, '.ord defaults to grapheme mode';
+}
+
 #vim: ft=perl6