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

Got perl bindings started

Browse source
This commit is contained in:
Dan Hirsch 2013-12-03 21:29:02 +01:00
parent add92d09ce
commit 1d11527924
7 changed files with 296 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

115
src/bindings/perl/t/hammer.t Normal file
View file

@ -0,0 +1,115 @@
# -*- cperl -*-
use warnings;
use Test::More tests => 12;
use hammer;
sub check_parse_eq {
my ($parser, $input, $expected) = @_;
my $actual;
eval {
$actual = $parser->parse($input);
};
if ($@) {
ok($@ eq "");
} else {
is_deeply($actual, $expected);
}
}
sub check_parse_failed {
my ($parser, $input) = @_;
eval {
my $actual = $parser->parse($input);
};
ok($@ ne "");
}
subtest "token" => sub {
my $parser = hammer::token("95\xa2");
check_parse_eq($parser, "95\xa2", "95\xa2");
check_parse_failed($parser, "95");
};
subtest "ch" => sub {
my $parser = hammer::ch("\xa2");
#check_parse_eq($parser, "\xa2", 0xa2);
check_parse_eq($parser, "\xa2", "\xa2");
check_parse_failed($parser, "\xa3");
};
subtest "ch_range" => sub {
# ch_range doesn't need to be part of hammer-perl; the equivalent
# effect can be achieved with hammer::in('a'..'z')
#
# However, the function is provided just in case.
my $parser = hammer::ch_range('a','c');
check_parse_eq($parser, 'b', 'b');
#check_parse_eq($parser, 'b', 0x62);
check_parse_failed($parser, 'd');
};
SKIP: {
use integer;
skip "Needs 64-bit support", 2 if 0x4000000 * 2 eq -1; # TODO: Not sure if this works; may need $Config{ivsize} >= 8
subtest "int64" => sub {
my $parser = hammer::int64();
check_parse_eq($parser, "\xff\xff\xff\xfe\x00\x00\x00\x00", -0x200000000);
check_parse_failed($parser, "\xff\xff\xff\xfe\x00\x00\x00");
};
subtest "uint64" => sub {
my $parser = hammer::uint64();
check_parse_eq($parser, "\x00\x00\x00\x02\x00\x00\x00\x00", 0x200000000);
check_parse_failed($parser, "\x00\x00\x00\x02\x00\x00\x00");
};
}
subtest "int32" => sub {
my $parser = hammer::int32();
check_parse_eq($parser, "\xff\xfe\x00\x00", -0x20000);
check_parse_eq($parser, "\x00\x02\x00\x00", 0x20000);
check_parse_failed($parser, "\xff\xfe\x00");
check_parse_failed($parser, "\x00\x02\x00");
};
subtest "uint32" => sub {
my $parser = hammer::uint32();
check_parse_eq($parser, "\x00\x02\x00\x00", 0x20000);
check_parse_failed($parser, "\x00\x02\x00")
};
subtest "int16" => sub {
my $parser = hammer::int16();
check_parse_eq($parser, "\xfe\x00", -0x200);
check_parse_eq($parser, "\x02\x00", 0x200);
check_parse_failed($parser, "\xfe");
check_parse_failed($parser, "\x02");
};
subtest "uint16" => sub {
my $parser = hammer::uint16();
check_parse_eq($parser, "\x02\x00", 0x200);
check_parse_failed($parser, "\x02");
};
subtest "int8" => sub {
my $parser = hammer::int8();
check_parse_eq($parser, "\x88", -0x78);
check_parse_failed($parser, "");
};
subtest "uint8" => sub {
my $parser = hammer::uint8();
check_parse_eq($parser, "\x78", 0x78);
check_parse_failed($parser, "");
};
subtest "int_range" => sub { # test 12
my $parser = hammer::int_range(hammer::uint8(), 3, 10);
check_parse_eq($parser, "\x05", 5);
check_parse_failed($parser, "\x0b");
};
1;