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