1function gbtest44 2%GBTEST44 test subsasgn, mtimes, plus, false, ... 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 9A = rand (4,1) ; 10G = GrB (A) ; 11G (1) = pi ; 12A (1) = pi ; 13assert (isequal (A, G)) ; 14 15A = pi ; 16G = GrB (pi) ; 17C = A*G ; 18assert (isequal (C, pi^2)) 19 20A = pi ; 21B = rand (2) ; 22G = GrB (B) ; 23assert (isequal (A*B, A*G)) 24assert (isequal (A.*B, A.*G)) 25assert (isequal (B.*A, G.*A)) 26 27C = A + B ; 28H = A + G ; 29assert (isequal (C, H)) 30 31G = false ([3 4], 'like', H) ; 32C = sparse (false ([3 4])) ; 33assert (isequal (C, G)) 34 35G = false (3, 4, 'like', H) ; 36C = sparse (false (3, 4)) ; 37assert (isequal (C, G)) 38 39G = true ([3 4], 'like', H) ; 40C = sparse (true ([3 4])) ; 41assert (isequal (C, G)) 42 43G = true (3, 4, 'like', H) ; 44C = sparse (true (3, 4)) ; 45assert (isequal (C, G)) 46 47fprintf ('gbtest44: all tests passed\n') ; 48 49