@@ -8,18 +8,18 @@ function test_blas(AT)
8
8
y = rand (elty, 6 )
9
9
10
10
@test compare (* , AT, A, y)
11
- @test compare (* , AT, transpose (A) , x)
12
- @test compare (* , AT, adjoint (A) , x)
11
+ @test compare ((t,s) -> transpose (t) * s , AT, A , x)
12
+ @test compare ((t,s) -> adjoint (t) * s , AT, A , x)
13
13
14
14
@test compare (* , AT, A, B)
15
- @test compare (* , AT, transpose (A) , C)
16
- @test compare (* , AT, C, transpose (B) )
17
- @test compare (* , AT, transpose (A), transpose (B) )
18
- @test compare (* , AT, adjoint (A) , C)
19
- @test compare (* , AT, C, adjoint (B) )
20
- @test compare (* , AT, adjoint (A), adjoint (B) )
21
- @test compare (* , AT, transpose (A), adjoint (B) )
22
- @test compare (* , AT, adjoint (A), transpose (B) )
15
+ @test compare ((t,s) -> transpose (t) * s , AT, A , C)
16
+ @test compare ((t,s) -> t * transpose (s) , AT, C, B )
17
+ @test compare ((t,s) -> transpose (t) * transpose (s) , AT, A, B )
18
+ @test compare ((t,s) -> adjoint (t) * s , AT, A , C)
19
+ @test compare ((t,s) -> t * adjoint (s) , AT, C, B )
20
+ @test compare ((t,s) -> adjoint (t) * adjoint (s) , AT, A, B )
21
+ @test compare ((t,s) -> transpose (t) * adjoint (s) , AT, A, B )
22
+ @test compare ((t,s) -> adjoint (t) * transpose (s) , AT, A, B )
23
23
end
24
24
25
25
for T in (ComplexF32, Float32)
0 commit comments