[perl #69999] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in at least one of these files: AUTHORS, t/spec/S29-any/isa.t

commit 8000490d34a3e1073e29c05f57df81ebf06b4308
Author: jsut <j...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Oct 24 14:53:23 2009 +0000

    Tests for RT #69999, .isa on classes with colons in their names
    
    
    git-svn-id: http://svn.pugscode.org/p...@28892 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/AUTHORS b/AUTHORS
index 9f3f4d8..44a2610 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -7,6 +7,7 @@ Aaron "ajs" Sherman              (ASHER)
 Aankhola Encorporated            (AANKHEN)
 Adam "alias" Kennedy             (ADAMK)
 Adam Preble
+Adam "jsut" Prime                (APRIME)
 Adrian "adehohum" Taylor
 Adriano Ferreira                 (FERREIRA)
 Adrian "Auzon" Kreher
diff --git a/t/spec/S29-any/isa.t b/t/spec/S29-any/isa.t
index 88a0361..7e21a0d 100644
--- a/t/spec/S29-any/isa.t
+++ b/t/spec/S29-any/isa.t
@@ -18,7 +18,7 @@ L<S29/Any/=item isa/>
 
 =end kwid 
 
-plan 11;
+plan 15;
 
 { # invocant notation  
     my @arr = <1 2 3 4>;
@@ -59,4 +59,17 @@ plan 11;
     ok(![1, 2, 3, 4].isa(Hash), '... [1, 2, 3, 4].isa("Hash") fail 
predicably');    
 }
 
+class Thing {};
+{
+    my $thing = Thing.new();
+    ok($thing.isa("Thing"));
+    ok($thing.isa(Thing));
+}
+class Thing::something {};
+{
+    my $thing = Thing::something.new();
+    ok($thing.isa("Thing::something"));
+    ok($thing.isa(Thing::something));
+}
+
 # vim: ft=perl6