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.n32.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.n32.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