Confirm that complex flonum components survive read/write in hex.

diff --git a/tests/runtime/test-readwrite.scm b/tests/runtime/test-readwrite.scm
index c8b5bf3cbf4fd6ce21f5312a1b8b76167ff9dae8..123db6c73ff2fb079404cbad34b8068e18650c3d 100644 (file)
--- a/tests/runtime/test-readwrite.scm
+++ b/tests/runtime/test-readwrite.scm
@@ -106,6 +106,7 @@ USA.
     ("#x123" ,assert-exact-integer)
     ("#x1/34" ,assert-exact-rational)
     ("#x123+456i" ,assert-complex-nonreal)
+    ("#x1.23p+4-1.ffp-8i" ,assert-complex-nonreal)
     ("#x1.23p+0" ,assert-flonum))
   (lambda (string #!optional assertion xfail?)
     (with-expected-failure xfail?