function runsometests (shortfiles)
  %RUNSOMETESTS Run tests specified by relative file name
  shortfiles = cellstr(shortfiles);
  
  % Locate tests
  testsdir = __octave_config_info__ ("octtestsdir");
  libinterptestdir = fullfile (testsdir, "libinterp");
  liboctavetestdir = fullfile (testsdir, "liboctave");
  fcnfiledir = __octave_config_info__ ("fcnfiledir");
  fcndirs = { testsdir, liboctavetestdir, libinterptestdir, fcnfiledir };

  fixedtestdir = fullfile (testsdir, "fixed");
  fixedtestdirs = { fixedtestdir };  
  
  testfiles = {};
  for i_shortfiles = 1:numel(shortfiles);
    shortfile = shortfiles{i_shortfiles};
    found = [];
    for i_fcndirs = 1:numel(fcndirs)
      candidate = fullfile(fcndirs{i_fcndirs}, shortfile);
      if exist(candidate, 'file')
        found = candidate;
        break;
      endif
    endfor
    if isempty(found)
      error('Could not locate test file: %s', shortfile);
    end
    testfiles{end+1} = found;
  endfor
  
  % Run tests
  for i = 1:numel(testfiles)
    fprintf('Testing %s\n', testfiles{i});
    test(testfiles{i});
  end
endfunction