|
1 | 1 | using Test
|
2 | 2 | using CUDA, AMDGPU, StaticArrays
|
3 | 3 | import CellArrays
|
4 |
| -import CellArrays: CPUCellArray, @define_CuCellArray, @define_ROCCellArray, cellsize, blocklength, _N |
| 4 | +import CellArrays: CPUCellArray, @define_CuCellArray, @define_ROCCellArray, cellsize, blocklength, field, _N |
5 | 5 | import CellArrays: IncoherentArgumentError, ArgumentError
|
6 | 6 |
|
7 | 7 | @define_CuCellArray
|
|
292 | 292 | @test blocklength(G) == 1
|
293 | 293 | @test blocklength(H) == 4
|
294 | 294 | end;
|
| 295 | + @testset "field" begin |
| 296 | + @test size(field(A, 1)) == dims |
| 297 | + @test size(field(C, 3,4)) == dims |
| 298 | + @test size(field(E, 2,2,2,2)) == dims |
| 299 | + @test size(field(G, 3,4)) == dims |
| 300 | + @test size(field(E, :xxxx)) == dims |
| 301 | + @test size(field(E, :yxxx)) == dims |
| 302 | + @test size(field(E, :xyxx)) == dims |
| 303 | + @test size(field(E, :yyxx)) == dims |
| 304 | + @test size(field(E, :yyyy)) == dims |
| 305 | + end; |
| 306 | + @testset "field property" begin |
| 307 | + @test E.xxxx == field(E, :xxxx) |
| 308 | + @test E.yxxx == field(E, :yxxx) |
| 309 | + @test E.xyxx == field(E, :xyxx) |
| 310 | + @test E.yyxx == field(E, :yyxx) |
| 311 | + @test E.yyyy == field(E, :yyyy) |
| 312 | + end; |
295 | 313 | end;
|
296 | 314 | @testset "3. Exceptions ($array_type arrays)" for (array_type, Array, CellArray) in zip(array_types, ArrayConstructors, CellArrayConstructors)
|
297 | 315 | dims = (2,3)
|
|
0 commit comments