1function gbtest54 2%GBTEST54 test GrB.compact 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: GPL-3.0-or-later 6 7rng ('default') ; 8n = 32 ; 9H = GrB (n,n) ; 10I = sort (randperm (n, 4)) ; 11J = sort (randperm (n, 4)) ; 12A = magic (4) ; 13H (I,J) = A ; 14[C, I, J] = GrB.compact (H) ; %#ok<*ASGLU> 15H (I, J(1)) = 0 ; 16[C, I, J] = GrB.compact (H, 0) ; 17assert (isequal (C, A (:,2:end))) ; 18 19A = ones (4) ; 20A (1,1) = 2 ; 21G = GrB.compact (A, 2) ; 22assert (nnz (G) == 15) ; 23A = ones (4) ; 24A (1,1) = 0 ; 25A = sparse (A) ; 26assert (isequal (G, A)) ; 27 28fprintf ('gbtest54: all tests passed\n') ; 29 30