Mercurial > hg > ltpda
diff testing/utp_1.1/utps/parfrac/utp_parfrac_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 diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/testing/utp_1.1/utps/parfrac/utp_parfrac_isprop.m Tue Dec 06 18:42:11 2011 +0100 @@ -0,0 +1,486 @@ +% UTP_PARFRAC_ISPROP a set of UTPs for the parfrac/isprop method +% +% M Hewitson 06-08-08 +% +% $Id: utp_parfrac_isprop.m,v 1.3 2011/03/29 13:13:33 ingo Exp $ +% + +% <MethodDescription> +% +% The isprop method of the parfrac class determine whether input is object +% property. +% +% </MethodDescription> + +function results = utp_parfrac_isprop(varargin) + + % Check the inputs + if nargin == 0 + + % Some keywords + class = 'parfrac'; + mthd = 'isprop'; + + results = []; + disp('******************************************************'); + disp(['**** Running UTPs for ' class '/' mthd]); + disp('******************************************************'); + + % Test PARFRAC objects + [pf1,pf2,pf3,pfv,pfm] = get_test_objects_parfrac; + + % 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 PARFRAC objects as + % input. + % + % </TestDescription> + function result = utp_02 + + % <SyntaxDescription> + % + % Test that the isprop method works for a vector of PARFRAC objects as + % input. + % + % </SyntaxDescription> + + try + % <SyntaxCode> + out = isprop(pfv, '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 'pfv' + % 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(pfv)), 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 PARFRAC objects as + % input. + % + % </TestDescription> + function result = utp_03 + + % <SyntaxDescription> + % + % Test that the isprop method works for a matrix of PARFRAC objects as + % input. + % + % </SyntaxDescription> + + try + % <SyntaxCode> + out = isprop(pfm, '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 'pfm' + % 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(pfm)), 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 PARFRAC objects as + % input. + % + % </TestDescription> + function result = utp_04 + + % <SyntaxDescription> + % + % Test that the isprop method works for a list of PARFRAC objects as + % input. + % + % </SyntaxDescription> + + try + % <SyntaxCode> + out = isprop(pf1,pf2,pf3, '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 + % PARFRAC objects as input. + % + % </TestDescription> + function result = utp_05 + + % <SyntaxDescription> + % + % Test that the isprop method works with an input of matrices and + % vectors and single PARFRAC objects. + % + % </SyntaxDescription> + + try + % <SyntaxCode> + out = isprop(pf1,pfv,pf2,pfm,pf3, '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(pfm)+numel(pfv)), 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: + % 'res', 'poles', 'pmul', 'dir', 'iunits', 'ounits', 'hist', + % 'name' + % + % </SyntaxDescription> + + try + % <SyntaxCode> + % copy pf1 to work with + out1 = isprop(pf1, 'res'); + out2 = isprop(pf1, 'poles'); + out3 = isprop(pf1, 'pmul'); + out4 = isprop(pf1, 'dir'); + out6 = isprop(pf1, 'iunits'); + out7 = isprop(pf1, 'ounits'); + out8 = isprop(pf1, 'hist'); + out9 = isprop(pf1, '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 ~out3, atest = false; end; + if ~out4, atest = false; end; + if ~out6, atest = false; end; + if ~out7, atest = false; end; + if ~out8, atest = false; end; + if ~out9, 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(pf2, 'foo'); + out2 = pf2.isprop('foo'); + out3 = pf2.isprop('name'); + out4 = pf2.isprop('type'); + out5 = pf2.isprop('char'); + out6 = pf2.isprop('creator'); + out7 = pf2.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