#!/usr/bin/perl
use strict;
use Test::More tests => 2;
sub perl_maxbits {
use Config;
my $bits =
( (defined $Config{'use64bitint'} && $Config{'use64bitint'} eq 'define')
|| (defined $Config{'use64bitall'} && $Config{'use64bitall'} eq 'define')
|| (defined $Config{'longsize'} && $Config{'longsize'} >= 8)
)
? 64
: 32;
no Config;
return $bits;
}
sub xs_maxbits {
return Data::BitStream::XS::maxbits;
}
# Since we should have compiled this with this version of Perl,
# these should match.
is( xs_maxbits, perl_maxbits, "XS maxbits = Perl maxbits" );
my $v = 0xFFFFFFFF;
$v += 117 if perl_maxbits > 32;
my $stream = Data::BitStream::XS->new;
$stream->put_gamma($v);
$stream->rewind_for_read;
is( $stream->get_gamma, $v, "Stored $v");