Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
.lines returns Seq now, so fix the test.
  • Loading branch information
zhuomingliang committed Aug 20, 2015
1 parent a78b9f2 commit d0f48cd
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions integration/advent2012-day10.t
Expand Up @@ -66,7 +66,7 @@ is q:to"THE END", $pub-with-no-beer, 'heredoc auto indent';
my @expected-searches = <beer masak vacation whisky>;
my ($input, @searches) = q:to/INPUT/, q:to/SEARCHES/.lines;
my ($input, $searches) = q:to/INPUT/, q:to/SEARCHES/.lines.Array;
Once upon a time, there was a pub. The pub had
lots of awesome beer. One day, a Perl workshop
was held near to the pub. The hackers drank
Expand All @@ -80,10 +80,10 @@ my ($input, @searches) = q:to/INPUT/, q:to/SEARCHES/.lines;
SEARCHES

is $input, $pub-with-no-beer;
is-deeply @searches, @expected-searches;
is-deeply $searches, @expected-searches;

my @results = gather {
for @searches -> $s {
for $searches -> $s {
take $input ~~ /$s/
?? "Found $s"
!! "Didn't find $s";
Expand Down

0 comments on commit d0f48cd

Please sign in to comment.