% Test sparse matrix array constructor
function x = test_sparse62
[yi1,zi1] = sparse_test_mat('int32',300,400);
[yf1,zf1] = sparse_test_mat('float',300,400);
[yd1,zd1] = sparse_test_mat('double',300,400);
[yc1,zc1] = sparse_test_mat('complex',300,400);
[yz1,zz1] = sparse_test_mat('dcomplex',300,400);
[yi2,zi2] = sparse_test_mat('int32',300,450);
[yf2,zf2] = sparse_test_mat('float',300,450);
[yd2,zd2] = sparse_test_mat('double',300,450);
[yc2,zc2] = sparse_test_mat('complex',300,450);
[yz2,zz2] = sparse_test_mat('dcomplex',300,450);
[yi3,zi3] = sparse_test_mat('int32',30,400);
[yf3,zf3] = sparse_test_mat('float',30,400);
[yd3,zd3] = sparse_test_mat('double',30,400);
[yc3,zc3] = sparse_test_mat('complex',30,400);
[yz3,zz3] = sparse_test_mat('dcomplex',30,400);
[yi4,zi4] = sparse_test_mat('int32',30,450);
[yf4,zf4] = sparse_test_mat('float',30,450);
[yd4,zd4] = sparse_test_mat('double',30,450);
[yc4,zc4] = sparse_test_mat('complex',30,450);
[yz4,zz4] = sparse_test_mat('dcomplex',30,450);
a1 = [yi1,yi2;yi3,yi4];
b1 = [zi1,zi2;zi3,zi4];
a2 = [yf1,yf2;yf3,yf4];
b2 = [zf1,zf2;zf3,zf4];
a3 = [yd1,yd2;yd3,yd4];
b3 = [zd1,zd2;zd3,zd4];
a4 = [yc1,yc2;yc3,yc4];
b4 = [zc1,zc2;zc3,zc4];
a5 = [yz1,yz2;yz3,yz4];
b5 = [zz1,zz2;zz3,zz4];
x = testeq(a1,b1) & testeq(a2,b2) & testeq(a3,b3) & testeq(a4,b4) & testeq(a5,b5);