chiark - git - mdw - catacomb/blob - tests/mptext

   1 # Test vectors for MP textual I/O
   2 #
   3 # $Id: mptext,v 1.1 1999/11/17 18:02:17 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 }