Added unitary test.

time-shift
Stéphane Adjemian (Charybdis) 2014-06-08 16:14:28 +02:00
parent 353bab2117
commit d5066e9a44
1 changed files with 23 additions and 1 deletions

View File

@ -151,4 +151,26 @@ error(['dseries::mpower: Wrong calling sequence!'])
%$ t(6) = dyn_assert(ts3.tex,{'A1^2';'A2^2'});
%$ end
%$ T = all(t);
%@eof:2
%@eof:2
%@test:3
%$ % Define a dseries object
%$ ts1=dseries([1 1;2 2;3 3], '1999y', {'MyVar1','MyVar2'});
%$
%$ % Use the power
%$ try
%$ ts2 = ts1^transpose(1:3);
%$ t = 1;
%$ catch
%$ t = 0;
%$ end
%$
%$ if t(1)
%$ t(2) = dyn_assert(ts2.vobs,2);
%$ t(3) = dyn_assert(ts2.nobs,3);
%$ t(4) = dyn_assert(ts2.data,bsxfun(@power,ts1.data,transpose(1:3)),1e-15);
%$ t(5) = dyn_assert(ts2.name,{'MyVar1';'MyVar2'});
%$ t(6) = dyn_assert(ts2.tex,{'MyVar1';'MyVar2'});
%$ end
%$ T = all(t);
%@eof:3