d3409d5e |
1 | # Test vectors for MP textual I/O |
2 | # |
6401773a |
3 | # $Id: mptext,v 1.2 1999/12/10 23:26:26 mdw Exp $ |
d3409d5e |
4 | |
5 | mptext { |
6 | |
7 | # --- Perfectly valid things --- |
8 | |
9 | 10 0 10 0; |
10 | 0 0 10 0; |
11 | 10 52 10 52; |
12 | 10 654365464655464577673765769678 10 654365464655464577673765769678; |
13 | 10 654365464655464577673765769678 16 8425e6d06f272b9a2d73ed1ce; |
14 | 16 8425E6D06F272B9A2D73ED1CE 10 654365464655464577673765769678; |
15 | 0 654365464655464577673765769678 16 8425e6d06f272b9a2d73ed1ce; |
16 | 0 16_8425E6D06F272B9A2D73ED1CE 10 654365464655464577673765769678; |
6401773a |
17 | 0 -0x8425E6D06F272B9A2D73ED1CE 10 -654365464655464577673765769678; |
18 | 8 -366570443501403714657464766613 10 -596569802840985608098409867; |
d3409d5e |
19 | 0 0366570443501403714657464766613 10 596569802840985608098409867; |
20 | |
21 | |
22 | # --- Bogus things --- |
23 | |
24 | 10 "" 0 0; # Empty string fails |
25 | 10 foo 0 0; # Non-numeric character |
26 | 10 134f 10 134; # Stop parsing when reaching `f' |
27 | 4 12345 10 27; # Stop parsing when reaching `4' |
28 | 0 37_ 10 37; # 37 is an invalid base, so stop at `_' |
29 | 0 36_ 0 0; # 36 is a valid base, so restart and fail |
30 | } |