% GET_TESTS_IN_DIR returns an array of test structures for the test classes
% under the given directory.
%
% The tests for the test classes found below the given directory are
% gathered in to an array of structures of the form:
%
%   test.utp     % instance of the unit test class
%   test.methods % a cell-array of the methods to be run
%
% VERSION: $Id: get_tests_in_dir.m,v 1.4 2011/05/24 19:01:25 ingo Exp $
%
function tests = get_tests_in_dir(runner, directory)
  
  tests = [];
  % generate a list of class directories under this
  classdirs = utils.prog.dirscan(directory, '@.*');
  
  for jj=1:numel(classdirs)
    [path, name, ext] = fileparts(classdirs{jj});
    clname = name(2:end);
    if strncmp(clname, 'test_', 5)
      
      try
        obj = feval(clname);
        obj.testRunner = runner;
        obj.init();
        if isa(obj, 'ltpda_utp')
          test.utp = obj;
          test.methods = obj.list_tests();
          tests = [tests test];
        end
      catch Me
        % Catch the failure if the initialisation fails.
        runner.appendErrorResult(clname, 'All methods', Me);
      end
    end
  end
  
  
end