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