Skip to content

Commit

Permalink
Update test for latest stringification spec; correct one test to what…
Browse files Browse the repository at this point in the history
… it probably shoulda been.
  • Loading branch information
jnthn committed Aug 5, 2011
1 parent 68d409b commit a8b638a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions S06-signature/unpack-array.t
Expand Up @@ -20,7 +20,7 @@ dies_ok { bar [1,2] }, 'fixed length array unpacking too short';
dies_ok { bar [1,2,3,4] }, 'fixed length array unpacking too long';

sub baz([$x, $y?, $z?]) {
return "$x|$y|$z";
return "$x|$y.gist()|$z.gist()";
}

dies_ok { baz( [] ) } , 'unpack optional scalars; required scalar missing';
Expand All @@ -43,7 +43,7 @@ is blat( 2, [2,3,4] ), "2-3-4", 'unpack named array with named pieces';
sub fsort-only([$p?,*@r]) {
return fsort-only(@r.grep( {$_ <= $p} )),$p,fsort-only(@r.grep( {$_ > $p} )) if $p || @r;
}
sub fsort-multi([$p?,*@r]) {
multi fsort-multi([$p?,*@r]) {
return fsort-multi(@r.grep( {$_ <= $p} )),$p,fsort-multi(@r.grep( {$_ > $p} )) if $p || @r;
}

Expand Down

0 comments on commit a8b638a

Please sign in to comment.