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
