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