@@ -2,28 +2,31 @@ function run_fematrix_tests()
2
2
3
3
@testset " FEMatrixVector" begin
4
4
println (" \n " )
5
- println (" =======================" )
6
- println (" Testing FEMatrix&VEctor " )
7
- println (" =======================" )
5
+ println (" =========================== " )
6
+ println (" Testing FEMatrix & FEVector " )
7
+ println (" =========================== " )
8
8
xgrid = simplexgrid (0 : 0.1 : 1 , 0 : 0.1 : 1 )
9
9
FES1 = FESpace {H1Pk{1, 1, 1}} (xgrid)
10
+ show (devnull , FES1)
10
11
FES2 = FESpace {H1Pk{1, 1, 2}} (xgrid)
12
+ show (devnull , FES2)
11
13
A = FEMatrix (FES1, FES2)
12
14
@test size (A. entries) == (FES1. ndofs, FES2. ndofs)
13
15
@test size (A[1 , 1 ]) == (FES1. ndofs, FES2. ndofs)
16
+ show (devnull , A)
14
17
15
18
B = FEMatrix ([FES1, FES2])
16
19
@test length (B) == 4
17
20
@test size (B. entries) == (FES1. ndofs + FES2. ndofs, FES1. ndofs + FES2. ndofs)
18
21
@test size (B[1 , 2 ]) == (FES1. ndofs, FES2. ndofs)
19
-
22
+ show ( devnull , B)
20
23
21
24
C = FEMatrix ([FES2, FES2], [FES1, FES1])
22
25
@test length (C) == 4
23
26
@test size (C. entries) == (2 * FES2. ndofs, 2 * FES1. ndofs)
24
27
@test size (C[1 , 2 ]) == (FES2. ndofs, FES1. ndofs)
25
28
C. entries. cscmatrix = sprand (2 * FES2. ndofs, 2 * FES1. ndofs, 0.5 )
26
- @ show C
29
+ show ( devnull , C)
27
30
28
31
b = FEVector ([FES1, FES2])
29
32
b. entries .= rand (FES1. ndofs + FES2. ndofs)
0 commit comments