1function gbtest0 2%GBTEST0 test GrB.clear 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: GPL-3.0-or-later 6 7GrB.clear 8 9assert (isequal (GrB.format, 'by col')) ; 10assert (isequal (GrB.chunk, 64*1024)) ; 11 12GrB.burble (1) ; 13GrB.burble (0) ; 14assert (~GrB.burble) ; 15 16GrB.burble (false) ; 17assert (~GrB.burble) ; 18 19ok = true ; 20try 21 GrB.burble (rand (2)) ; 22 ok = false ; 23catch me 24 fprintf ('expected error:\n') ; 25 disp (me) ; 26end 27assert (ok) ; 28 29fprintf ('default # of threads: %d\n', GrB.threads) ; 30 31fprintf ('gbtest0: all tests passed\n') ; 32 33