File-Binary-1.7/t/31fibonacci.p16.ints.be.t

8 my $bin = File::Binary->new('t/be.fibonacci.p16.ints');
9 $bin->set_endian($File::Binary::BIG_ENDIAN);
11 is($bin->get_si16(),1);
12 is($bin->get_si16(),1);
13 is($bin->get_si16(),2);
14 is($bin->get_si16(),3);
15 is($bin->get_si16(),5);
16 is($bin->get_si16(),8);
17 is($bin->get_si16(),13);
18 is($bin->get_si16(),21);
19 is($bin->get_si16(),34);
20 is($bin->get_si16(),55);
21 is($bin->get_si16(),89);
22 is($bin->get_si16(),144);
23 is($bin->get_si16(),233);
24 is($bin->get_si16(),377);
25 is($bin->get_si16(),610);
26 is($bin->get_si16(),987);
27 is($bin->get_si16(),1597);
28 is($bin->get_si16(),2584);
29 is($bin->get_si16(),4181);
30 is($bin->get_si16(),6765);
31 is($bin->get_si16(),10946);
32 is($bin->get_si16(),17711);
33 is($bin->get_si16(),28657);
36 $bin->close();
40 $bin = File::Binary->new('>t/temp');
41 $bin->set_endian($File::Binary::BIG_ENDIAN);
43 ok($bin->put_si16(1));
44 ok($bin->put_si16(1));
45 ok($bin->put_si16(2));
46 ok($bin->put_si16(3));
47 ok($bin->put_si16(5));
48 ok($bin->put_si16(8));
49 ok($bin->put_si16(13));
50 ok($bin->put_si16(21));
51 ok($bin->put_si16(34));
52 ok($bin->put_si16(55));
53 ok($bin->put_si16(89));
54 ok($bin->put_si16(144));
55 ok($bin->put_si16(233));
56 ok($bin->put_si16(377));
57 ok($bin->put_si16(610));
58 ok($bin->put_si16(987));
59 ok($bin->put_si16(1597));
60 ok($bin->put_si16(2584));
61 ok($bin->put_si16(4181));
62 ok($bin->put_si16(6765));
63 ok($bin->put_si16(10946));
64 ok($bin->put_si16(17711));
65 ok($bin->put_si16(28657));
68 $bin->close();
71 $bin = File::Binary->new('t/temp');
72 $bin->set_endian($File::Binary::BIG_ENDIAN);
74 is($bin->get_si16(),1);
75 is($bin->get_si16(),1);
76 is($bin->get_si16(),2);
77 is($bin->get_si16(),3);
78 is($bin->get_si16(),5);
79 is($bin->get_si16(),8);
80 is($bin->get_si16(),13);
81 is($bin->get_si16(),21);
82 is($bin->get_si16(),34);
83 is($bin->get_si16(),55);
84 is($bin->get_si16(),89);
85 is($bin->get_si16(),144);
86 is($bin->get_si16(),233);
87 is($bin->get_si16(),377);
88 is($bin->get_si16(),610);
89 is($bin->get_si16(),987);
90 is($bin->get_si16(),1597);
91 is($bin->get_si16(),2584);
92 is($bin->get_si16(),4181);
93 is($bin->get_si16(),6765);
94 is($bin->get_si16(),10946);
95 is($bin->get_si16(),17711);
96 is($bin->get_si16(),28657);
99 $bin->close();
103 $bin = File::Binary->new(IO::Scalar->new(\$data));
104 $bin->set_endian($File::Binary::BIG_ENDIAN);
106 is($bin->get_si16(),1);
107 is($bin->get_si16(),1);
108 is($bin->get_si16(),2);
109 is($bin->get_si16(),3);
110 is($bin->get_si16(),5);
111 is($bin->get_si16(),8);
112 is($bin->get_si16(),13);
113 is($bin->get_si16(),21);
114 is($bin->get_si16(),34);
115 is($bin->get_si16(),55);
116 is($bin->get_si16(),89);
117 is($bin->get_si16(),144);
118 is($bin->get_si16(),233);
119 is($bin->get_si16(),377);
120 is($bin->get_si16(),610);
121 is($bin->get_si16(),987);
122 is($bin->get_si16(),1597);
123 is($bin->get_si16(),2584);
124 is($bin->get_si16(),4181);
125 is($bin->get_si16(),6765);
126 is($bin->get_si16(),10946);
127 is($bin->get_si16(),17711);
128 is($bin->get_si16(),28657);
131 $bin->close;