#!perl -w

use strict;
use Test::More qw(no_plan);
use File::Binary;
use IO::Scalar;

my $bin = File::Binary->new('t/be.fibonacci.u16.ints');
$bin->set_endian($File::Binary::BIG_ENDIAN);

is($bin->get_ui16(),1);
is($bin->get_ui16(),1);
is($bin->get_ui16(),2);
is($bin->get_ui16(),3);
is($bin->get_ui16(),5);
is($bin->get_ui16(),8);
is($bin->get_ui16(),13);
is($bin->get_ui16(),21);
is($bin->get_ui16(),34);
is($bin->get_ui16(),55);
is($bin->get_ui16(),89);
is($bin->get_ui16(),144);
is($bin->get_ui16(),233);
is($bin->get_ui16(),377);
is($bin->get_ui16(),610);
is($bin->get_ui16(),987);
is($bin->get_ui16(),1597);
is($bin->get_ui16(),2584);
is($bin->get_ui16(),4181);
is($bin->get_ui16(),6765);
is($bin->get_ui16(),10946);
is($bin->get_ui16(),17711);
is($bin->get_ui16(),28657);
is($bin->get_ui16(),46368);


$bin->close();



$bin = File::Binary->new('>t/temp');
$bin->set_endian($File::Binary::BIG_ENDIAN);

ok($bin->put_ui16(1));
ok($bin->put_ui16(1));
ok($bin->put_ui16(2));
ok($bin->put_ui16(3));
ok($bin->put_ui16(5));
ok($bin->put_ui16(8));
ok($bin->put_ui16(13));
ok($bin->put_ui16(21));
ok($bin->put_ui16(34));
ok($bin->put_ui16(55));
ok($bin->put_ui16(89));
ok($bin->put_ui16(144));
ok($bin->put_ui16(233));
ok($bin->put_ui16(377));
ok($bin->put_ui16(610));
ok($bin->put_ui16(987));
ok($bin->put_ui16(1597));
ok($bin->put_ui16(2584));
ok($bin->put_ui16(4181));
ok($bin->put_ui16(6765));
ok($bin->put_ui16(10946));
ok($bin->put_ui16(17711));
ok($bin->put_ui16(28657));
ok($bin->put_ui16(46368));


$bin->close();


$bin = File::Binary->new('t/temp');
$bin->set_endian($File::Binary::BIG_ENDIAN);

is($bin->get_ui16(),1);
is($bin->get_ui16(),1);
is($bin->get_ui16(),2);
is($bin->get_ui16(),3);
is($bin->get_ui16(),5);
is($bin->get_ui16(),8);
is($bin->get_ui16(),13);
is($bin->get_ui16(),21);
is($bin->get_ui16(),34);
is($bin->get_ui16(),55);
is($bin->get_ui16(),89);
is($bin->get_ui16(),144);
is($bin->get_ui16(),233);
is($bin->get_ui16(),377);
is($bin->get_ui16(),610);
is($bin->get_ui16(),987);
is($bin->get_ui16(),1597);
is($bin->get_ui16(),2584);
is($bin->get_ui16(),4181);
is($bin->get_ui16(),6765);
is($bin->get_ui16(),10946);
is($bin->get_ui16(),17711);
is($bin->get_ui16(),28657);
is($bin->get_ui16(),46368);


$bin->close();

open(BINDATA, 't/be.fibonacci.u16.ints');
my $data = do { local $/ = undef; <BINDATA> };
$bin = File::Binary->new(IO::Scalar->new(\$data));
$bin->set_endian($File::Binary::BIG_ENDIAN);

is($bin->get_ui16(),1);
is($bin->get_ui16(),1);
is($bin->get_ui16(),2);
is($bin->get_ui16(),3);
is($bin->get_ui16(),5);
is($bin->get_ui16(),8);
is($bin->get_ui16(),13);
is($bin->get_ui16(),21);
is($bin->get_ui16(),34);
is($bin->get_ui16(),55);
is($bin->get_ui16(),89);
is($bin->get_ui16(),144);
is($bin->get_ui16(),233);
is($bin->get_ui16(),377);
is($bin->get_ui16(),610);
is($bin->get_ui16(),987);
is($bin->get_ui16(),1597);
is($bin->get_ui16(),2584);
is($bin->get_ui16(),4181);
is($bin->get_ui16(),6765);
is($bin->get_ui16(),10946);
is($bin->get_ui16(),17711);
is($bin->get_ui16(),28657);
is($bin->get_ui16(),46368);


$bin->close;