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

… ===
Raku · Oct 2, 2011 · ac7ea9d · ac7ea9d
1 parent 9e5e20c
commit ac7ea9d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/S12-class/inheritance.t b/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 {}';

diff --git a/S32-scalar/undef.t b/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");
 
 {