[MLton-commit] r6025

[Vesa Karvonen]

Bug revealing test.
----------------------------------------------------------------------

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

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/test/pickle.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/test/pickle.sml	2007-09-15 07:28:09 UTC (rev 6024)
+++ mltonlib/trunk/com/ssh/generic/unstable/test/pickle.sml	2007-09-15 09:34:58 UTC (rev 6025)
@@ -54,6 +54,9 @@
           (chkSeq (tuple3 (word8, word32, word64)))
           (chkSeq (bool &` char &` int &` real &` string &` word))
 
+          (sizeFn (fn i => i*50+1))
+          (chkSeq largeInt)
+
           (title "Generic.Pickle.Cyclic")
 
           (testSeq (Graph.t int) Graph.intGraph1)