1function gbtest68
2%GBTEST68 test isequal
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
9s = GrB (pi) ;
10
11assert (~isequal (s, magic (2))) ;
12assert (~isequal (s, [pi pi])) ;
13assert (~isequal (s, sparse (0))) ;
14
15A = GrB (2,2) ;
16B = GrB (2,2) ;
17A (1,1) = 1 ;
18B (2,2) = 1 ;
19assert (~isequal (A, B)) ;
20
21assert (~isequal (GrB (A, 'int8'), GrB (B, 'uint8'))) ;
22
23fprintf ('gbtest68: all tests passed\n') ;
24
25