[Test] removed BinaryCache2 tests;

Author: luithefirst

src/Tests/Aardvark.Base.FSharp.Tests/CachesTest.fs

@@ -255,184 +255,4 @@ let ``[Caches] ConditionalWeakTable: input holding output``() =
     Log.line "RuntimeObject Count=%d" RuntimeObject.ObjCount
 
     if RuntimeObject.ObjCount > 100 then
-        failwith "leak"
-
-[<Test>]
-let ``[Caches] BinaryCache2 forward``() =
-    
-    let a = "hugo"
-
-    let mutable compCount = 0
-    let cache = BinaryCache2<_, _, _>((fun a b -> 
-                                        let res = a.ToString() + b.ToString()
-                                        compCount <- compCount + 1
-                                        Log.line "result created"
-                                        res))
-
-    let sw = Stopwatch.StartNew()
-    let mutable i = 0
-    let random = Random(123)
-    let mutable temp = RuntimeObject(sprintf "run-%i" i)
-
-    while sw.Elapsed.TotalSeconds < 10.0 do
-        
-        let resCount = 
-            if random.NextDouble() < 0.1 || i = 0 then
-                temp <- RuntimeObject(sprintf "run-%i" i)
-                compCount + 1
-            else
-                compCount
-
-        let result = cache.Invoke(a, temp)
-
-        if resCount <> compCount then
-            failwith "caching failed"
-        
-        Log.line "created: %A" result
-
-        i <- i + 1 
-
-        System.GC.Collect(3)
-        System.GC.WaitForFullGCComplete() |> ignore
-
-    System.GC.Collect(3)
-    System.GC.WaitForFullGCComplete() |> ignore
-
-    Log.line "RuntimeObject Count=%d" RuntimeObject.ObjCount
-
-    if RuntimeObject.ObjCount > 100 then
-        failwith "leak"
-
-[<Test>]
-let ``[Caches] BinaryCache2 backward``() =
-    
-    let a = "hugo"
-
-    let mutable compCount = 0
-    let cache = BinaryCache2<_, _, _>((fun a b -> 
-                                        let res = a.ToString() + b.ToString() 
-                                        compCount <- compCount + 1
-                                        Log.line "result created: %s" res
-                                        res))
-
-    let sw = Stopwatch.StartNew()
-    let mutable i = 0
-    let random = Random(123)
-    let mutable temp = RuntimeObject(sprintf "run-%i" i)
-
-    while sw.Elapsed.TotalSeconds < 10.0 do
-
-        let resCount = 
-            if random.NextDouble() < 0.1 || i = 0 then
-                temp <- RuntimeObject(sprintf "run-%i" i)
-                compCount + 1
-            else
-                compCount
-                                
-        let result = cache.Invoke(temp, a)
-
-        if resCount <> compCount then
-            failwith "caching failed"
-                            
-        Log.line "created: %A" result
-
-        i <- i + 1 
-
-        System.GC.Collect(3)
-        System.GC.WaitForFullGCComplete() |> ignore
-
-    System.GC.Collect(3)
-    System.GC.WaitForFullGCComplete() |> ignore
-
-    Log.line "RuntimeObject Count=%d" RuntimeObject.ObjCount
-
-    if RuntimeObject.ObjCount > 100 then
-        failwith "leak"
-
-[<Test>]
-[<Ignore("issue by design -> see comment in BinaryChache2")>]
-let ``[Caches] BinaryCache2 forward with ResultObject``() =
-    
-    let a = "hugo"
-
-    let cache = BinaryCache2<_, _, _>((fun a b -> ResultObject(a, b)))
-
-    let sw = Stopwatch.StartNew()
-    let mutable i = 0
-    
-    let rnd = Random(123)
-    let mutable temp = Unchecked.defaultof<_>
-    
-    while sw.Elapsed.TotalSeconds < 10.0 do
-        
-        let resCount =
-            if rnd.NextDouble() < 0.1 || i = 0 then
-                temp <- RuntimeObject(sprintf "run-%i" i)
-                ResultObject<string, RuntimeObject>.ResCount + 1
-            else
-                ResultObject<string, RuntimeObject>.ResCount
-
-        let result = cache.Invoke(a, temp)
-        
-        if resCount <> ResultObject<string, RuntimeObject>.ResCount then
-            failwith "cache not working"
-
-        Log.line "created: %A" result
-
-        i <- i + 1 
-
-        System.GC.Collect(3)
-        System.GC.WaitForFullGCComplete() |> ignore
-
-    System.GC.Collect(3)
-    System.GC.WaitForFullGCComplete() |> ignore
-
-    Log.line "RuntimeObject Count=%d" RuntimeObject.ObjCount
-
-    if RuntimeObject.ObjCount > 100 then
-        failwith "leak"
-
-[<Test>]
-[<Ignore("issue by design -> see comment in BinaryChache2")>]
-let ``[Caches] BinaryCache2 backward with ResultObject``() =
-    
-    let a = "hugo"
-
-    let cache = BinaryCache2<_, _, _>((fun a b -> ResultObject(a, b)))
-
-    let sw = Stopwatch.StartNew()
-    let mutable i = 0
-
-    let rnd = Random(123)
-    let mutable temp = Unchecked.defaultof<_>
-
-    while sw.Elapsed.TotalSeconds < 10.0 do
-        
-        let resCount =
-            if rnd.NextDouble() < 0.1 || i = 0 then
-                temp <- RuntimeObject(sprintf "run-%i" i)
-                ResultObject<RuntimeObject, string>.ResCount + 1
-            else
-                ResultObject<RuntimeObject, string>.ResCount
-
-        let result = cache.Invoke(temp, a)
-
-        if resCount <> ResultObject<RuntimeObject, string>.ResCount then
-            failwith "cache not working"
-                    
-        Log.line "created: %A" result
-
-        i <- i + 1 
-
-        System.GC.Collect(3)
-        System.GC.WaitForFullGCComplete() |> ignore
-
-    System.GC.Collect(3)
-    System.GC.WaitForFullGCComplete() |> ignore
-
-    Log.line "RuntimeObject Count=%d" RuntimeObject.ObjCount
-
-    if RuntimeObject.ObjCount > 100 then
-        failwith "leak"
-
-
+        failwith "leak"