Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
More de-stringification of parents.t.
  • Loading branch information
jnthn committed Jul 9, 2011
1 parent b075ede commit 6f1bf0c
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions S12-introspection/parents.t
Expand Up @@ -65,14 +65,14 @@ ok @parents[1].WHAT =:= C, 'second parent is C';
is +@parents, 2, 'with :tree, D has two immediate parents (on proto)';
ok @parents[0] ~~ Array, ':tree gives back nested arrays for each parent (on proto)';
ok @parents[1] ~~ Array, ':tree gives back nested arrays for each parent (on proto)';
is @parents, [[B, [A, [Any, [Mu]]]], [C, [A, [Any, [Mu]]]]],
ok @parents eqv [[B, [A, [Any, [Mu]]]], [C, [A, [Any, [Mu]]]]],
':tree gives back the expected data structure (on proto)';

@parents = D.new.^parents(:tree);
is +@parents, 2, 'with :tree, D has two immediate parents (on instance)';
ok @parents[0] ~~ Array, ':tree gives back nested arrays for each parent (on instance)';
ok @parents[1] ~~ Array, ':tree gives back nested arrays for each parent (on instance)';
is @parents, [[B, [A, [Any, [Mu]]]], [C, [A, [Any, [Mu]]]]],
ok @parents eqv [[B, [A, [Any, [Mu]]]], [C, [A, [Any, [Mu]]]]],
':tree gives back the expected data structure (on instance)';


Expand Down

0 comments on commit 6f1bf0c

Please sign in to comment.