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