1function test64
2%TEST64 test GxB_*_subassign, scalar expansion, with and without duplicates
3
4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
5% SPDX-License-Identifier: Apache-2.0
6
7fprintf ('\n ------------------- quick test of GxB_*_subassign_scalar\n') ;
8
9Corig = sparse (rand (5,4)) ;
10
11% no accum, no duplicates in I
12C = Corig ;
13I = [2 3 5] ;
14J = [1 3] ;
15C (I,J) = 100 ;
16I0 = uint64 (I-1) ;
17J0 = uint64 (J-1) ;
18C2 = GB_mex_subassign (Corig, [], [], sparse (100), I0, J0, []) ;
19assert (isequal (C, C2.matrix))
20
21% no accum, with duplicates in I
22C = Corig ;
23I = [2 2 5] ;
24J = [1 3] ;
25C (I,J) = 100 ;
26I0 = uint64 (I-1) ;
27J0 = uint64 (J-1) ;
28C2 = GB_mex_subassign (Corig, [], [], sparse (100), I0, J0, []) ;
29assert (isequal (C, C2.matrix))
30
31% accum 'plus', no duplicates in I
32C = Corig ;
33I = [2 3 5] ;
34J = [1 3] ;
35C (I,J) = C (I,J) + 100 ;
36I0 = uint64 (I-1) ;
37J0 = uint64 (J-1) ;
38C2 = GB_mex_subassign (Corig, [], 'plus', sparse (100), I0, J0, []) ;
39assert (isequal (C, C2.matrix))
40
41fprintf ('\ntest64: all tests passed\n') ;
42
43