1#!perl -w 2 3use strict; 4use Test::More qw(no_plan); 5use File::Binary; 6use IO::Scalar; 7 8my $bin = File::Binary->new('t/be.power3.u16.ints'); 9$bin->set_endian($File::Binary::BIG_ENDIAN); 10 11is($bin->get_ui16(),1); 12is($bin->get_ui16(),3); 13is($bin->get_ui16(),9); 14is($bin->get_ui16(),27); 15is($bin->get_ui16(),81); 16is($bin->get_ui16(),243); 17is($bin->get_ui16(),729); 18is($bin->get_ui16(),2187); 19is($bin->get_ui16(),6561); 20is($bin->get_ui16(),19683); 21is($bin->get_ui16(),59049); 22 23 24$bin->close(); 25 26 27 28$bin = File::Binary->new('>t/temp'); 29$bin->set_endian($File::Binary::BIG_ENDIAN); 30 31ok($bin->put_ui16(1)); 32ok($bin->put_ui16(3)); 33ok($bin->put_ui16(9)); 34ok($bin->put_ui16(27)); 35ok($bin->put_ui16(81)); 36ok($bin->put_ui16(243)); 37ok($bin->put_ui16(729)); 38ok($bin->put_ui16(2187)); 39ok($bin->put_ui16(6561)); 40ok($bin->put_ui16(19683)); 41ok($bin->put_ui16(59049)); 42 43 44$bin->close(); 45 46 47$bin = File::Binary->new('t/temp'); 48$bin->set_endian($File::Binary::BIG_ENDIAN); 49 50is($bin->get_ui16(),1); 51is($bin->get_ui16(),3); 52is($bin->get_ui16(),9); 53is($bin->get_ui16(),27); 54is($bin->get_ui16(),81); 55is($bin->get_ui16(),243); 56is($bin->get_ui16(),729); 57is($bin->get_ui16(),2187); 58is($bin->get_ui16(),6561); 59is($bin->get_ui16(),19683); 60is($bin->get_ui16(),59049); 61 62 63$bin->close(); 64 65open(BINDATA, 't/be.power3.u16.ints'); 66my $data = do { local $/ = undef; <BINDATA> }; 67$bin = File::Binary->new(IO::Scalar->new(\$data)); 68$bin->set_endian($File::Binary::BIG_ENDIAN); 69 70is($bin->get_ui16(),1); 71is($bin->get_ui16(),3); 72is($bin->get_ui16(),9); 73is($bin->get_ui16(),27); 74is($bin->get_ui16(),81); 75is($bin->get_ui16(),243); 76is($bin->get_ui16(),729); 77is($bin->get_ui16(),2187); 78is($bin->get_ui16(),6561); 79is($bin->get_ui16(),19683); 80is($bin->get_ui16(),59049); 81 82 83$bin->close; 84 85 86