lib/Bit/Vector/Succinct/Raw.pm @@ -4,7 +4,7 @@ use warnings; use Test::More tests => 3; BEGIN { - use_ok('Bit::Vector'); use_ok('Bit::Vector::Succinct'); + use_ok('Bit::Vector::Succinct::Raw'); use_ok('Bit::Vector::Succinct::Util'); }; t/00-load.t @@ -3,9 +3,9 @@ use warnings; use Test::More qw/no_plan/; -use Bit::Vector; +use Bit::Vector::Succinct::Raw; -my $vec = Bit::Vector->new; +my $vec = Bit::Vector::Succinct::Raw->new; is $vec->length, 4; is $vec->bit_length, 32; @@ -36,7 +36,7 @@ $vec->set(32 => 1); is $vec->as_number, 6; is $vec->length, 5; is $vec->bit_length, 32 + 8; -is $vec->as_bitstring, '0110000000000000000000000000000010000000'; # ここ 64 bit かな... +is $vec->as_bitstring, '0110000000000000000000000000000010000000'; my $block = $vec->get_block(0); t/01-vector.t @@ -3,10 +3,10 @@ use warnings; use Test::More qw/no_plan/; -use Bit::Vector; +use Bit::Vector::Succinct::Raw; use Bit::Vector::Succinct; -my $vec = Bit::Vector->new; +my $vec = Bit::Vector::Succinct::Raw->new; $vec->set(1); $vec->set(2); $vec->set(3); @@ -41,7 +41,7 @@ is $sucbv->rank(8, 0), 6; # is $sucbv->rank(128, 1), 3; # is $sucbv->rank(255, 1), 3; -$vec = Bit::Vector->new; +$vec = Bit::Vector::Succinct::Raw->new; $vec->set(1); $vec->set(23); $vec->set(35); t/02-rank.t @@ -3,10 +3,10 @@ use warnings; use Test::More qw/no_plan/; -use Bit::Vector; +use Bit::Vector::Succinct::Raw; use Bit::Vector::Succinct; -my $vec = Bit::Vector->new; +my $vec = Bit::Vector::Succinct::Raw->new; $vec->set(1); $vec->set(2); $vec->set(3); @@ -23,7 +23,7 @@ is $sucbv->select(3, 1), undef; is $sucbv->select(0, 0), 0; is $sucbv->select(1, 0), 4; -$vec = Bit::Vector->new; +$vec = Bit::Vector::Succinct::Raw->new; $vec->set(1); $vec->set(23); $vec->set(35); t/04-select.t lib/Bit/Vector.pm 27f622b625da5445c8404dd06057a5da143b5afe naoya naoya@hatena.ne.jp http://github.com/naoya/perl-bit-vector-succinct/commit/41d67668dc731781a90733b2cfd2668351bad266 41d67668dc731781a90733b2cfd2668351bad266 2008-11-16T03:49:18-08:00 2008-11-16T03:49:18-08:00 rename Big::Array -> Bit::Array::Succinct::Raw c4e1069f7f378218d9a53c79a9419ca4bca1b5df naoya naoya@hatena.ne.jp