Testings on Octonions (#41)

Author: yikait2

test/runtests.jl

@@ -423,9 +423,25 @@ end
     @test Array(α * L) == α * A
     @test Array(L * α) == A * α
     @test Array(α * L) == α * A
-    @test Array(L * α ) == A * α
+    @test Array(L * α) == A * α
     @test (α * L')' * x ≈ (α * A')' * x
     @test (α * L')' * v ≈ (α * A')' * v
     @test Array(@inferred adjoint(α * L * β)) ≈ conj(β) * A' * conj(α)
     @test Array(@inferred transpose(α * L * β)) ≈ β * transpose(A) * α
 end
+
+@testset "nonassociative number type" begin
+    using Quaternions
+    x = Octonion.(rand(10), rand(10), rand(10), rand(10),rand(10), rand(10), rand(10), rand(10))
+    v = rand(10)
+    A = Octonion.(rand(10,10), rand(10,10), rand(10,10), rand(10,10),rand(10,10), rand(10,10), rand(10,10), rand(10,10))
+    α = UniformScaling(Octonion.(rand(8)...))
+    β = UniformScaling(Octonion.(rand(8)...))
+    L = LinearMap(A)
+    @test Array(L) == A
+    @test Array(α * L) == α * A
+    @test Array(L * α) == A * α
+    @test Array(α * L) == α * A
+    @test Array(L * α) == A * α
+    @test (α * L')' * v ≈ (α * A')' * v
+end