[perl #69999] .isa(Obj,Str) doesn't work correctly if the Str contains colons.

[adam.pr...@utoronto.ca (via RT)]

# New Ticket Created by  adam.pr...@utoronto.ca 
# Please include the string:  [perl #69999]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=69999 >


The attached patch adds 4 more tests to 07-isa.t.  test #6 currently fails.

Adam


diff --git a/t/01-sanity/07-isa.t b/t/01-sanity/07-isa.t
index 9fc9a2f..0b706ff 100644
--- a/t/01-sanity/07-isa.t
+++ b/t/01-sanity/07-isa.t
@@ -1,7 +1,7 @@
 use v6;
 
 
-say "1..3";
+say "1..7";
 
 {
     my $string = "Pugs";
@@ -17,3 +17,15 @@ say "1..3";
     my $code = { 42 };
     if $code.isa("Code")  { say "ok 3" } else { say "not ok 3" }
 }
+class Thing {};
+{
+    my $thing = Thing.new();
+    if $thing.isa("Thing")  { say "ok 4" } else { say "not ok 4" }
+    if $thing.isa(Thing)  { say "ok 5" } else { say "not ok 5" }
+}
+class Thing::something {};
+{
+    my $thing = Thing::something.new();
+    if $thing.isa("Thing::something")  { say "ok 6" } else { say "not ok 6" }
+    if $thing.isa(Thing::something)  { say "ok 7" } else { say "not ok 7" }
+}