[u/mdw/catacomb] / tests / mptext

# Test vectors for MP textual I/O
#
# $Id: mptext,v 1.2 1999/12/10 23:26:26 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
}
Commit	Line	Data
d3409d5e	1	# Test vectors for MP textual I/O
d3409d5e	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;
6401773a	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	}