Permalink
Browse files

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

… ===
  • Loading branch information...
1 parent 9e5e20c commit ac7ea9d24917ec40b25d5f73e3f595ff54f1e7d6 @moritz moritz committed Oct 2, 2011
Showing with 2 additions and 3 deletions.
  1. +1 −1 S12-class/inheritance.t
  2. +1 −2 S32-scalar/undef.t
View
@@ -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 {}';
View
@@ -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");
{

0 comments on commit ac7ea9d

Please sign in to comment.