diff --git a/t/spec/S14-roles/composition.t b/t/spec/S14-roles/composition.t
index 85235ae..57798e7 100644
--- a/t/spec/S14-roles/composition.t
+++ b/t/spec/S14-roles/composition.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 11;
+plan 19;
 
 # L<S14/Roles/"Roles may be composed into a class at compile time">
 
@@ -48,6 +48,18 @@ is $y.mA2,      'mA2',      'Can call mixed in method (two roles) 2';
 is $y.mB1,      'mB1',      'Can call mixed in method (two roles) 3';
 is $y.mB2,      'mB2',      'Can call mixed in method (two roles) 4';
 
+ok C2 ~~ rA, 'class matches first role';
+ok C2 ~~ rB, 'class matches second role';
+ok rA !~~ C2, 'first role does not match class';
+ok rB !~~ C2, 'second role does not match class';
+
+role RT64002 does rA does rB {}
+#?rakudo 2 todo 'RT #64002'
+ok RT64002 ~~ rA, 'role matches first role it does';
+ok RT64002 ~~ rB, 'role matches second role it does';
+ok rA !~~ RT64002, 'role not matched by first role it does';
+ok rB !~~ RT64002, 'role not matched by second role it does';
+
 {
     class D1 does rA {
         method mA1 {

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