% UTP_TEMPLATE a set of unit tests for FOO.
%
% Joe Blogs 28-07-10
%
% $Id: utp_template.m,v 1.5 2010/07/28 04:11:07 hewitson Exp $
%

% <MethodDescription>
%
% The method FOO for the class Boing does bouncy things with data.
%
% </MethodDescription>

function results = utp_template(varargin)
  
  % Check the inputs
  if nargin == 0
    
    % Some keywords
    class   = 'Boing';
    model   = 'foo';
    
    results = [];
    disp('******************************************************');
    disp(['****  Running Unit Tests for ' class '/' model]);
    disp('******************************************************');
    
    % Run the tests
    results = [results utp_01()];  % check FOO does something useful
    
    disp('Done.');
    disp('******************************************************');
    
  elseif nargin == 1 % Check for UTP functions
    if strcmp(varargin{1}, 'isutp')
      results = 1;
    else
      results = 0;
    end
  else
    error('### Incorrect inputs')
  end
  
  
  % <TestDescription>
  %
  % Tests that the method <FOO> does something useful.
  %
  % </TestDescription>
  %
  % $Id: utp_template.m,v 1.5 2010/07/28 04:11:07 hewitson Exp $
  %
  
  function result = utp_01(varargin)
    
    % <SyntaxDescription>
    %
    % Tests that the method <FOO> does something useful.
    %
    % </SyntaxDescription>
    
    try
      
      % <SyntaxCode>
      
      % Here we just check that a suitable call to the method can be made.
      
      % </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 object is pink when embarrassed
    % 2) Check that the data are nice and shiny
    %
    % </AlgoDescription>
    
    atest = true;
    if stest
      msg = '';
      % <AlgoCode>
      
      % Here we perform detailed checks on the content of the objects or
      % outputs produced during the syntax check
      
      if somethingBad
        atest = false;
        msg = 'Oooh something bad happened here';
      end
      
      if somethingElseBad
        atest = false;
        msg = 'Wow something else bad happened here';
      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_XX
  
end