1function test139
2%TEST139 merge sort, special cases
3
4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
5% SPDX-License-Identifier: Apache-2.0
6
7fprintf ('test139 --------------- merge sort, special cases\n') ;
8rng ('default') ;
9
10n = 1e6 ;
11I = 42 * ones (n,1) ;
12J = (1:n)' ;
13K = 100 * ones (n,1) ;
14
15I0 = int64 (I) ;
16J0 = int64 (J) ;
17K0 = int64 (K) ;
18
19IJ1 = sortrows ([I0 J0]) ;
20[a b] = GB_mex_msort_2 (I0, J0, 2) ;
21assert (isequal (IJ1, [a b])) ;
22
23IJ3 = sortrows ([I0 J0 K0]) ;
24[a b c] = GB_mex_msort_3 (I0, J0, K0, 2) ;
25assert (isequal (IJ3, [a b c])) ;
26
27IJ1 = sortrows ([J0 I0]) ;
28[a b] = GB_mex_msort_2 (J0, I0, 2) ;
29assert (isequal (IJ1, [a b])) ;
30
31fprintf ('test139 --------------- all tests passed\n') ;
32