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