1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
function test09b
%TEST09B test GrB_assign
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2020, All Rights Reserved.
% http://suitesparse.com See GraphBLAS/Doc/License.txt for license.
fprintf ('\n-----------duplicate I,J test of GB_mex_assign\n') ;
I = [2 3 2 3 3] ; J = [2 2 4 4 ] ;
I0 = uint64 (I) ;
J0 = uint64 (J);
C = sparse (magic (5)) ;
A = sparse (77 * ones (5,4)) ;
C2 = GB_mex_assign(C, [ ], [ ], A, I0, J0) ;
% check erroneous I and J
fprintf ('testing error handling, errors expected:\n') ;
A = sparse (1) ;
try
K = uint64 (99) ;
GB_mex_assign (C, [], 'plus', A, K, K) ;
ok = false ;
catch me
ok = true ;
end
assert (ok) ;
A = sparse (rand (2)) ;
try
I = uint64 ([0 0]) ;
K = uint64 ([99 100]) ;
GB_mex_assign (C, [], 'plus', A, I, K) ;
ok = false ;
catch me
ok = true ;
end
assert (ok) ;
fprintf ('\nAll tests passed (errors expected)\n') ;
fprintf ('\ntest09b: all tests passed\n') ;
|
