From e01981257b33a7eac8ff08e97b801c033a2d38f3 Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Wed, 9 Oct 2002 00:34:57 +0000
Subject: [PATCH] Test new mptext reading facilities.

---
 tests/mptext | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/tests/mptext b/tests/mptext
index a81cfa9..c6f7a8b 100644
--- 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;
-- 
2.11.0