1function test131
2%TEST131 test GrB_Matrix_clear
3
4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
5% SPDX-License-Identifier: Apache-2.0
6
7fprintf ('\ntest131: GrB_Matrix_clear\n') ;
8
9rng ('default') ;
10
11A = sparse (rand (4)) ;
12C = GB_mex_clear (A) ;
13S = sparse (4,4) ;
14assert (isequal (S, C.matrix)) ;
15
16Ahyper.matrix = A ;
17Ahyper.is_hyper = true ;
18
19C = GB_mex_clear (Ahyper) ;
20assert (isequal (S, C.matrix)) ;
21
22A = sparse (rand (4,1)) ;
23C = GB_mex_clear (A) ;
24S = sparse (4,1) ;
25assert (isequal (S, C.matrix)) ;
26
27A = sparse (eye (4)) ;
28C = GB_mex_clear (A) ;
29S = sparse (4,4) ;
30assert (isequal (S, C.matrix)) ;
31
32Ahyper.matrix = A ;
33Ahyper.is_hyper = true ;
34
35C = GB_mex_clear (Ahyper) ;
36assert (isequal (S, C.matrix)) ;
37
38A = sparse (eye (4,1)) ;
39C = GB_mex_clear (A) ;
40S = sparse (4,1) ;
41assert (isequal (S, C.matrix)) ;
42
43fprintf ('\ntest131: all tests passed\n') ;
44
45