[MLton-commit] r6328

[Vesa Karvonen]

Modified test to not create nested sequences (for efficiency; the reduced
coverage should be insignificant) and also to test with a nested tuple.

----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/test/read.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/generic/unstable/test/read.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/test/read.sml	2008-01-15 01:29:40 UTC (rev 6327)
+++ mltonlib/trunk/com/ssh/generic/unstable/test/read.sml	2008-01-15 06:49:00 UTC (rev 6328)
@@ -82,7 +82,8 @@
 
           (testRs real [("-2.0e~10", ~2.0e~10), (" ( 1.2 ) ", 1.2)])
 
-          (testSR (vector (tuple2 (option char, list string))) [Fmt.default])
+          (testSR (tuple2 (tuple2 (string, vector (option unit)), list char))
+                  [Fmt.default])
 
           $
 end