Deactivated unitary tests #2 and #3 in @dynDates/subsref, changed unitary test #1 (do not use colon operator to instantiate a dynDates object) and added a new unitary test (to test the selection of one element in a dynDates object).

time-shift
Stéphane Adjemian (Charybdis) 2013-10-11 10:20:08 +02:00
parent 049ba8d527
commit 563ffdcd15
1 changed files with 27 additions and 5 deletions

View File

@ -93,7 +93,7 @@ end
%@test:1
%$ % Define a dynDates object
%$ B = dynDate('1950Q1'):dynDate('1960Q3');
%$ B = dynDates('1950Q1','1950Q2','1950Q3','1950Q4','1951Q1');
%$
%$ % Try to extract a sub-dynDates object.
%$ d = B(2:3);
@ -112,7 +112,7 @@ end
%$ T = all(t);
%@eof:1
%@test:2
%# @test:2
%$ % Define a dynDates object
%$ B = dynDate('1950Q1'):dynDate('1960Q3');
%$
@ -132,9 +132,9 @@ end
%$ t(4) = dyn_assert(d.ndat,2);
%$ end
%$ T = all(t);
%@eof:2
%# @eof:2
%@test:3
%# @test:3
%$ % Define a dynDates object
%$ B = dynDate('1950Q1'):dynDate('1960Q3');
%$
@ -154,4 +154,26 @@ end
%$ t(4) = dyn_assert(d.ndat,2);
%$ end
%$ T = all(t);
%@eof:2
%# @eof:3
%@test:4
%$ % Define a dynDates object
%$ B = dynDates('1950Q1','1950Q2','1950Q3','1950Q4','1951Q1');
%$
%$ % Try to extract a sub-dynDates object.
%$ d = B(2);
%$
%$ if isa(d,'dynDates')
%$ t(1) = 1;
%$ else
%$ t(1) = 0;
%$ end
%$
%$ if t(1)
%$ t(2) = dyn_assert(d.freq,B.freq);
%$ t(3) = dyn_assert(d.time,[1950 2]);
%$ t(4) = dyn_assert(d.ndat,1);
%$ end
%$ T = all(t);
%@eof:4