function test_suite = test_disp
% tests for cosmo_disp
%
% # For CoSMoMVPA's copyright information and license terms, #
% # see the COPYING file distributed with CoSMoMVPA. #
try % assignment of 'localfunctions' is necessary in Matlab >= 2016
test_functions = localfunctions();
catch % no problem; early Matlab versions can use initTestSuite fine
end
initTestSuite;
function test_disp_array()
if ~has_evalc()
cosmo_notify_test_skipped('No support for ''evalc''');
return
end
aeq = @(s, y) assertEqual([s repmat(sprintf('\n'), size(s, 1), 1)], ...
evalc('cosmo_disp(y)'));
aeq(['[ 1 2 3 ... '...
'8 9 10 ]@1x10'], 1:10);
function test_disp_struct()
if ~has_evalc()
cosmo_notify_test_skipped('No support for ''evalc''');
return
end
aeq = @(s, y) assertEqual([s repmat(sprintf('\n'), size(s, 1), 1)], ...
evalc('cosmo_disp(y)'));
x = struct();
x.a_cell = {[], {'cell in cell', [1 2; 3 4]}};
x.a_matrix = [10 11 12; 13 14 15];
x.a_string = 'hello world';
x.a_struct.another_struct.name = 'me';
s = sprintf(['.a_cell \n'...
' { [ ] { ''cell in cell'' [ 1 2 \n'...
' 3 4 ] } }\n'...
'.a_matrix \n'...
' [ 10 11 12 \n'...
' 13 14 15 ] \n'...
'.a_string \n'...
' ''hello world'' \n'...
'.a_struct \n'...
' .another_struct \n'...
' .name \n'...
' ''me'' ']);
aeq(s, x);
function test_disp_cases
if ~has_evalc
cosmo_notify_test_skipped('No support for ''evalc''');
return
end
x = 1:5;
assert_equal_disp(x, 'threshold', Inf, ...
'[ 1 2 3 4 5 ]\n' ...
);
x = 1:5;
assert_equal_disp(x, 'edgeitems', 2, 'threshold', 1, ...
'[ 1 2 ... 4 5 ]@1x5\n' ...
);
x = 1:5;
assert_equal_disp(x, 'edgeitems', 1, 'threshold', 2, ...
'[ 1 ... 5 ]@1x5\n' ...
);
x = 1:5;
assert_equal_disp(x, 'edgeitems', 3, ...
'[ 1 2 3 4 5 ]\n' ...
);
x = 'a':'z';
assert_equal_disp(x, ...
'''abcdefg ... tuvwxyz''\n' ...
);
x = @abs;
assert_equal_disp(x, ...
'@abs\n' ...
);
x = {{1, 2}};
assert_equal_disp(x, 'depth', 1, ...
'{ <cell>@1x2 }\n' ...
);
x = [13e-20, pi(), 13e20];
assert_equal_disp(x, ...
'[ 1.3e-19 3.14 1.3e+21 ]\n' ...
);
x = [13e-20, pi(), 13e20];
assert_equal_disp(x, 'precision', 5, ...
'[ 1.3e-19 3.1416 1.3e+21 ]\n' ...
);
x = struct();
y = x([]);
assert_equal_disp(y, ...
'struct (empty)\n' ...
);
x = struct('x', 1);
assert_equal_disp(x, ...
['.x \n'...
' [ 1 ]\n' ...
]);
x = struct('x', {1 2; 3 4});
assert_equal_disp(x, ...
['<struct>@2x2 \n'...
' (1,1).x \n'...
' [ 1 ]\n'...
' (2,1).x \n'...
' [ 3 ]\n'...
' (1,2).x \n'...
' [ 2 ]\n'...
' (2,2).x \n'...
' [ 4 ]\n' ...
]);
x = struct('x', {1 2; 3 4});
x3 = cat(3, x, x, x);
assert_equal_disp(x3, ...
['<struct>@2x2x3 \n'...
' (1,1,1).x \n'...
' [ 1 ]\n'...
' (2,1,1).x \n'...
' [ 3 ]\n'...
' (1,2,1).x \n'...
' [ 2 ]\n'...
' : : \n'...
' (2,1,3).x \n'...
' [ 3 ]\n'...
' (1,2,3).x \n'...
' [ 2 ]\n'...
' (2,2,3).x \n'...
' [ 4 ]\n' ...
]);
x = struct('x', {1 2; 3 4});
y = repmat({x}, 10, 10);
x3 = cat(3, y{:});
assert_equal_disp(x3, ...
['<struct>@2x2x100 \n'...
' (1,1,1) .x \n'...
' [ 1 ]\n'...
' (2,1,1) .x \n'...
' [ 3 ]\n'...
' (1,2,1) .x \n'...
' [ 2 ]\n'...
' : : \n'...
' (2,1,100).x \n'...
' [ 3 ]\n'...
' (1,2,100).x \n'...
' [ 2 ]\n'...
' (2,2,100).x \n'...
' [ 4 ]\n' ...
]);
x = zeros([2 2 1 2 3]);
x(:) = 2 * (1:numel(x));
assert_equal_disp(x, ...
['<double>@2x2x1x2x3 \n'...
' (:,:,1,1,1) = [ 2 6 \n'...
' 4 8 ] \n'...
' (:,:,1,2,1) = [ 10 14 \n'...
' 12 16 ]\n'...
' (:,:,1,1,2) = [ 18 22 \n'...
' 20 24 ]\n'...
' (:,:,1,2,2) = [ 26 30 \n'...
' 28 32 ]\n'...
' (:,:,1,1,3) = [ 34 38 \n'...
' 36 40 ]\n'...
' (:,:,1,2,3) = [ 42 46 \n'...
' 44 48 ]\n' ...
]);
x = num2cell(1:10);
assert_equal_disp(x, ...
'{ [ 1 ] [ 2 ] [ 3 ] ... [ 8 ] [ 9 ] [ 10 ] }@1x10\n' ...
);
x = reshape(num2cell(1:100), 10, 10);
assert_equal_disp(x, ...
['{ [ 1 ] [ 11 ] [ 21 ] ... [ 71 ] [ 81 ] [ 91 ] \n'...
' [ 2 ] [ 12 ] [ 22 ] ... [ 72 ] [ 82 ] [ 92 ] \n'...
' [ 3 ] [ 13 ] [ 23 ] ... [ 73 ] [ 83 ] [ 93 ] \n'...
' : : : : : : \n'...
' [ 8 ] [ 18 ] [ 28 ] ... [ 78 ] [ 88 ] [ 98 ] \n'...
' [ 9 ] [ 19 ] [ 29 ] ... [ 79 ] [ 89 ] [ 99 ] \n'...
' [ 10 ] [ 20 ] [ 30 ] ... [ 80 ] [ 90 ] [ 100 ] }@10x10\n' ...
]);
x = reshape(1:100, 10, 10);
assert_equal_disp(x, ...
['[ 1 11 21 ... 71 81 91 \n'...
' 2 12 22 ... 72 82 92 \n'...
' 3 13 23 ... 73 83 93 \n'...
' : : : : : : \n'...
' 8 18 28 ... 78 88 98 \n'...
' 9 19 29 ... 79 89 99 \n'...
' 10 20 30 ... 80 90 100 ]@10x10\n' ...
]);
function test_disp_nosize()
if ~has_evalc() || cosmo_wtf('is_octave')
cosmo_notify_test_skipped(['No support for testing evalc '...
'on data with no size']);
return
end
orig_pwd = pwd();
pwd_resetter = onCleanup(@()cd(orig_pwd));
temp_dir = fullfile(orig_pwd, cosmo_make_temp_filename());
dir_cleaner = onCleanup(@()remove_dir_helper(temp_dir));
% override 'size' method for double
mkdir(temp_dir);
temp_double_dir = fullfile(temp_dir, '@double');
mkdir(temp_double_dir);
size_fn = fullfile(temp_double_dir, 'size.m');
fid = fopen(size_fn, 'w');
fprintf(fid, 'function size(varargin)\nerror(''undefined'');');
fclose(fid);
cd(temp_dir);
assert_equal_disp(1, '<double>\n');
function tf = has_evalc()
tf = exist('evalc', 'builtin') || ~isempty(which('evalc'));
function remove_dir_helper(tmp_dir)
if cosmo_wtf('is_octave')
rmdir_state = confirm_recursive_rmdir();
state_resetter = onCleanup(@()confirm_recursive_rmdir(rmdir_state));
confirm_recursive_rmdir(false, 'local');
end
rmdir(tmp_dir, 's');
function assert_equal_disp(varargin)
args = varargin(1:(end - 1));
str = varargin{end};
cmd = 'cosmo_disp(args{:})';
assertEqual(evalc(cmd), sprintf(str));
