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