fixed/unfudged a logic error

Raku · Jul 24, 2014 · 659ac13 · 659ac13
1 parent 08f409e
commit 659ac13
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/integration/99problems-11-to-20.t b/integration/99problems-11-to-20.t
@@ -88,7 +88,7 @@ plan 25;
             elsif ($prev_ch eq '') { 
                 $ch_cnt++;
                 # If it's the last char, add it.
-                if (@chars.elems == 1) {
+                if (@chars.elems == 0) {
                     if ($ch_cnt != 1) {
                         $encoded ~= $ch_cnt;
                     }
@@ -115,7 +115,7 @@ plan 25;
     sub encode_direct2(*@array is copy) returns Str {
         my ($packed, $count);
         while @array {
-          if @array[0] eq @array[1] {
+          if @array > 1 && @array[0] eq @array[1] {
               $count++;
           }
           else {
@@ -128,11 +128,7 @@ plan 25;
     }
 
     is encode_direct(()),'', 'We should be able to encode_direct an empty list';
-    #?niecza todo
-    #?rakudo todo 'unknown'
     is encode_direct(<a>), 'a', '.. or a one-element iist';
-    #?niecza todo
-    #?rakudo todo 'unknown'
     is encode_direct(<a a>), '2a', '.. or a n-ary list with always same element';
     is encode_direct(<a a a a b c c a a d e e e e>),
         '4ab2c2ad4e',