% <TestDescription>
%
% Tests that the model <MODEL> has a meaningful description.
%
% </TestDescription>
% 
% $Id: utp_902.m,v 1.3 2010/07/27 07:37:28 hewitson Exp $
%

function result = utp_902(cl, model_name, pl)
  
  % <SyntaxDescription>
  %
  % Test that the model <MODEL> has a meaningful description.
  %
  % </SyntaxDescription>
  
  try
    
    % <SyntaxCode>
    pl  = combine(pl, plist('built-in', model_name));
    mdl = feval(cl, pl);
    % </SyntaxCode>
    stest = true;
  catch err
    disp(err.message)
    msg = [err.message ' - ' err.stack(1).name ' - line ' num2str(err.stack(1).line)];
    stest = false;
  end
  
  % <AlgoDescription>
  %
  % 1) Check that the description of the object is not empty and not equal to 'none'
  %
  % </AlgoDescription>
  
  atest = true;
  if stest
    msg = '';
    % <AlgoCode>
    % check we have an ssm model
    if ~isa(mdl, 'ssm'), atest = false; end
    % check description is not empty
    if isempty(mdl.description)
      atest = false; 
    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, msg);
end % END UTP_901