Add complex tests

Author: jishnub

src/adjtrans.jl

@@ -513,8 +513,8 @@ function _dot_nonrecursive(u, v)
     end
 end
 
-rmul!(X::AdjOrTrans, s::Number) = (rmul!(parent(X), s); X)
-lmul!(s::Number, X::AdjOrTrans) = (lmul!(s, parent(X)); X)
+rmul!(X::AdjOrTrans, s::Number) = (lmul!(wrapperop(X)(s), parent(X)); X)
+lmul!(s::Number, X::AdjOrTrans) = (rmul!(parent(X), wrapperop(X)(s)); X)
 
 # Adjoint/Transpose-vector * vector
 *(u::AdjointAbsVec{<:Number}, v::AbstractVector{<:Number}) = dot(u.parent, v)

test/adjtrans.jl

@@ -799,12 +799,21 @@ end
 end
 
 @testset "lmul!/rmul! by numbers" begin
-    for A in (rand(4, 4), rand(ComplexF64,4,4),
+    @testset "$(eltype(A))" for A in (rand(4, 4), rand(ComplexF64,4,4),
                 fill([1 2; 3 4], 4, 4))
         B = copy(A)
-        @test lmul!(2, B) == 2 * A
-        B .= A
-        @test rmul!(B, 2) == A * 2
+        @testset for op in (transpose, adjoint)
+            A .= B
+            @test lmul!(2, op(A)) == 2 * op(B)
+            A .= B
+            @test rmul!(op(A), 2) == op(B) * 2
+            if eltype(A) <: Complex
+                A .= B
+                @test lmul!(-2im, op(A)) == -2im * op(B)
+                A .= B
+                @test rmul!(op(A), -2im) == op(B) * -2im
+            end
+        end
     end
 end