fix bug in horzcat

Author: dlegland

src/@Image/cat.m

@@ -26,4 +26,4 @@
     data = cat(dim, data, var.Data);
 end
 
-res = Image('data', data);
+res = Image('data', data, 'Parent', obj);

src/@Image/horzcat.m

@@ -16,21 +16,21 @@
 
 % ------
 % Author: David Legland
-% e-mail: david.legland@inra.fr
+% e-mail: david.legland@inrae.fr
 % Created: 2011-08-04,    using Matlab 7.9.0.529 (R2009b)
 % Copyright 2011 INRA - Cepia Software Platform.
 
-data = obj.data;
-name = obj.name;
+data = obj.Data;
+name = obj.Name;
 
 for i = 1:length(varargin)
-    var = varargin{i};    
-    data = [data ; var.data]; %#ok<AGROW>
+    var = varargin{i};
+    data = [data ; var.Data]; %#ok<AGROW>
 
-    name = strcat(name, '+', var.name);
+    name = strcat(name, '+', var.Name);
 end
 
 res = Image( ...
-    'data', data, ...
-    'parent', obj, ...
-    'name', name);
+    'Data', data, ...
+    'Parent', obj, ...
+    'Name', name);

src/@Image/vertcat.m

@@ -5,15 +5,18 @@
 %   RES = [IMG1 ; IMG2];
 %
 %   Example
-%   vertcat
+%     % duplicate image in vertical direction
+%     img = Image.read('cameraman.tif');
+%     res = vertcat(img, img);
+%     show(res);
 %
 %   See also
 %     horzcat, repmat, cat
 %
 
 % ------
 % Author: David Legland
-% e-mail: david.legland@inra.fr
+% e-mail: david.legland@inrae.fr
 % Created: 2011-08-04,    using Matlab 7.9.0.529 (R2009b)
 % Copyright 2011 INRA - Cepia Software Platform.
 

tests/image/test_horzcat.m

@@ -0,0 +1,30 @@
+function tests = test_horzcat
+% Test suite for the file horzcat.
+%
+%   Test suite for the file horzcat
+%
+%   Example
+%   test_horzcat
+%
+%   See also
+%     horzcat
+
+% ------
+% Author: David Legland
+% e-mail: [email protected]
+% Created: 2020-12-07,    using Matlab 9.8.0.1323502 (R2020a)
+% Copyright 2020 INRAE - BIA-BIBS.
+
+tests = functiontests(localfunctions);
+
+function test_Simple(testCase) %#ok<*DEFNU>
+% Test call of function without argument.
+
+data = 200 * ones([20 30], 'uint8');
+img = Image(data);
+
+res = horzcat(img, img);
+
+assertTrue(testCase, isa(res, 'Image'));
+assertEqual(testCase, size(res), [60 20]);
+

tests/image/test_vertcat.m

@@ -0,0 +1,30 @@
+function tests = test_vertcat
+% Test suite for the file vertcat.
+%
+%   Test suite for the file vertcat
+%
+%   Example
+%   test_vertcat
+%
+%   See also
+%     vertcat
+
+% ------
+% Author: David Legland
+% e-mail: [email protected]
+% Created: 2020-12-07,    using Matlab 9.8.0.1323502 (R2020a)
+% Copyright 2020 INRAE - BIA-BIBS.
+
+tests = functiontests(localfunctions);
+
+function test_Simple(testCase) %#ok<*DEFNU>
+% Test call of function without argument.
+
+data = 200 * ones([20 30], 'uint8');
+img = Image(data);
+
+res = vertcat(img, img);
+
+assertTrue(testCase, isa(res, 'Image'));
+assertEqual(testCase, size(res), [30 40]);
+