t/lib/big.t

   1 #!./perl
   2 require "../lib/bigint.pl";
   3
   4 $test = 0;
   5 $| = 1;
   6 print "1..246\n";
   7 while (<DATA>) {
   8         chop;
   9         if (/^&/) {
  10                 $f = $_;
  11         } else {
  12                 ++$test;
  13                 @args = split(/:/,$_,99);
  14                 $ans = pop(@args);
  15                 $try = "$f('" . join("','", @args) . "');";
  16                 if (($ans1 = eval($try)) eq $ans) {
  17                         print "ok $test\n";
  18                 } else {
  19                         print "not ok $test\n";
  20                         print "# '$try' expected: '$ans' got: '$ans1'\n";
  21                 }
  22         }
  23 }
  24 __END__
  25 &bnorm
  26 abc:NaN
  27    1 a:NaN
  28 1bcd2:NaN
  29 11111b:NaN
  30 +1z:NaN
  31 -1z:NaN
  32 0:+0
  33 +0:+0
  34 +00:+0
  35 +0 0 0:+0
  36 000000  0000000   00000:+0
  37 -0:+0
  38 -0000:+0
  39 +1:+1
  40 +01:+1
  41 +001:+1
  42 +00000100000:+100000
  43 123456789:+123456789
  44 -1:-1
  45 -01:-1
  46 -001:-1
  47 -123456789:-123456789
  48 -00000100000:-100000
  49 &bneg
  50 abd:NaN
  51 +0:+0
  52 +1:-1
  53 -1:+1
  54 +123456789:-123456789
  55 -123456789:+123456789
  56 &babs
  57 abc:NaN
  58 +0:+0
  59 +1:+1
  60 -1:+1
  61 +123456789:+123456789
  62 -123456789:+123456789
  63 &bcmp
  64 abc:abc:
  65 abc:+0:
  66 +0:abc:
  67 +0:+0:0
  68 -1:+0:-1
  69 +0:-1:1
  70 +1:+0:1
  71 +0:+1:-1
  72 -1:+1:-1
  73 +1:-1:1
  74 -1:-1:0
  75 +1:+1:0
  76 +123:+123:0
  77 +123:+12:1
  78 +12:+123:-1
  79 -123:-123:0
  80 -123:-12:-1
  81 -12:-123:1
  82 +123:+124:-1
  83 +124:+123:1
  84 -123:-124:1
  85 -124:-123:-1
  86 &badd
  87 abc:abc:NaN
  88 abc:+0:NaN
  89 +0:abc:NaN
  90 +0:+0:+0
  91 +1:+0:+1
  92 +0:+1:+1
  93 +1:+1:+2
  94 -1:+0:-1
  95 +0:-1:-1
  96 -1:-1:-2
  97 -1:+1:+0
  98 +1:-1:+0
  99 +9:+1:+10
 100 +99:+1:+100
 101 +999:+1:+1000
 102 +9999:+1:+10000
 103 +99999:+1:+100000
 104 +999999:+1:+1000000
 105 +9999999:+1:+10000000
 106 +99999999:+1:+100000000
 107 +999999999:+1:+1000000000
 108 +9999999999:+1:+10000000000
 109 +99999999999:+1:+100000000000
 110 +10:-1:+9
 111 +100:-1:+99
 112 +1000:-1:+999
 113 +10000:-1:+9999
 114 +100000:-1:+99999
 115 +1000000:-1:+999999
 116 +10000000:-1:+9999999
 117 +100000000:-1:+99999999
 118 +1000000000:-1:+999999999
 119 +10000000000:-1:+9999999999
 120 +123456789:+987654321:+1111111110
 121 -123456789:+987654321:+864197532
 122 -123456789:-987654321:-1111111110
 123 +123456789:-987654321:-864197532
 124 &bsub
 125 abc:abc:NaN
 126 abc:+0:NaN
 127 +0:abc:NaN
 128 +0:+0:+0
 129 +1:+0:+1
 130 +0:+1:-1
 131 +1:+1:+0
 132 -1:+0:-1
 133 +0:-1:+1
 134 -1:-1:+0
 135 -1:+1:-2
 136 +1:-1:+2
 137 +9:+1:+8
 138 +99:+1:+98
 139 +999:+1:+998
 140 +9999:+1:+9998
 141 +99999:+1:+99998
 142 +999999:+1:+999998
 143 +9999999:+1:+9999998
 144 +99999999:+1:+99999998
 145 +999999999:+1:+999999998
 146 +9999999999:+1:+9999999998
 147 +99999999999:+1:+99999999998
 148 +10:-1:+11
 149 +100:-1:+101
 150 +1000:-1:+1001
 151 +10000:-1:+10001
 152 +100000:-1:+100001
 153 +1000000:-1:+1000001
 154 +10000000:-1:+10000001
 155 +100000000:-1:+100000001
 156 +1000000000:-1:+1000000001
 157 +10000000000:-1:+10000000001
 158 +123456789:+987654321:-864197532
 159 -123456789:+987654321:-1111111110
 160 -123456789:-987654321:+864197532
 161 +123456789:-987654321:+1111111110
 162 &bmul
 163 abc:abc:NaN
 164 abc:+0:NaN
 165 +0:abc:NaN
 166 +0:+0:+0
 167 +0:+1:+0
 168 +1:+0:+0
 169 +0:-1:+0
 170 -1:+0:+0
 171 +123456789123456789:+0:+0
 172 +0:+123456789123456789:+0
 173 -1:-1:+1
 174 -1:+1:-1
 175 +1:-1:-1
 176 +1:+1:+1
 177 +2:+3:+6
 178 -2:+3:-6
 179 +2:-3:-6
 180 -2:-3:+6
 181 +111:+111:+12321
 182 +10101:+10101:+102030201
 183 +1001001:+1001001:+1002003002001
 184 +100010001:+100010001:+10002000300020001
 185 +10000100001:+10000100001:+100002000030000200001
 186 +11111111111:+9:+99999999999
 187 +22222222222:+9:+199999999998
 188 +33333333333:+9:+299999999997
 189 +44444444444:+9:+399999999996
 190 +55555555555:+9:+499999999995
 191 +66666666666:+9:+599999999994
 192 +77777777777:+9:+699999999993
 193 +88888888888:+9:+799999999992
 194 +99999999999:+9:+899999999991
 195 &bdiv
 196 abc:abc:NaN
 197 abc:+1:abc:NaN
 198 +1:abc:NaN
 199 +0:+0:NaN
 200 +0:+1:+0
 201 +1:+0:NaN
 202 +0:-1:+0
 203 -1:+0:NaN
 204 +1:+1:+1
 205 -1:-1:+1
 206 +1:-1:-1
 207 -1:+1:-1
 208 +1:+2:+0
 209 +2:+1:+2
 210 +1000000000:+9:+111111111
 211 +2000000000:+9:+222222222
 212 +3000000000:+9:+333333333
 213 +4000000000:+9:+444444444
 214 +5000000000:+9:+555555555
 215 +6000000000:+9:+666666666
 216 +7000000000:+9:+777777777
 217 +8000000000:+9:+888888888
 218 +9000000000:+9:+1000000000
 219 +35500000:+113:+314159
 220 +71000000:+226:+314159
 221 +106500000:+339:+314159
 222 +1000000000:+3:+333333333
 223 +10:+5:+2
 224 +100:+4:+25
 225 +1000:+8:+125
 226 +10000:+16:+625
 227 +999999999999:+9:+111111111111
 228 +999999999999:+99:+10101010101
 229 +999999999999:+999:+1001001001
 230 +999999999999:+9999:+100010001
 231 +999999999999999:+99999:+10000100001
 232 &bmod
 233 abc:abc:NaN
 234 abc:+1:abc:NaN
 235 +1:abc:NaN
 236 +0:+0:NaN
 237 +0:+1:+0
 238 +1:+0:NaN
 239 +0:-1:+0
 240 -1:+0:NaN
 241 +1:+1:+0
 242 -1:-1:+0
 243 +1:-1:+0
 244 -1:+1:+0
 245 +1:+2:+1
 246 +2:+1:+0
 247 +1000000000:+9:+1
 248 +2000000000:+9:+2
 249 +3000000000:+9:+3
 250 +4000000000:+9:+4
 251 +5000000000:+9:+5
 252 +6000000000:+9:+6
 253 +7000000000:+9:+7
 254 +8000000000:+9:+8
 255 +9000000000:+9:+0
 256 +35500000:+113:+33
 257 +71000000:+226:+66
 258 +106500000:+339:+99
 259 +1000000000:+3:+1
 260 +10:+5:+0
 261 +100:+4:+0
 262 +1000:+8:+0
 263 +10000:+16:+0
 264 +999999999999:+9:+0
 265 +999999999999:+99:+0
 266 +999999999999:+999:+0
 267 +999999999999:+9999:+0
 268 +999999999999999:+99999:+0
 269 &bgcd
 270 abc:abc:NaN
 271 abc:+0:NaN
 272 +0:abc:NaN
 273 +0:+0:+0
 274 +0:+1:+1
 275 +1:+0:+1
 276 +1:+1:+1
 277 +2:+3:+1
 278 +3:+2:+1
 279 +100:+625:+25
 280 +4096:+81:+1