1function gbtest49 2%GBTEST49 test GrB.prune 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') ; 8 9for trial = 1:40 10 11 A = rand (4) ; 12 A (A > .5) = 0 ; 13 A (1,1) = 1 ; 14 G = GrB (A) ; 15 16 C0 = sparse (A) ; 17 C1 = GrB.prune (A) ; 18 C2 = GrB.prune (G) ; 19 assert (isequal (C0, C1)) ; 20 assert (isequal (C0, C2)) ; 21 22 C0 = sparse (A) ; 23 C0 (1,1) = 0 ; %#ok<*SPRIX> 24 C1 = GrB.prune (A, 1) ; 25 C2 = GrB.prune (G, 1) ; 26 assert (isequal (C0, double (C1))) ; 27 assert (isequal (C0, double (C2))) ; 28 29end 30 31fprintf ('gbtest49: all tests passed\n') ; 32 33