1try
2    load test_write_cell_2d_numeric.mat
3    expdata = {cast(reshape((1:12),3,4),type);cast(reshape((13:24),3,4),type);...
4               cast(reshape((25:36),3,4),type);cast(reshape((37:48),3,4),type);};
5    pass = true;
6    pass = pass && isequal(a,expdata(:));
7    pass = pass && strcmp(class(a{1}),class(expdata{1}));
8    pass = pass && strcmp(class(a{2}),class(expdata{2}));
9    pass = pass && strcmp(class(a{3}),class(expdata{3}));
10    pass = pass && strcmp(class(a{4}),class(expdata{4}));
11catch me
12    pass = false;
13end
14if pass
15    fprintf('PASSED\n');
16else
17    fprintf('FAILED\n');
18end
19exit;
20