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
|
function gbtest26
%GBTEST26 test typecasting
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
types = gbtest_types ;
rng ('default') ;
for k1 = 1:length (types)
atype = types {k1} ;
fprintf ('\n================================================ %s\n', atype) ;
A = gbtest_cast (100 * rand (3), atype) %#ok<*NOPRT>
H = GrB (A) ;
B = GrB (H, atype) ;
assert (gbtest_eq (A, B)) ;
for k2 = 1:length (types)
gtype = types {k2} ;
fprintf ('\n------------ %s:\n', gtype) ;
G = GrB (H, gtype)
K = GrB (G, atype) %#ok<*NASGU>
end
end
fprintf ('gbtest26: all tests passed\n') ;
|
