improved AList.sub test

.github/workflows/publish.yml

@@ -3,7 +3,6 @@ on:
   push:
     branches:
       - master
-      - updates
     paths:
       - RELEASE_NOTES.md
       - .github/workflows/publish.yml  
@@ -64,7 +63,7 @@ jobs:
       - name: Pack
         env:
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
-        run: dotnet aardpack FSharp.Data.Adaptive.sln --notag --norelease
+        run: dotnet aardpack FSharp.Data.Adaptive.sln --notag
       - name: Upload Package
         uses: actions/upload-artifact@v2
         with:

RELEASE_NOTES.md

@@ -1,3 +1,8 @@
+### 1.2.9
+* new `AList.sub` implementation
+* switched to `aardpack` based build with CI publishing
+* switched to newest fsdocs
+
 ### 1.2.8
 * Index-Deletion now handled via Async/Task instead of its own thread (threads not supported on blazor-wasm)
 

docs.sh → publishDocs.sh

@@ -6,8 +6,8 @@ rm -dfr doctmp/**
 cp -R output/** doctmp
 cd doctmp
 
-git config --global user.email "[email protected]"
-git config --global user.name "fsdocs"
+git config --local user.email "[email protected]"
+git config --local user.name "fsdocs"
 git add .
 git commit -m "Update docs"
 git push origin gh-pages

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

@@ -864,27 +864,58 @@ let ``[AList] subA``() =
     let r = res.GetReader()
     test r
 
+    // change offset
     transact (fun () -> o.Value <- 10)
     test r
 
+    // change count
     transact (fun () -> c.Value <- 5)
     test r
 
+    // remove in slice
     transact (fun () -> l.RemoveAt 11 |> ignore)
     test r
 
+    // update in sclice
     transact (fun () -> l[11] <- 1111)
     test r
 
+    // remove before slice
     transact (fun () -> l.RemoveAt 0 |> ignore)
     test r
 
+    // remove after slice
     transact (fun () -> l.RemoveAt 70 |> ignore)
     test r
 
+    // change offset
     transact (fun () -> o.Value <- 3)
     test r
-
+
+    // insert in slice
+    transact (fun () -> l.InsertAt(4, 1234) |> ignore)
+    test r
+
+    // clear list
+    transact (fun () -> l.Clear())
+    test r
+
+    transact (fun () -> c.Value <- 3)
+    test r
+
+    // insert before
+    transact (fun () -> l.AddRange [9;8;7])
+    test r
+
+    // insert less elements
+    transact (fun () -> l.AddRange [6;5])
+    test r
+
+    // insert more elements
+    transact (fun () -> l.AddRange [4;3])
+    test r
+
+
 [<Test>]
 let ``[AList] skipA``() =
     let l = clist [1..100]