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