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/le.factorial.p8.ints'); 9$bin->set_endian($File::Binary::LITTLE_ENDIAN); 10 11is($bin->get_si8(),1); 12is($bin->get_si8(),2); 13is($bin->get_si8(),6); 14is($bin->get_si8(),24); 15is($bin->get_si8(),120); 16 17 18$bin->close(); 19 20 21 22$bin = File::Binary->new('>t/temp'); 23$bin->set_endian($File::Binary::LITTLE_ENDIAN); 24 25ok($bin->put_si8(1)); 26ok($bin->put_si8(2)); 27ok($bin->put_si8(6)); 28ok($bin->put_si8(24)); 29ok($bin->put_si8(120)); 30 31 32$bin->close(); 33 34 35$bin = File::Binary->new('t/temp'); 36$bin->set_endian($File::Binary::LITTLE_ENDIAN); 37 38is($bin->get_si8(),1); 39is($bin->get_si8(),2); 40is($bin->get_si8(),6); 41is($bin->get_si8(),24); 42is($bin->get_si8(),120); 43 44 45$bin->close(); 46 47open(BINDATA, 't/le.factorial.p8.ints'); 48my $data = do { local $/ = undef; <BINDATA> }; 49$bin = File::Binary->new(IO::Scalar->new(\$data)); 50$bin->set_endian($File::Binary::LITTLE_ENDIAN); 51 52is($bin->get_si8(),1); 53is($bin->get_si8(),2); 54is($bin->get_si8(),6); 55is($bin->get_si8(),24); 56is($bin->get_si8(),120); 57 58 59$bin->close; 60 61 62