my @result = split //, $result;
   my @expected = split //, $expected;
   is(scalar(@result), scalar(@expected), "length match");
   for (my $i = 0; $i < @expected; ++$i) {
      is($result[$i], $expected[$i], "$i-th char match");
   }