From dbc8b2643f8c52d03a2a7ada03f2064091bb4abc Mon Sep 17 00:00:00 2001
From: Josh Suereth <joshua.suereth@gmail.com>
Date: Mon, 11 Aug 2014 16:13:26 -0400
Subject: [PATCH] Ok, this is actually the flaky issue with the test.

We use the ch key for testing, so it can't be part of the autogenerated set.
---
 .../src/test/scala/SettingsTest.scala         | 41 ++++++++++++-------
 1 file changed, 27 insertions(+), 14 deletions(-)

diff --git a/util/collection/src/test/scala/SettingsTest.scala b/util/collection/src/test/scala/SettingsTest.scala
index 2f3d9d4ae..dbad035c6 100644
--- a/util/collection/src/test/scala/SettingsTest.scala
+++ b/util/collection/src/test/scala/SettingsTest.scala
@@ -37,26 +37,39 @@ object SettingsTest extends Properties("settings") {
       evaluate(setting(chk, iterate(top)) :: Nil); true
     }
 
-  property("Derived setting chain depending on (prev derived, normal setting)") = forAllNoShrink(Gen.choose(1, 100)) { derivedSettings }
+  property("Derived setting chain depending on (prev derived, normal setting)") = forAllNoShrink(Gen.choose(1, 100).label("numSettings")) { derivedSettings }
   final def derivedSettings(nr: Int): Prop =
     {
       val genScopedKeys = {
-        val attrKeys = mkAttrKeys[Int](nr).filter(!_.isEmpty)
+        // We wan
+        // t to generate lists of keys that DO NOT inclue the "ch" key we use to check thigns.
+        val attrKeys = mkAttrKeys[Int](nr).filter(_.forall(_.label != "ch"))
         attrKeys map (_ map (ak => ScopedKey(Scope(0), ak)))
-      }.label("scopedKeys")
+      }.label("scopedKeys").filter(!_.isEmpty)
       forAll(genScopedKeys) { scopedKeys =>
-        // Note; It's evil to grab last IF you haven't verified the set can't be empty.
-        val last = scopedKeys.last
-        val derivedSettings: Seq[Setting[Int]] = (
-          for {
-            List(scoped0, scoped1) <- chk :: scopedKeys sliding 2
-            nextInit = if (scoped0 == chk) chk
-            else (scoped0 zipWith chk) { (p, _) => p + 1 }
-          } yield derive(setting(scoped1, nextInit))
-        ).toSeq
+        try {
+          // Note; It's evil to grab last IF you haven't verified the set can't be empty.
+          val last = scopedKeys.last
+          val derivedSettings: Seq[Setting[Int]] = (
+            for {
+              List(scoped0, scoped1) <- chk :: scopedKeys sliding 2
+              nextInit = if (scoped0 == chk) chk
+              else (scoped0 zipWith chk) { (p, _) => p + 1 }
+            } yield derive(setting(scoped1, nextInit))
+          ).toSeq
 
-        { checkKey(last, Some(nr - 1), evaluate(setting(chk, value(0)) +: derivedSettings)) :| "Not derived?" } &&
-          { checkKey(last, None, evaluate(derivedSettings)) :| "Should not be derived" }
+          {
+            // Note: This causes a cycle refernec error, quite frequently.
+            checkKey(last, Some(nr - 1), evaluate(setting(chk, value(0)) +: derivedSettings)) :| "Not derived?"
+          } && {
+            checkKey(last, None, evaluate(derivedSettings)) :| "Should not be derived"
+          }
+        } catch {
+          case t: Throwable =>
+            // TODO - For debugging only.
+            t.printStackTrace(System.err)
+            throw t
+        }
       }
     }