Mercurial > hg > ltpda
view testing/utp_1.1/utps/rational/utp_rational_isprop.m @ 44:409a22968d5e default
Add unit tests
author | Daniele Nicolodi <nicolodi@science.unitn.it> |
---|---|
date | Tue, 06 Dec 2011 18:42:11 +0100 |
parents | |
children |
line wrap: on
line source
% UTP_RATIONAL_ISPROP a set of UTPs for the rational/isprop method % % M Hewitson 06-08-08 % % $Id: utp_rational_isprop.m,v 1.3 2011/03/29 13:13:33 ingo Exp $ % % <MethodDescription> % % The isprop method of the rational class determine whether input is object % property. % % </MethodDescription> function results = utp_rational_isprop(varargin) % Check the inputs if nargin == 0 % Some keywords class = 'rational'; mthd = 'isprop'; results = []; disp('******************************************************'); disp(['**** Running UTPs for ' class '/' mthd]); disp('******************************************************'); % Test RATIONAL objects [ra1,ra2,ra3,rav,ram] = get_test_objects_rational; % Exception list for the UTPs: [ple1,ple2,ple3,ple4,ple5,ple6] = get_test_ples(); % Run the tests results = [results utp_01]; % getInfo call results = [results utp_02]; % Vector input results = [results utp_03]; % Matrix input results = [results utp_04]; % List input results = [results utp_05]; % Test with mixed input results = [results utp_06]; % Test history is working results = [results utp_07]; % Test the modify call works results = [results utp_08]; % Test negative case 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 %% UTP_01 % <TestDescription> % % Tests that the getInfo call works for this method. % % </TestDescription> function result = utp_01 % <SyntaxDescription> % % Test that the getInfo call works for no sets, all sets, and each set % individually. % % </SyntaxDescription> try % <SyntaxCode> % Call for no sets io(1) = eval([class '.getInfo(''' mthd ''', ''None'')']); % Call for all sets io(2) = eval([class '.getInfo(''' mthd ''')']); % Call for each set for kk=1:numel(io(2).sets) io(kk+2) = eval([class '.getInfo(''' mthd ''', ''' io(2).sets{kk} ''')']); end % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % 1) Check that getInfo call returned an minfo object in all cases. % 2) Check that all plists have the correct parameters. % % </AlgoDescription> atest = true; if stest % <AlgoCode> % check we have minfo objects if isa(io, 'minfo') % SET 'None' if ~isempty(io(1).sets), atest = false; end if ~isempty(io(1).plists), atest = false; end % Check all Sets if ~any(strcmpi(io(2).sets, 'Default')), atest = false; end if numel(io(2).plists) ~= numel(io(2).sets), atest = false; end % SET 'Default' if io(3).plists.nparams ~= 0, atest = false; end % Check key % Check default value % Check options end % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_01 %% UTP_02 % <TestDescription> % % Tests that the isprop method works with a vector of RATIONAL objects as % input. % % </TestDescription> function result = utp_02 % <SyntaxDescription> % % Test that the isprop method works for a vector of RATIONAL objects as % input. % % </SyntaxDescription> try % <SyntaxCode> out = isprop(rav, 'name'); % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % 1) Check that the number of elements in 'out' is the same as in 'rav' % 2) Check that each output contains the correct data. % % </AlgoDescription> atest = true; if stest % <AlgoCode> % Check we have the correct number of outputs if ~isequal(size(out), size(rav)), atest = false; end % Check each output if ~all(out), atest = false; end % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_02 %% UTP_03 % <TestDescription> % % Tests that the isprop method works with a matrix of RATIONAL objects as % input. % % </TestDescription> function result = utp_03 % <SyntaxDescription> % % Test that the isprop method works for a matrix of RATIONAL objects as % input. % % </SyntaxDescription> try % <SyntaxCode> out = isprop(ram, 'name'); % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % 1) Check that the number of elements in 'out' is the same as in 'ram' % 2) Check that each output contains the correct data. % % </AlgoDescription> atest = true; if stest % <AlgoCode> % Check we have the correct number of outputs if ~isequal(size(out), size(ram)), atest = false; end % Check each output if ~all(out), atest = false; end % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_03 %% UTP_04 % <TestDescription> % % Tests that the isprop method works with a list of RATIONAL objects as % input. % % </TestDescription> function result = utp_04 % <SyntaxDescription> % % Test that the isprop method works for a list of RATIONAL objects as % input. % % </SyntaxDescription> try % <SyntaxCode> out = isprop(ra1,ra2,ra3, 'name'); % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % 1) Check that the number of elements in 'out' is the same as in % input. % 2) Check that each output contains the correct data. % % </AlgoDescription> atest = true; if stest % <AlgoCode> % Check we have the correct number of outputs if numel(out) ~= 3, atest = false; end % Check each output if ~all(out), atest = false; end % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_04 %% UTP_05 % <TestDescription> % % Tests that the isprop method works with a mix of different shaped % RATIONAL objects as input. % % </TestDescription> function result = utp_05 % <SyntaxDescription> % % Test that the isprop method works with an input of matrices and % vectors and single RATIONAL objects. % % </SyntaxDescription> try % <SyntaxCode> out = isprop(ra1,rav,ra2,ram,ra3, 'name'); % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % 1) Check that the number of elements in 'out' is the same as in % input. % 2) Check that each output contains the correct data. % % </AlgoDescription> atest = true; if stest % <AlgoCode> % Check we have the correct number of outputs if numel(out) ~= (3+numel(ram)+numel(rav)), atest = false; end % Check each output if ~all(out), atest = false; end % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_05 %% UTP_06 % <TestDescription> % % Tests that the isprop method properly applies history. % % </TestDescription> function result = utp_06 % <SyntaxDescription> % % The method isprop doesn't change the object, thus it is not necessary % to apply history. % % </SyntaxDescription> try % <SyntaxCode> % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % </AlgoDescription> atest = true; if stest % <AlgoCode> % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_06 %% UTP_07 % <TestDescription> % % Tests that the isprop method works for each property. % % </TestDescription> function result = utp_07 % <SyntaxDescription> % % Test that the isprop method works for the properties: % 'num', 'den', 'iunits', 'ounits', 'hist', 'name' % % </SyntaxDescription> try % <SyntaxCode> % copy ra1 to work with out1 = isprop(ra1, 'num'); out2 = isprop(ra1, 'den'); out4 = isprop(ra1, 'iunits'); out5 = isprop(ra1, 'ounits'); out6 = isprop(ra1, 'hist'); out7 = isprop(ra1, 'name'); % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % 1) Check that each output contains the correct data. % % </AlgoDescription> atest = true; if stest % <AlgoCode> if ~out1, atest = false; end; if ~out2, atest = false; end; if ~out4, atest = false; end; if ~out5, atest = false; end; if ~out6, atest = false; end; if ~out7, atest = false; end; % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_07 %% UTP_08 % <TestDescription> % % Test the negative case and the not function command. % % </TestDescription> function result = utp_08 % <SyntaxDescription> % % Test that the isprop method retrun false for a unknown property and % for methods of the object. % % </SyntaxDescription> try % <SyntaxCode> out1 = isprop(ra2, 'foo'); out2 = ra2.isprop('foo'); out3 = ra2.isprop('name'); out4 = ra2.isprop('type'); out5 = ra2.isprop('char'); out6 = ra2.isprop('creator'); out7 = ra2.isprop('created'); % </SyntaxCode> stest = true; catch err disp(err.message) stest = false; end % <AlgoDescription> % % 1) Check that each output contains the correct data. % % </AlgoDescription> atest = true; if stest % <AlgoCode> if out1, atest = false; end; if out2, atest = false; end; if ~out3, atest = false; end; if out4, atest = false; end; if out5, atest = false; end; if out6, atest = false; end; if out7, atest = false; end; % </AlgoCode> else atest = false; end % Return a result structure result = utp_prepare_result(atest, stest, dbstack, mfilename); end % END UTP_08 end