1function test07 2%TEST07 test GxB_subassign with a single pending tuple 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: Apache-2.0 6 7% adds a single pending tuple 8 9rng ('default') ; 10C = sparse (rand (5,4)) ; 11C (2,3) = 0 ; 12A = 100 * sparse (magic (2)) ; 13 14I = [2 3] ; 15J = [3 4] ; 16 17C2 = C ; 18C2 (I,J) = A ; 19 20% full (C) 21% full (C2) 22 23I0 = uint64 (I-1) ; 24J0 = uint64 (J-1) ; 25 26C3 = GB_mex_subassign (C, [ ], '', A, I0, J0, [ ]) ; 27% C3.matrix 28% full (C3.matrix) 29assert (isequal (C3.matrix, C2)) 30 31I0 = I0 (1) ; 32I = I (1) ; 33C3 = GB_mex_subassign (C, C(I,J), '', A(1,:), I0, J0, [ ]) ; 34C2 = C ; 35C2 (I,J(2)) = A (1,2) ; 36assert (isequal (C3.matrix, C2)) 37 38fprintf ('\ntest07: all tests passed\n') ; 39 40