Skip to content
Browse files

remove dubious tests

  • Loading branch information...
1 parent c59b775 commit bdc62b49518203dfecf5c8d6fd014acb01a555bf @moritz moritz committed Feb 11, 2012
Showing with 2 additions and 13 deletions.
  1. +2 −13 S29-any/isa.t
View
15 S29-any/isa.t
@@ -18,15 +18,12 @@ L<S29/Any/=item isa/>
=end kwid
-plan 14;
+plan 10;
{ # invocant notation
my @arr = <1 2 3 4>;
ok(@arr.isa(Array), '... @arr is-a Array (invocant notation)');
- #?rakudo todo "Array is now ~~ List"
- #?niecza skip 'Seq NYI'
- ok(@arr.isa(Seq), '... @arr is-also-a Seq (invocant notation)');
# check a failing case
ok(!@arr.isa(Hash), '... @arr is-not-a Hash (invocant notation)');
@@ -36,12 +33,8 @@ plan 14;
{ # invocant notation
my $arr_ref = <1 2 3 4>;
- #?rakudo todo "Array is now ~~ List"
- #?niecza skip 'Seq NYI'
- ok($arr_ref.isa(Seq), '... $arr is-also-a Seq (invocant notation)');
-
# check a failing case
- ok(!$arr_ref.isa(Hash), '... $arr is-not-a Hash (invocant notation)');
+ nok($arr_ref.isa(Hash), '... $arr is-not-a Hash (invocant notation)');
}
# check error cases
@@ -65,15 +58,11 @@ plan 14;
class Thing {};
{
my $thing = Thing.new();
- #?niecza todo 'stringy .isa not specced'
- ok($thing.isa("Thing"), '.isa string naming class with no colon');
ok($thing.isa(Thing), '.isa named class');
}
class Thing::something {};
{
my $thing = Thing::something.new();
- #?niecza todo 'stringy .isa not specced'
- ok($thing.isa("Thing::something"), '.isa string naming class with colons');
ok($thing.isa(Thing::something), '.isa named class with colons');
}

0 comments on commit bdc62b4

Please sign in to comment.
Something went wrong with that request. Please try again.