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