| 1 | # Test vectors for MP textual I/O |
| 2 | # |
| 3 | # $Id: mptext,v 1.2 1999/12/10 23:26:26 mdw Exp $ |
| 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; |
| 17 | 0 -0x8425E6D06F272B9A2D73ED1CE 10 -654365464655464577673765769678; |
| 18 | 8 -366570443501403714657464766613 10 -596569802840985608098409867; |
| 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 | } |