correct or remove tests that assume you can compare type objects with ===

Author: moritz

S12-class/inheritance.t

@@ -124,7 +124,7 @@ eval_lives_ok 'class NotAny is Mu { }; NotAny.new', 'inheritance from Mu works';
 {
     class DirectMu is Mu { };
     ok DirectMu !~~ Any, 'class inheriting from Mu is not Any';
-    ok !( any(DirectMu.^parents) === Any), 'and Any does not appear in the list of parents either';
+    ok !( any(DirectMu.^parents).gist eq 'Any()'), 'and Any does not appear in the list of parents either';
 }
 
 eval_dies_ok 'class RT64642 is ::Nowhere {}', 'dies: class D is ::C {}';

S32-scalar/undef.t

@@ -23,13 +23,12 @@ perl6-specific tests.
 #   
 #   Larry
 
-plan 87;
+plan 86;
 
 our $GLOBAL;
 
 # L<S32::Basics/Mu/=item defined>
 
-ok(Mu === Mu, "Mu is equal to Mu");
 ok(!defined(Mu), "Mu is not defined");
 
 {