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