add the appropriate amount of trailing spaces to tests

moritz · Sep 5, 2010 · 2f14892 · 2f14892
1 parent 73abd33
commit 2f14892
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/lib/Nonogram.pm b/lib/Nonogram.pm
@@ -131,7 +131,12 @@ class Nonogram {
 
     method solve-shift {
         for <right down> -> $direction {
-            my @spec = $direction eq (any <left right>) ?? @!rowspec !! @!colspec;
+            my @spec = do given $direction {
+                when 'right' { @!rowspec }
+                when 'left'  { @!rowspec.reverse }
+                when 'down'  { @!colspec }
+                when 'up'    { @!colspec.reverse }
+            }
             for @spec.kv -> $idx, @chunks is copy {
                 next unless @chunks;
                 my $expect_next = '';

diff --git a/t/solving.t b/t/solving.t
@@ -14,7 +14,8 @@ my $n = Nonogram.new(
 lives_ok { $n.solve() }, 'can run .solve';
 
 # note: traling spaces here must be preserved!
-my $solved = q[ 
+my $solved =
+q[       
  ?????? 
  ###### 
  ## ???