1function gbtest20
2%GBTEST20 test bandwidth, isdiag, ceil, floor, round, fix
3
4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
5% SPDX-License-Identifier: GPL-3.0-or-later
6
7rng ('default') ;
8for trial = 1:10
9    fprintf ('.') ;
10    for m = 0:10
11        for n = 0:10
12            A = 100 * sprandn (m, n, 0.5) ;
13            G = GrB (A) ;
14            [lo1, hi1] = bandwidth (A) ;
15            [lo2, hi2] = bandwidth (G) ;
16            assert (isequal (lo1, lo2)) ;
17            assert (isequal (hi1, hi2)) ;
18            d1 = isdiag (A) ;
19            d2 = isdiag (G) ;
20            assert (isequal (d1, d2)) ;
21
22            assert (gbtest_eq (sign  (A), sign  (G))) ;
23            assert (gbtest_eq (ceil  (A), ceil  (G))) ;
24            assert (gbtest_eq (floor (A), floor (G))) ;
25            assert (gbtest_eq (round (A), round (G))) ;
26            assert (gbtest_eq (fix   (A), fix   (G))) ;
27        end
28    end
29end
30
31fprintf ('\ngbtest20: all tests passed\n') ;
32
33