-- Fix some bugs in unit test logging - and displaying call stack in case of error

if isempty(unitTest)

    logger = Logger('Homer3');

elseif unitTest.IsEmpty()

    logger = InitLogger(logger);

    logger = InitLogger(logger, 'UnitTestsAll');

else

    return;

end

    rethrow(ME);

end

if isempty(unitTest)

	logger.Close();

end

function [title, vernum] = MainGUIVersion(varargin)

function [title, verstr] = MainGUIVersion(varargin)

%

% Syntax:

%    [verstr, vernum, title] = MainGUIVersion()

function CleanUp(standalone, start)

function CleanUp(standalone, start, appname)

global DEBUG1

global QUICK_TEST

global procStreamStyle

    fclose all;

    reg = RegistriesClass();

    reg.DeleteSaved();

    logger = Logger(appname);

    cfg    = ConfigFileClass();

end

clear DEBUG1 testidx procStreamStyle

    fprintf('\n');

    for ii = 1:length(groupFolders)

        pname = filesepStandard([rootpath, groupFolders{ii}]);

        fprintf('Deleting %s*.snirf files: \n', pname);

        fprintf('Deleting *.snirf files in %s: \n', pname);

        DeleteDataFiles(pname, '.snirf');

    end

    fprintf('\n\n');

function UnitTestsAll()

global logger

global cfg 

t1 = tic;

setNamespace('Homer3')

CleanUp(true);

CleanUp(true, true, 'UnitTestsAll');

cleanupObj = onCleanup(@()userInterrupt_Callback(true));

logger = Logger('UnitTestsAll');

cfg = ConfigFileClass();

cfg.SetValue('Regression Test Active','true');

cfg.SetValue('Include Archived User Functions','Yes');

cfg.SetValue('Default Processing Stream Style','SNIRF');

cfg.Save();

UnitTestsAll_Snirf(false);

%UnitTestsAll_Snirf(false);

UnitTestsAll_MainGUI(false)

toc(t1);

end

% Clean up before we start

CleanUp(standalone);

logger = InitLogger(logger, 'UnitTests_MainGUI');

CleanUp(standalone, true, 'UnitTests_MainGUI');

logger.WriteNoNewline('################################################################');

logger.CurrTime('Starting UnitTests_MainGUI ...');