1function testc9
2%TESTC9 test complex extractTuples
3
4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
5% SPDX-License-Identifier: Apache-2.0
6
7seed = 1 ;
8for m = [1 5 10 100]
9    for n = [1 5 10 100]
10        for trial = 1:100
11            A = GB_mex_random (m, n, 10*(m+n), 1, seed) ; seed = seed + 1 ;
12
13            [I  J  X ] = find (A) ;
14            X = complex (X) ;
15
16            [I0 J0 X0] = GB_mex_extractTuples (A) ;
17
18            I1 = double (I0+1) ;
19            J1 = double (J0+1) ;
20
21            assert (isequal (I (:), I1 (:))) ;
22            assert (isequal (J (:), J1 (:))) ;
23            assert (isequal (X (:), X0 (:))) ;
24
25        end
26    end
27end
28
29fprintf ('testc9: all complex extractTuples tests passed\n') ;
30
31