1function test1 (wait)
2%TEST1 test sparse2
3% Example:
4%   test1
5% See also cholmod_test
6
7% Copyright 2007, Timothy A. Davis, http://www.suitesparse.com
8
9fprintf ('=================================================================\n');
10fprintf ('test1: test sparse2\n') ;
11
12if (nargin == 0)
13    wait = 0 ;
14end
15
16m = 3 ;
17n = 4 ;
18
19ii = { 1, [2 3]', 2, [ ] } ;
20jj = { 1, [2 3]', 3, [ ] } ;
21ss = { 1, [2 3]', pi, [ ] } ;
22
23for ki = 1:length (ii)
24    for kj = 1:length (jj)
25        for ks = 1:length (ss)
26
27            fprintf ('\n-----------------------------------------------\n') ;
28            i = ii {ki}	    %#ok
29            j = jj {kj}	    %#ok
30            s = ss {ks}	    %#ok
31	    m		    %#ok
32	    n		    %#ok
33	    clear A1 A2 B1 B2
34
35	    fprintf ('\nA1 = sparse (i,j,s,m,n)\n') ;
36            try % sparse, possibly with invalid inputs
37                A1 = sparse (i,j,s,m,n)			    %#ok
38		fprintf ('size A1: %d %d\n', size (A1)) ;
39            catch
40		A1 = 'A failed' ;
41                fprintf ('sparse failed\n') ;
42            end
43
44	    fprintf ('\nA2 = sparse2 (i,j,s,m,n)\n') ;
45            try % sparse2, possibly with invalid inputs
46                A2 = sparse2 (i,j,s,m,n)			%#ok
47		fprintf ('size A2: %d %d\n', size (A2)) ;
48            catch
49		A2 = 'A failed' ;
50                fprintf ('sparse2 failed\n') ;
51            end
52
53	    fprintf ('\nB1 = sparse (i,j,s)\n') ;
54            try % sparse, possibly with invalid inputs
55                B1 = sparse (i,j,s)			%#ok
56		fprintf ('size B1: %d %d\n', size (B1)) ;
57            catch
58                B1 = 'B failed' ;
59                fprintf ('sparse failed\n') ;
60            end
61
62	    fprintf ('\nB2 = sparse2 (i,j,s)\n') ;
63            try % sparse2, possibly with invalid inputs
64                B2 = sparse2 (i,j,s)			    %#ok
65		fprintf ('size B2: %d %d\n', size (B2)) ;
66            catch
67		B2 = 'B failed' ;
68                fprintf ('sparse2 failed\n') ;
69            end
70
71	    if (wait)
72		pause
73	    end
74
75	    if (~isequal (A1,A2) | ~isequal (B1,B2))			    %#ok
76		fprintf (...
77		'========================== SPARSE AND SPARSE2 DIFFER\n') ;
78	    end
79
80        end
81    end
82end
83
84fprintf ('test1 passed (review the above results)\n') ;
85