Add more tests (#26)

Author: tkf

test/test_modifying.jl

@@ -0,0 +1,24 @@
+module TestModifying
+
+using DataTools
+using Setfield: @lens
+using Test
+using Transducers
+
+reduce_bs1(args...; kw...) = reduce(args...; basesize = 1, kw...)
+
+@testset for fold in [foldl, reduce_bs1, reduce]
+    @test fold(modifying(a = +), Map(identity), [(a = 1, b = 2), (a = 3, b = 4)]) ==
+          (a = 4, b = 2)
+end
+
+@testset "map" begin
+    @test map(modifying(a = string), [(a = 1, b = 2), (a = 3, b = 4)]) ==
+          [(a = "1", b = 2), (a = "3", b = 4)]
+    @test map(
+        modifying(@lens(_.a[1].b) => x -> 10x),
+        [(a = ((b = 1,), 2),), (a = ((b = 3,), 4),)],
+    ) == [(a = ((b = 10,), 2),), (a = ((b = 30,), 4),)]
+end
+
+end  # module

test/test_oncol.jl

@@ -1,7 +1,10 @@
 module TestOncol
 
-using Test
 using DataTools
+using Test
+using Transducers
+
+reduce_bs1(args...; kw...) = reduce(args...; basesize = 1, kw...)
 
 @testset begin
     @test oncol(a = +, b = *)((a = 1, b = 2), (a = 3, b = 4)) == (a = 4, b = 8)
@@ -11,4 +14,12 @@ using DataTools
           (a_min = 1, a_max = 2)
 end
 
+@testset for fold in [foldl, reduce_bs1, reduce]
+    @test fold(
+        oncol(a = +, b = averaging),
+        Filter(x -> isodd(x.a)),
+        [(a = 1, b = 7), (a = 2, b = 3), (a = 3, b = 4)],
+    ) == (a = 4, b = 5.5)
+end
+
 end  # module