1function gbtest69
2%GBTEST69 test flip
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') ;
8
9A = rand (10,8) ;
10G = GrB (A) ;
11assert (isequal (flip (A), flip (G))) ;
12assert (isequal (flip (A,1), flip (G,1))) ;
13assert (isequal (flip (A,2), flip (G,2))) ;
14assert (isequal (flip (A,3), flip (G,3))) ;
15
16assert (isequal (flip (A,GrB (1)), flip (G,1))) ;
17assert (isequal (flip (A,GrB (2)), flip (G,2))) ;
18assert (isequal (flip (A,GrB (3)), flip (G,3))) ;
19
20A = rand (10,1) ;
21G = GrB (A) ;
22assert (isequal (flip (A), flip (G))) ;
23assert (isequal (flip (A,1), flip (G,1))) ;
24assert (isequal (flip (A,2), flip (G,2))) ;
25assert (isequal (flip (A,3), flip (G,3))) ;
26
27assert (isequal (flip (A, GrB(1)), flip (G,1))) ;
28assert (isequal (flip (A, GrB(2)), flip (G,2))) ;
29assert (isequal (flip (A, GrB(3)), flip (G,3))) ;
30
31A = rand (1,9) ;
32G = GrB (A) ;
33assert (isequal (flip (A), flip (G))) ;
34assert (isequal (flip (A,1), flip (G,1))) ;
35assert (isequal (flip (A,2), flip (G,2))) ;
36assert (isequal (flip (A,3), flip (G,3))) ;
37
38assert (isequal (flip (A,GrB(1)), flip (G,1))) ;
39assert (isequal (flip (A,GrB(2)), flip (G,2))) ;
40assert (isequal (flip (A,GrB(3)), flip (G,3))) ;
41
42fprintf ('gbtest69: all tests passed\n') ;
43
44