From 6db5ba51cb89dbd0306d4afb63e634e57c3251ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Adjemian=20=28Charybdis=29?=
 <stephane.adjemian@univ-lemans.fr>
Date: Wed, 3 Jul 2013 15:24:32 +0200
Subject: [PATCH] Added unitary tests.

---
 matlab/@dynSeries/subsasgn.m | 126 ++++++++++++++++++++++++++++++++++-
 1 file changed, 125 insertions(+), 1 deletion(-)

diff --git a/matlab/@dynSeries/subsasgn.m b/matlab/@dynSeries/subsasgn.m
index 5c1b9f9d7..b91ee5e77 100644
--- a/matlab/@dynSeries/subsasgn.m
+++ b/matlab/@dynSeries/subsasgn.m
@@ -567,4 +567,128 @@ end
 %$    t(7) = dyn_assert(ts1.data,[[A(1:2,1); B(3:7); A(8:end,1)], A(:,2:3)],1e-15);
 %$ end
 %$ T = all(t);
-%@eof:14
\ No newline at end of file
+%@eof:14
+
+%@test:15
+%$ % Define a datasets.
+%$ A = rand(40,3); B = rand(40,1);
+%$
+%$ % Instantiate two dynSeries object.
+%$ ts1 = dynSeries(A,'1950Q1',{'A1';'A2';'A3'},[]);
+%$ ts2 = dynSeries(B,'1950Q1',{'B1'},[]);
+%$
+%$ % modify first object.
+%$ try
+%$     d1 = dynDate('1950Q3');
+%$     d2 = dynDate('1951Q3');
+%$     rg = d1:d2;
+%$     ts1.A1(rg) = sqrt(pi);
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ % Instantiate a time series object.
+%$ if t(1)
+%$    t(2) = dyn_assert(ts1.vobs,3);
+%$    t(3) = dyn_assert(ts1.nobs,40);
+%$    t(4) = dyn_assert(ts1.name{2},'A2');
+%$    t(5) = dyn_assert(ts1.name{1},'A1');
+%$    t(6) = dyn_assert(ts1.name{3},'A3');
+%$    t(7) = dyn_assert(ts1.data,[[A(1:2,1); repmat(sqrt(pi),5,1); A(8:end,1)], A(:,2:3)],1e-15);
+%$ end
+%$ T = all(t);
+%@eof:15
+
+%@test:16
+%$ % Define a datasets.
+%$ A = rand(40,3); B = rand(40,1);
+%$
+%$ % Instantiate two dynSeries object.
+%$ ts1 = dynSeries(A,'1950Q1',{'A1';'A2';'A3'},[]);
+%$ ts2 = dynSeries(B,'1950Q1',{'B1'},[]);
+%$
+%$ % modify first object.
+%$ try
+%$     d1 = dynDate('1950Q3');
+%$     d2 = dynDate('1951Q3');
+%$     rg = d1:d2;
+%$     ts1{'A1','A2'}(rg) = sqrt(pi);
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ % Instantiate a time series object.
+%$ if t(1)
+%$    t(2) = dyn_assert(ts1.vobs,3);
+%$    t(3) = dyn_assert(ts1.nobs,40);
+%$    t(4) = dyn_assert(ts1.name{2},'A2');
+%$    t(5) = dyn_assert(ts1.name{1},'A1');
+%$    t(6) = dyn_assert(ts1.name{3},'A3');
+%$    t(7) = dyn_assert(ts1.data,[[A(1:2,1); repmat(sqrt(pi),5,1); A(8:end,1)], [A(1:2,2); repmat(sqrt(pi),5,1); A(8:end,2)], A(:,3)],1e-15);
+%$ end
+%$ T = all(t);
+%@eof:16
+
+%@test:17
+%$ % Define a datasets.
+%$ A = rand(40,3); B = rand(40,1);
+%$
+%$ % Instantiate two dynSeries object.
+%$ ts1 = dynSeries(A,'1950Q1',{'A1';'A2';'A3'},[]);
+%$ ts2 = dynSeries(B,'1950Q1',{'B1'},[]);
+%$
+%$ % modify first object.
+%$ try
+%$     d1 = dynDate('1950Q3');
+%$     d2 = dynDate('1951Q3');
+%$     rg = d1:d2;
+%$     ts1{'A1','A2'}(rg) = [sqrt(pi), pi];
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ % Instantiate a time series object.
+%$ if t(1)
+%$    t(2) = dyn_assert(ts1.vobs,3);
+%$    t(3) = dyn_assert(ts1.nobs,40);
+%$    t(4) = dyn_assert(ts1.name{2},'A2');
+%$    t(5) = dyn_assert(ts1.name{1},'A1');
+%$    t(6) = dyn_assert(ts1.name{3},'A3');
+%$    t(7) = dyn_assert(ts1.data,[[A(1:2,1); repmat(sqrt(pi),5,1); A(8:end,1)], [A(1:2,2); repmat(pi,5,1); A(8:end,2)], A(:,3)],1e-15);
+%$ end
+%$ T = all(t);
+%@eof:17
+
+%@test:18
+%$ % Define a datasets.
+%$ A = rand(40,3); B = rand(40,1);
+%$
+%$ % Instantiate two dynSeries object.
+%$ ts1 = dynSeries(A,'1950Q1',{'A1';'A2';'A3'},[]);
+%$ ts2 = dynSeries(B,'1950Q1',{'B1'},[]);
+%$
+%$ % modify first object.
+%$ try
+%$     d1 = dynDate('1950Q3');
+%$     d2 = dynDate('1951Q3');
+%$     rg = d1:d2;
+%$     ts1{'A1','A2'}(rg) = ones(5,1);
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ % Instantiate a time series object.
+%$ if t(1)
+%$    t(2) = dyn_assert(ts1.vobs,3);
+%$    t(3) = dyn_assert(ts1.nobs,40);
+%$    t(4) = dyn_assert(ts1.name{2},'A2');
+%$    t(5) = dyn_assert(ts1.name{1},'A1');
+%$    t(6) = dyn_assert(ts1.name{3},'A3');
+%$    t(7) = dyn_assert(ts1.data,[[A(1:2,1); ones(5,1); A(8:end,1)], [A(1:2,2); ones(5,1); A(8:end,2)], A(:,3)],1e-15);
+%$ end
+%$ T = all(t);
+%@eof:18
\ No newline at end of file