Test new mptext reading facilities.

diff --git a/tests/mptext b/tests/mptext
index a81cfa9..c6f7a8b 100644 (file)
--- a/tests/mptext
+++ b/tests/mptext
@@ -1,6 +1,6 @@
 # Test vectors for MP textual I/O
 #
-# $Id: mptext,v 1.8 2002/01/13 19:51:28 mdw Exp $
+# $Id: mptext,v 1.9 2002/10/09 00:34:57 mdw Exp $
 
 mptext-ascii {
   # --- Perfectly valid things ---
@@ -25,7 +25,7 @@ mptext-ascii {
   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 63_ 10 63;                 # 37 is an invalid base, so stop at `_'
   0 36_ 0 0;                   # 36 is a valid base, so restart and fail
 
   # --- Big bases ---
@@ -38,6 +38,15 @@ mptext-ascii {
   10 36 37 A;
   62 Z 10 61;
 
+  0 36_a 10 10;
+  0 36_A 10 10;
+  0 37_A 10 36;
+
+  0 0x10 10 16;
+  0 0o10 10 8;
+  0 0b10 10 2;
+  0 010 10 8;
+
   # --- Word-boundary tests for binary-radix translation ---
 
   8 1234567012                         8 1234567012;