#!/usr/bin/perl
use strict;
use Test::More tests => 8;
my $v = Data::BitStream::XS->new;
foreach my $n (1 .. 8) {
$v->write(16, 0x4225 | ($n << 12));
}
$v->rewind_for_read;
foreach my $n (1 .. 8) {
my $value = $v->read(16);
is($value, 0x4225 | ($n << 12), "read 16 bits: $value");
}