add a few tests (#8)

* add a few tests

* wrong index used

* change var names and add one more test to parallel

Author: mrr00b00t

test/transforms.jl

@@ -223,10 +223,56 @@
   end
 
   @testset "Sequential" begin
-    # TODO
+    x = rand(Normal(0,10), 1500)
+    y = x + rand(Normal(0,2), 1500)
+    z = y + rand(Normal(0,5), 1500)
+    t = Table(; x, y, z)
+    T = Scale(low=0.2, high=0.8) → EigenAnalysis(:VDV)
+    n, c = apply(T, t)
+    tₒ = revert(T, n, c)
+    @test Tables.matrix(t) ≈ Tables.matrix(tₒ)
+
+    x = rand(Normal(0,10), 1500)
+    y = x + rand(Normal(0,2), 1500)
+    z = y + rand(Normal(0,5), 1500)
+    t = Table(; x, y, z)
+    T = Select(:x, :z) → ZScore() → EigenAnalysis(:V) → Scale(low=0, high=1)
+    n, c = apply(T, t)
+    tₒ = revert(T, n, c)
+    @test Tables.matrix(t) ≈ Tables.matrix(tₒ)
   end
 
   @testset "Parallel" begin
-    # TODO
+    x = rand(Normal(0,10), 1500)
+    y = x + rand(Normal(0,2), 1500)
+    z = y + rand(Normal(0,5), 1500)
+    t = Table(; x, y, z)
+    T = Scale(low=0.3, high=0.6) ∥ EigenAnalysis(:VDV)
+    n, c = apply(T, t)
+    tₒ = revert(T, n, c)
+    @test Tables.matrix(t) ≈ Tables.matrix(tₒ)
+
+    # check cardinality of Parallel
+    x = rand(Normal(0,10), 1500)
+    y = x + rand(Normal(0,2), 1500)
+    z = y + rand(Normal(0,5), 1500)
+    t = Table(; x, y, z)
+    T = ZScore() ∥ EigenAnalysis(:V)
+    n = T(t)
+    @test length(Tables.columnnames(n)) == 6
+
+    # distributivity with respect to Sequential
+    x = rand(Normal(0,10), 1500)
+    y = x + rand(Normal(0,2), 1500)
+    z = y + rand(Normal(0,5), 1500)
+    t = Table(; x, y, z)
+    T₁ = Center()
+    T₂ = Scale(low=0.2, high=0.8)
+    T₃ = EigenAnalysis(:VD)
+    P₁ = T₁ → (T₂ ∥ T₃)
+    P₂ = (T₁ → T₂) ∥ (T₁ →T₃)
+    n₁ = P₁(t)
+    n₂ = P₂(t)
+    @test Tables.matrix(n₁) ≈ Tables.matrix(n₂)
   end
 end