1function gbtest57 2%GBTEST57 test fprintf and sprintf 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: GPL-3.0-or-later 6 7c1 = fprintf ('pi: %g\n', pi) ; 8c2 = fprintf ('pi: %g\n', GrB (pi)) ; 9assert (c1 == c2) ; 10 11s1 = sprintf ('pi: %g\n', pi) ; 12s2 = sprintf ('pi: %g\n', GrB (pi)) ; 13assert (isequal (s1, s2)) ; 14 15A = int16 (magic (4)) ; 16G = GrB (A) ; 17 18c1 = fprintf ('%g\n', A) ; 19c2 = fprintf ('%g\n', G) ; 20assert (c1 == c2) ; 21 22s1 = sprintf ('%g\n', A) ; 23s2 = sprintf ('%g\n', G) ; 24assert (isequal (s1, s2)) ; 25 26A = speye (2) ; 27G = GrB (A) ; 28 29c1 = fprintf ('%g\n', full (A)) ; 30c2 = fprintf ('%g\n', G) ; 31assert (c1 == c2) ; 32 33s1 = sprintf ('%g\n', full (A)) ; 34s2 = sprintf ('%g\n', G) ; 35assert (isequal (s1, s2)) ; 36 37A = logical (A) ; 38G = GrB (A) ; 39 40c1 = fprintf ('%g\n', full (A)) ; 41c2 = fprintf ('%g\n', G) ; 42assert (c1 == c2) ; 43 44fprintf ('gbtest57: all tests passed\n') ; 45 46