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