[perl #72048] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S03-operators/smartmatch.t

commit 1547137afde1072821951f94e003ecbfa5364748
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Jan 15 17:56:36 2010 +0000

    [t/spec] Test for RT 72048: !~~ of role on instance is always true
    
    git-svn-id: http://svn.pugscode.org/p...@29535 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-operators/smartmatch.t 
b/t/spec/S03-operators/smartmatch.t
index 5daa44c..7c6189e 100644
--- a/t/spec/S03-operators/smartmatch.t
+++ b/t/spec/S03-operators/smartmatch.t
@@ -353,7 +353,7 @@ my %hash5 = ( "foo" => 1, "bar" => 1, "gorch" => Mu, "baz" 
=> Mu );
     ok (Chihuahua ~~ Dog), "chihuahua isa dog";
     ok (Something ~~ SomeRole), 'something does dog';
     ok !(Chihuahua ~~ Cat), "chihuahua is not a cat";
-};
+}
 
 # TODO:
 # Signature Signature
@@ -471,6 +471,16 @@ eval_lives_ok 'class A { method foo { return "" ~~ * } }; 
A.new.foo',
 
 }
 
+# RT 72048
+{
+    role RT72048_role {}
+    class RT72048_class does RT72048_role {}
+
+    ok RT72048_class.new ~~ RT72048_role, 'class instance matches role';
+    #?rakudo todo 'RT 72048: !~~ of role on instance is always true'
+    nok RT72048_class.new !~~ RT72048_role, 'class instance !!matches role';
+}
+
 done_testing();
 
 # vim: ft=perl6