Permalink
Browse files

[t] get rid of dependency on trailing spaces

  • Loading branch information...
1 parent 2f14892 commit 049862c1cf860c83073157fee45bf84e718d64a6 @moritz committed Sep 5, 2010
Showing with 12 additions and 13 deletions.
  1. +12 −13 t/solving.t
View
@@ -13,23 +13,22 @@ my $n = Nonogram.new(
lives_ok { $n.solve() }, 'can run .solve';
-# note: traling spaces here must be preserved!
my $solved =
-q[
- ??????
- ######
- ## ???
- ## ???
- ######
- ####
- ##
- ##
- ??????
- ];
+q[ |
+ ?????? |
+ ###### |
+ ## ??? |
+ ## ??? |
+ ###### |
+ #### |
+ ## |
+ ## |
+ ?????? |
+ |];
for $solved.split("\n").kv -> $j, $line {
my $i = 0;
for $line.comb -> $c {
- if $c ne '?' {
+ if $c eq none <? |> {
is $n.field-rows[$j][$i], $c, "($j, $i) is '$c'";
}
$i++;

0 comments on commit 049862c

Please sign in to comment.