CPAN::Groonga

lt = eval { $json->decode($str) };
 TODO: {
    local $TODO = "$name" if exists $todo{$name};
    isnt($@, '', "parsing error with $name ".substr($@,0,40));
    is($result, undef, "undef result with $

    if ($str eq 'null') {
      is($result, undef, "valid result with $name");
    } else {
      isnt($result, undef, "valid result with $name");
    }
  }
}

# result undefined, relaxed may vary
sub

xists $todo{$name};
    is($@, '', "no parsing error with undefined $name ".substr($@,0,40));
    isnt($result, undef, "valid result with undefined $name");
    if ($name =~ /nonchar/) {
      like ($