Skip to content

Commit

Permalink
Unfudge now passing tests
Browse files Browse the repository at this point in the history
  • Loading branch information
lizmat committed Jul 28, 2015
1 parent 500e5c0 commit f23ee5a
Showing 1 changed file with 0 additions and 6 deletions.
6 changes: 0 additions & 6 deletions S06-signature/introspection.t
Original file line number Diff line number Diff line change
Expand Up @@ -172,11 +172,8 @@ sub j(*@i) {
is-perl-idempotent(:(Int @a = [2, 3], Int :@b = [2,3]), Nil, { '= { ... }' => '= [2,3]' }, :eqv);
is-perl-idempotent(:(Int %a = :a(2), Int :%b = :a(2)), Nil, { '= { ... }' => '= {:a(2)}' }, :eqv);
is-perl-idempotent(:(Sub &a = &say, Sub :&b = &say), Nil, { '= { ... }' => '= &say' },:eqv);
#?rakudo todo 'needs/find RT'
is-perl-idempotent(:(|a ($a) = 2), :eqv);
#?rakudo todo 'needs/find RT'
is-perl-idempotent(:(@a ($a) = [2]), :eqv);
#?rakudo todo 'needs/find RT'
is-perl-idempotent(:(%a (:a($b)) = {:a(2)}, %b (:c(:d($e))) = {:c(2)}), :eqv);

is-perl-idempotent(:($, :a($)),:eqv);
Expand Down Expand Up @@ -207,11 +204,8 @@ sub j(*@i) {
is-perl-idempotent(:(Int @ = [2, 3], Int :a(@) = [2,3]), Nil, { '= { ... }' => '= [2,3]' }, :eqv);
is-perl-idempotent(:(Int % = :a(2), Int :a(%) = :a(2)), Nil, { '= { ... }' => '= {:a(2)}' }, :eqv);
is-perl-idempotent(:(Sub & = &say, Sub :a(&) = &say), Nil, { '= { ... }' => '= &say' },:eqv);
#?rakudo todo 'needs/find RT'
is-perl-idempotent(:(| ($a) = 2), :eqv);
#?rakudo todo 'needs/find RT'
is-perl-idempotent(:(@ ($a) = [2]), :eqv);
#?rakudo todo 'needs/find RT'
is-perl-idempotent(:(% (:a($)) = {:a(2)}, % (:c(:d($))) = {:c(2)}), :eqv);
is-perl-idempotent(:($ is parcel, & is parcel, % is parcel, | is parcel), :eqv);
is-perl-idempotent(:($ is parcel where True, $ is copy, Int $ is rw, $ is parcel where True = 2), :eqv);
Expand Down

0 comments on commit f23ee5a

Please sign in to comment.