Tickle error case that I missed.

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index 34410caecd593efbc5d7d510bd4523100087d9fc..a2641421cb85f296ef947fbb176e058022783451 100644 (file)
--- a/tests/runtime/test-numpar.scm
+++ b/tests/runtime/test-numpar.scm
@@ -85,6 +85,8 @@ USA.
 (define-eqv-test "#d#e-100" -100)
 (define-eqv-test "#x#e-100" -256)
 
+(define-eqv-test "#e1e1+1e1i" 10+10i 'xerror)
+
 (define-eqv-test "#e#x1p10" (expt 2 10))
 (define-eqv-test "#e#x1.1p4" #x11)
 (define-eqv-test "#e#x1.1p-1" (* #x11 (expt 2 (- (+ 1 4)))))