added test for AList.sub (potential) problems

Author: haraldsteinlechner

src/Test/FSharp.Data.Adaptive.Tests/Program.fs

@@ -4,9 +4,51 @@ open BenchmarkDotNet.Running
 open FSharp.Data.Traceable
 open FSharp.Data.Adaptive
 
+
+open NUnit.Framework
+open FsCheck
+open FSharp.Data.Adaptive
+open FSharp.Data.Traceable
+open FsUnit
+open FsCheck.NUnit
+
+[<Test>]
+let ``[AList] sub``() =
+
+    let l = clist [0 .. 10]
+
+    let subbed = 
+        l
+        |> AList.indexed
+        |> AList.sortBy snd
+        |> AList.sub 0 3
+
+    let thrd = subbed |> AList.force |> IndexList.toArray
+    subbed |> AList.force |> printfn "%A"
+
+    transact (fun _ -> 
+        l.[fst thrd.[2]] <- 4
+    )
+    subbed |> AList.force |> Seq.toArray |> Array.map snd |> should equal [0;1;4]
+
+
+    transact (fun _ -> 
+        l.[fst thrd.[2]] <- 5
+    )
+    subbed |> AList.force |> should equal [1;2;5]
+
+
+    transact (fun _ -> 
+        l.[fst thrd.[2]] <- 6
+    )
+    subbed |> AList.force |> should equal [1;2;6]
+
 [<EntryPoint>]
 let main _args =
 
+    //``[AList] sub``();
+
+
     //let a = cval [1;2;3;4]
     //let b = AVal.cast<seq<int>> a