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/be.power3.u16.ints');
9$bin->set_endian($File::Binary::BIG_ENDIAN);
10
11is($bin->get_ui16(),1);
12is($bin->get_ui16(),3);
13is($bin->get_ui16(),9);
14is($bin->get_ui16(),27);
15is($bin->get_ui16(),81);
16is($bin->get_ui16(),243);
17is($bin->get_ui16(),729);
18is($bin->get_ui16(),2187);
19is($bin->get_ui16(),6561);
20is($bin->get_ui16(),19683);
21is($bin->get_ui16(),59049);
22
23
24$bin->close();
25
26
27
28$bin = File::Binary->new('>t/temp');
29$bin->set_endian($File::Binary::BIG_ENDIAN);
30
31ok($bin->put_ui16(1));
32ok($bin->put_ui16(3));
33ok($bin->put_ui16(9));
34ok($bin->put_ui16(27));
35ok($bin->put_ui16(81));
36ok($bin->put_ui16(243));
37ok($bin->put_ui16(729));
38ok($bin->put_ui16(2187));
39ok($bin->put_ui16(6561));
40ok($bin->put_ui16(19683));
41ok($bin->put_ui16(59049));
42
43
44$bin->close();
45
46
47$bin = File::Binary->new('t/temp');
48$bin->set_endian($File::Binary::BIG_ENDIAN);
49
50is($bin->get_ui16(),1);
51is($bin->get_ui16(),3);
52is($bin->get_ui16(),9);
53is($bin->get_ui16(),27);
54is($bin->get_ui16(),81);
55is($bin->get_ui16(),243);
56is($bin->get_ui16(),729);
57is($bin->get_ui16(),2187);
58is($bin->get_ui16(),6561);
59is($bin->get_ui16(),19683);
60is($bin->get_ui16(),59049);
61
62
63$bin->close();
64
65open(BINDATA, 't/be.power3.u16.ints');
66my $data = do { local $/ = undef; <BINDATA> };
67$bin = File::Binary->new(IO::Scalar->new(\$data));
68$bin->set_endian($File::Binary::BIG_ENDIAN);
69
70is($bin->get_ui16(),1);
71is($bin->get_ui16(),3);
72is($bin->get_ui16(),9);
73is($bin->get_ui16(),27);
74is($bin->get_ui16(),81);
75is($bin->get_ui16(),243);
76is($bin->get_ui16(),729);
77is($bin->get_ui16(),2187);
78is($bin->get_ui16(),6561);
79is($bin->get_ui16(),19683);
80is($bin->get_ui16(),59049);
81
82
83$bin->close;
84
85
86