TestCase.m

Go to the documentation of this file.

classdef TestCase<matlab.unittest.TestCase
    properties (Access=private)
        PROF_MODE='off';
        PROF_DIR='';
    end
    methods
        function runAndCheckError(self,commandStr,expIdentifierList,varargin)
            import mxberry.core.checkmultvar;
            import mxberry.core.throwerror;
            import mxberry.core.check.lib.*;
            %
            isNoIdentPatternSpec=false;
            if ischar(expIdentifierList)
                expIdentifierList={expIdentifierList};
            elseif isempty(expIdentifierList)
                isNoIdentPatternSpec=true;
            end
            %
            nExpIdentifiers=length(expIdentifierList);
            %
            [reg,isRegSpec,causeCheckDepth,reportStr,~,isRepStrSpec]=...
                mxberry.core.parseparext(varargin,...
                {'causeCheckDepth','reportStr';...
                0,'successful execution when failure is expected';...
                'isscalar(x)&&isnumeric(x)',@isstring},...
                [0,1],...
                'regDefList',{[]},...
                'regCheckList',{@(x)(iscellstr(x)||isstring(x))});
            %
            if isRegSpec
                expMsgCodeList=reg{1};
                if ischar(expMsgCodeList)
                    expMsgCodeList={expMsgCodeList};
                end
                isNoMsgPatternSpecVec=false(1,numel(expMsgCodeList));
            else
                isNoMsgPatternSpecVec=true(1,nExpIdentifiers);
                expMsgCodeList=repmat({''},1,nExpIdentifiers);
            end
            nMsgCodes=numel(expMsgCodeList);
            if isNoIdentPatternSpec
                expIdentifierList=repmat({''},1,nMsgCodes);
                isNoIdentPatternSpecVec=true(1,nMsgCodes);
            else
                isNoIdentPatternSpecVec=false(1,nMsgCodes);
            end
            %
            checkmultvar(@(x,y) size(y,2) == 0 || ...
                size(y,2) == size(x,2),2,expIdentifierList,expMsgCodeList);
            %
            try
                if ischar(commandStr)
                    evalin('caller',commandStr);
                else
                    feval(commandStr);
                end
            catch meObj
                errMsg='';
                [isIdentMatchVec,identPatternStr] =checkCode(meObj,...
                    'identifier',expIdentifierList);
                [isMsgMatchVec,msgPatternStr] =checkCode(meObj,...
                    'message',expMsgCodeList);
                %
                isOk=any((isIdentMatchVec|isNoIdentPatternSpecVec)&...
                    (isMsgMatchVec|isNoMsgPatternSpecVec));
                patternStr=['identifier(',identPatternStr,')',...
                    'message(',msgPatternStr,')'];
                %
                if isRepStrSpec
                    addSuffix=', %s';
                    addArgList={reportStr};
                else
                    addSuffix='';
                    addArgList={};
                end
                
                self.verifyEqual(true,isOk,...
                    sprintf(...
                    ['\n no match found for pattern %s',...
                    ' exception details: \n %s',addSuffix],...
                    patternStr,errMsg,addArgList{:}))
                return;
            end
            self.verifyEqual(true,false,reportStr);
            function [isMatchVec,patternsStr]=checkCode(inpMeObj,fieldName,codeList)
                errMsg=strrep(...
                    mxberry.core.MExceptionUtils.me2HyperString(...
                    inpMeObj),...
                    '%','%%');
                isMatchVec=cellfun(...
                    @(x)getIsCodeMatch(...
                    inpMeObj,causeCheckDepth,fieldName,x),codeList);
                %
                patternsStr=mxberry.core.string.catwithsep(codeList,', ');
                %
                
            end
            function isPositive=getIsCodeMatch(inpMeObj,checkDepth,fieldName,codeStr)
                fieldValue = inpMeObj.(fieldName);
                if isempty(fieldValue)
                    isPositive= isempty(codeStr);
                else
                    isPositive=~isempty(strfind(fieldValue,codeStr));
                end
                causeList=inpMeObj.cause;
                nCauses=length(causeList);
                if checkDepth>0&&nCauses>0
                    for iCause=1:nCauses
                        isPositive=isPositive||getIsCodeMatch(...
                            causeList{iCause},checkDepth-1,...
                            fieldName,codeStr);
                    end
                end
            end
        end
        function resTime=runAndMeasureTime(self,varargin)
            profileMgr=mxberry.dev.prof.ProfileManager(...
                self.PROF_MODE,self.PROF_DIR);
            %
            resTime=profileMgr.runAndProcess(varargin{:});
        end
    end
end