[MLton-commit] r6373

[Vesa Karvonen]

Test that the tuples written in the record syntax can be read.
----------------------------------------------------------------------

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-02-04 13:38:11 UTC (rev 6372)
+++ mltonlib/trunk/com/ssh/generic/unstable/test/read.sml	2008-02-04 14:10:30 UTC (rev 6373)
@@ -80,6 +80,14 @@
           (testRs foobar [("{+ = ( ( ) ) , bar = #\"3\", foo = true}",
                            {foo = true, + = (), bar = #"3"})])
 
+          (testRs (tuple2 (int, string))
+                  [("{1 = 3, 2 = \"4\"}",
+                    {1 = 3, 2 = "4"}),
+                   ("((*;)*)({2 = \"2\", 1 = 1}(*;)*))) (*;)*)",
+                    {1 = 1, 2 = "2"}),
+                   ("(2, \"1\")",
+                    (2, "1"))])
+
           (testRs real [("-2.0e~10", ~2.0e~10), (" ( 1.2 ) ", 1.2)])
 
           (testSR (tuple2 (tuple2 (string, vector (option unit)), list char))