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.fibonacci.p32.ints');
9$bin->set_endian($File::Binary::LITTLE_ENDIAN);
10
11is($bin->get_si32(),1);
12is($bin->get_si32(),1);
13is($bin->get_si32(),2);
14is($bin->get_si32(),3);
15is($bin->get_si32(),5);
16is($bin->get_si32(),8);
17is($bin->get_si32(),13);
18is($bin->get_si32(),21);
19is($bin->get_si32(),34);
20is($bin->get_si32(),55);
21is($bin->get_si32(),89);
22is($bin->get_si32(),144);
23is($bin->get_si32(),233);
24is($bin->get_si32(),377);
25is($bin->get_si32(),610);
26is($bin->get_si32(),987);
27is($bin->get_si32(),1597);
28is($bin->get_si32(),2584);
29is($bin->get_si32(),4181);
30is($bin->get_si32(),6765);
31is($bin->get_si32(),10946);
32is($bin->get_si32(),17711);
33is($bin->get_si32(),28657);
34is($bin->get_si32(),46368);
35is($bin->get_si32(),75025);
36is($bin->get_si32(),121393);
37is($bin->get_si32(),196418);
38is($bin->get_si32(),317811);
39is($bin->get_si32(),514229);
40is($bin->get_si32(),832040);
41is($bin->get_si32(),1346269);
42is($bin->get_si32(),2178309);
43is($bin->get_si32(),3524578);
44is($bin->get_si32(),5702887);
45is($bin->get_si32(),9227465);
46is($bin->get_si32(),14930352);
47is($bin->get_si32(),24157817);
48is($bin->get_si32(),39088169);
49is($bin->get_si32(),63245986);
50is($bin->get_si32(),102334155);
51is($bin->get_si32(),165580141);
52is($bin->get_si32(),267914296);
53is($bin->get_si32(),433494437);
54is($bin->get_si32(),701408733);
55is($bin->get_si32(),1134903170);
56is($bin->get_si32(),1836311903);
57
58
59$bin->close();
60
61
62
63$bin = File::Binary->new('>t/temp');
64$bin->set_endian($File::Binary::LITTLE_ENDIAN);
65
66ok($bin->put_si32(1));
67ok($bin->put_si32(1));
68ok($bin->put_si32(2));
69ok($bin->put_si32(3));
70ok($bin->put_si32(5));
71ok($bin->put_si32(8));
72ok($bin->put_si32(13));
73ok($bin->put_si32(21));
74ok($bin->put_si32(34));
75ok($bin->put_si32(55));
76ok($bin->put_si32(89));
77ok($bin->put_si32(144));
78ok($bin->put_si32(233));
79ok($bin->put_si32(377));
80ok($bin->put_si32(610));
81ok($bin->put_si32(987));
82ok($bin->put_si32(1597));
83ok($bin->put_si32(2584));
84ok($bin->put_si32(4181));
85ok($bin->put_si32(6765));
86ok($bin->put_si32(10946));
87ok($bin->put_si32(17711));
88ok($bin->put_si32(28657));
89ok($bin->put_si32(46368));
90ok($bin->put_si32(75025));
91ok($bin->put_si32(121393));
92ok($bin->put_si32(196418));
93ok($bin->put_si32(317811));
94ok($bin->put_si32(514229));
95ok($bin->put_si32(832040));
96ok($bin->put_si32(1346269));
97ok($bin->put_si32(2178309));
98ok($bin->put_si32(3524578));
99ok($bin->put_si32(5702887));
100ok($bin->put_si32(9227465));
101ok($bin->put_si32(14930352));
102ok($bin->put_si32(24157817));
103ok($bin->put_si32(39088169));
104ok($bin->put_si32(63245986));
105ok($bin->put_si32(102334155));
106ok($bin->put_si32(165580141));
107ok($bin->put_si32(267914296));
108ok($bin->put_si32(433494437));
109ok($bin->put_si32(701408733));
110ok($bin->put_si32(1134903170));
111ok($bin->put_si32(1836311903));
112
113
114$bin->close();
115
116
117$bin = File::Binary->new('t/temp');
118$bin->set_endian($File::Binary::LITTLE_ENDIAN);
119
120is($bin->get_si32(),1);
121is($bin->get_si32(),1);
122is($bin->get_si32(),2);
123is($bin->get_si32(),3);
124is($bin->get_si32(),5);
125is($bin->get_si32(),8);
126is($bin->get_si32(),13);
127is($bin->get_si32(),21);
128is($bin->get_si32(),34);
129is($bin->get_si32(),55);
130is($bin->get_si32(),89);
131is($bin->get_si32(),144);
132is($bin->get_si32(),233);
133is($bin->get_si32(),377);
134is($bin->get_si32(),610);
135is($bin->get_si32(),987);
136is($bin->get_si32(),1597);
137is($bin->get_si32(),2584);
138is($bin->get_si32(),4181);
139is($bin->get_si32(),6765);
140is($bin->get_si32(),10946);
141is($bin->get_si32(),17711);
142is($bin->get_si32(),28657);
143is($bin->get_si32(),46368);
144is($bin->get_si32(),75025);
145is($bin->get_si32(),121393);
146is($bin->get_si32(),196418);
147is($bin->get_si32(),317811);
148is($bin->get_si32(),514229);
149is($bin->get_si32(),832040);
150is($bin->get_si32(),1346269);
151is($bin->get_si32(),2178309);
152is($bin->get_si32(),3524578);
153is($bin->get_si32(),5702887);
154is($bin->get_si32(),9227465);
155is($bin->get_si32(),14930352);
156is($bin->get_si32(),24157817);
157is($bin->get_si32(),39088169);
158is($bin->get_si32(),63245986);
159is($bin->get_si32(),102334155);
160is($bin->get_si32(),165580141);
161is($bin->get_si32(),267914296);
162is($bin->get_si32(),433494437);
163is($bin->get_si32(),701408733);
164is($bin->get_si32(),1134903170);
165is($bin->get_si32(),1836311903);
166
167
168$bin->close();
169
170open(BINDATA, 't/le.fibonacci.p32.ints');
171my $data = do { local $/ = undef; <BINDATA> };
172$bin = File::Binary->new(IO::Scalar->new(\$data));
173$bin->set_endian($File::Binary::LITTLE_ENDIAN);
174
175is($bin->get_si32(),1);
176is($bin->get_si32(),1);
177is($bin->get_si32(),2);
178is($bin->get_si32(),3);
179is($bin->get_si32(),5);
180is($bin->get_si32(),8);
181is($bin->get_si32(),13);
182is($bin->get_si32(),21);
183is($bin->get_si32(),34);
184is($bin->get_si32(),55);
185is($bin->get_si32(),89);
186is($bin->get_si32(),144);
187is($bin->get_si32(),233);
188is($bin->get_si32(),377);
189is($bin->get_si32(),610);
190is($bin->get_si32(),987);
191is($bin->get_si32(),1597);
192is($bin->get_si32(),2584);
193is($bin->get_si32(),4181);
194is($bin->get_si32(),6765);
195is($bin->get_si32(),10946);
196is($bin->get_si32(),17711);
197is($bin->get_si32(),28657);
198is($bin->get_si32(),46368);
199is($bin->get_si32(),75025);
200is($bin->get_si32(),121393);
201is($bin->get_si32(),196418);
202is($bin->get_si32(),317811);
203is($bin->get_si32(),514229);
204is($bin->get_si32(),832040);
205is($bin->get_si32(),1346269);
206is($bin->get_si32(),2178309);
207is($bin->get_si32(),3524578);
208is($bin->get_si32(),5702887);
209is($bin->get_si32(),9227465);
210is($bin->get_si32(),14930352);
211is($bin->get_si32(),24157817);
212is($bin->get_si32(),39088169);
213is($bin->get_si32(),63245986);
214is($bin->get_si32(),102334155);
215is($bin->get_si32(),165580141);
216is($bin->get_si32(),267914296);
217is($bin->get_si32(),433494437);
218is($bin->get_si32(),701408733);
219is($bin->get_si32(),1134903170);
220is($bin->get_si32(),1836311903);
221
222
223$bin->close;
224
225
226