Add tests for sublibraries

Co-Authored-By: Chris Rackauckas <accounts@chrisrackauckas.com>
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

Author: ChrisRackauckas

lib/RecursiveArrayToolsArrayPartitionAnyAll/Project.toml

@@ -8,3 +8,9 @@ RecursiveArrayTools = "731186ca-8d62-57ce-b412-fbd966d074cd"
 [compat]
 RecursiveArrayTools = "3.48"
 julia = "1.10"
+
+[extras]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[targets]
+test = ["Test"]

lib/RecursiveArrayToolsArrayPartitionAnyAll/test/runtests.jl

@@ -0,0 +1,34 @@
+using RecursiveArrayTools, RecursiveArrayToolsArrayPartitionAnyAll, Test
+
+@testset "Optimized any" begin
+    ap = ArrayPartition(collect(1:5), collect(6:10), collect(11:15))
+    @test any(x -> x == 4, ap)
+    @test any(x -> x == 15, ap)
+    @test !any(x -> x == 17, ap)
+    @test any(ap .> 10)
+    @test !any(ap .> 20)
+end
+
+@testset "Optimized all" begin
+    ap = ArrayPartition(ones(5), ones(5), ones(5))
+    @test all(x -> x == 1.0, ap)
+    @test !all(x -> x == 2.0, ap)
+    @test all(ap .> 0)
+
+    ap2 = ArrayPartition(ones(5), [1.0, 1.0, 0.0, 1.0, 1.0], ones(5))
+    @test !all(x -> x == 1.0, ap2)
+end
+
+@testset "Matches AbstractArray default results" begin
+    ap = ArrayPartition(rand(100), rand(100), rand(100))
+    f = x -> x > 0.5
+
+    # Results must match
+    @test any(f, ap) == any(f, collect(ap))
+    @test all(f, ap) == all(f, collect(ap))
+
+    # Edge case: empty
+    ap_empty = ArrayPartition(Float64[], Float64[])
+    @test !any(x -> true, ap_empty)
+    @test all(x -> true, ap_empty)
+end

lib/RecursiveArrayToolsShorthandConstructors/Project.toml

@@ -8,3 +8,9 @@ RecursiveArrayTools = "731186ca-8d62-57ce-b412-fbd966d074cd"
 [compat]
 RecursiveArrayTools = "3.48"
 julia = "1.10"
+
+[extras]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[targets]
+test = ["Test"]

lib/RecursiveArrayToolsShorthandConstructors/test/runtests.jl

@@ -0,0 +1,29 @@
+using RecursiveArrayTools, RecursiveArrayToolsShorthandConstructors, Test
+
+@testset "VA[...] shorthand" begin
+    recs = [[1, 2, 3], [4, 5, 6], [7, 8, 9]]
+    testva = VA[[1, 2, 3], [4, 5, 6], [7, 8, 9]]
+    @test testva isa VectorOfArray
+    @test testva.u == recs
+    @test Array(testva) == [1 4 7; 2 5 8; 3 6 9]
+
+    # Nesting
+    nested = VA[
+        fill(1, 2, 3),
+        VA[3ones(3), zeros(3)],
+    ]
+    @test nested isa VectorOfArray
+    @test nested.u[1] == fill(1, 2, 3)
+    @test nested.u[2] isa VectorOfArray
+end
+
+@testset "AP[...] shorthand" begin
+    x = AP[1:5, 1:6]
+    @test x isa ArrayPartition
+    @test length(x) == 11
+    @test x[1:5] == 1:5
+    @test x[6:11] == 1:6
+
+    @test length(AP[]) == 0
+    @test isempty(AP[])
+end