emileclarkb/hammer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

All tests pass.

Browse source
This commit is contained in:
Dan Hirsch 2013-12-04 04:56:47 +01:00
parent 4199ad8758
commit 8c44d583e6
2 changed files with 39 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/bindings/perl/t/hammer.t
View file

@ -334,11 +334,12 @@ subtest "epsilon" => sub {
};
TODO: {
local $TODO = "not implemented";
subtest "attr_bool" => sub {
fail;
}
subtest "attr_bool" => sub {
my $parser = hammer::attr_bool(hammer::many1(hammer::in('ab')),
sub { my ($a, $b) = @{+shift}; $a eq $b });
check_parse_eq($parser, "aa", ['a','a']);
check_parse_eq($parser, "bb", ['b','b']);
check_parse_failed($parser, "ab");
};
subtest "and" => sub {