From 4aef03795de4d8cc818cb08672bdb8228fe12b65 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Sat, 2 Oct 2010 14:35:17 -0400
Subject: [PATCH] added ordered-dict test

---
 collects/tests/data/ordered-dict.rkt | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/collects/tests/data/ordered-dict.rkt b/collects/tests/data/ordered-dict.rkt
index 5a4478ba2b..86219b35fc 100644
--- a/collects/tests/data/ordered-dict.rkt
+++ b/collects/tests/data/ordered-dict.rkt
@@ -227,6 +227,18 @@
 
 (provide performance)
 
+(define (deep-test [test 'splay])
+  (let ([mk (case test
+              ((splay) mksplay)
+              ((adj) mkadj)
+              ((skip) mkskip))])
+    (for ([seed (in-range 100)])
+      (random-seed seed)
+      (printf "seed = ~s\n" seed)
+      (p "test" dict-test mk #t))))
+
+(provide deep-test)
+
 #|
 Recent run: