% <TestDescription>
%
% Test the shape of the data in AOs.
%
% </TestDescription>
function result = utp_09(method, obj1, obj2)
  
  % <SyntaxDescription>
  %
  % Test that the <METHOD> method keeps the data shape of the input object. The
  % input AO data must be an array with row data and/or column data.
  %
  % </SyntaxDescription>
  
  try
    % <SyntaxCode>
    
    if iscolumnvector(obj1) == iscolumnvector(obj2)
      warning('!!! Incorrect inputs. Give a column and a row vector.');
      stest = false;
    else
      out1 = feval(method, obj1);
      out2 = feval(method, obj2);
      % </SyntaxCode>
      stest = true;
    end
    
  catch err
    disp(err.message)
    stest = false;
  end
  
  % <AlgoDescription>
  %
  % 1) Check that the shape of the data doesn't change.
  %
  % </AlgoDescription>
  
  atest = true;
  if stest
    % <AlgoCode>
    % Check the shape of the output data

    atest = false;
    
    if iscolumnvector(out1) && iscolumnvector(obj1)
      atest = true;
    end
    
    if isrowvector(out1) && isrowvector(obj1)
      atest = true;
    end
    
    
    % </AlgoCode>
  else
    atest = false;
  end
  
  % Return a result structure
  dd = dbstack;
  mfilename = dd(2).file(1:end-2);  
  result = utp_prepare_result(atest, stest, dbstack, mfilename);
end % END UTP_09

function res = iscolumnvector(obj)
  
  if size(obj.data.y, 1)>=1 && size(obj.data.y,2)==1
    res = true;
  else
    res = false;
  end
  
end


function res = isrowvector(obj)
  
  if size(obj.data.y, 2)>=1 && size(obj.data.y,1)==1
    res = true;
  else
    res = false;
  end
  
end