X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/71ec78ce88339bda7c265d6dafa4982077acc901..d3409d5ecf2492cff862616de72a580d1a8e8dc0:/tests/mptext diff --git a/tests/mptext b/tests/mptext new file mode 100644 index 0000000..d77582b --- /dev/null +++ b/tests/mptext @@ -0,0 +1,30 @@ +# Test vectors for MP textual I/O +# +# $Id: mptext,v 1.1 1999/11/17 18:02:17 mdw Exp $ + +mptext { + + # --- Perfectly valid things --- + + 10 0 10 0; + 0 0 10 0; + 10 52 10 52; + 10 654365464655464577673765769678 10 654365464655464577673765769678; + 10 654365464655464577673765769678 16 8425e6d06f272b9a2d73ed1ce; + 16 8425E6D06F272B9A2D73ED1CE 10 654365464655464577673765769678; + 0 654365464655464577673765769678 16 8425e6d06f272b9a2d73ed1ce; + 0 16_8425E6D06F272B9A2D73ED1CE 10 654365464655464577673765769678; + 0 "-0x8425E6D06F272B9A2D73ED1CE" 10 "-654365464655464577673765769678"; + 8 "-366570443501403714657464766613" 10 "-596569802840985608098409867"; + 0 0366570443501403714657464766613 10 596569802840985608098409867; + + + # --- Bogus things --- + + 10 "" 0 0; # Empty string fails + 10 foo 0 0; # Non-numeric character + 10 134f 10 134; # Stop parsing when reaching `f' + 4 12345 10 27; # Stop parsing when reaching `4' + 0 37_ 10 37; # 37 is an invalid base, so stop at `_' + 0 36_ 0 0; # 36 is a valid base, so restart and fail +}