From 0108a94c4ec96de9ae59ccfc2fdab8186c2166e1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Adjemian=20=28Charybdis=29?=
 <stephane.adjemian@univ-lemans.fr>
Date: Mon, 17 Jun 2013 16:41:54 +0200
Subject: [PATCH] Added unitary test in @dynSeries/align method.

---
 matlab/@dynSeries/align.m | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

diff --git a/matlab/@dynSeries/align.m b/matlab/@dynSeries/align.m
index 2cc277d8f..524f59587 100644
--- a/matlab/@dynSeries/align.m
+++ b/matlab/@dynSeries/align.m
@@ -120,4 +120,36 @@ end
 %$   t(5) = dyn_assert(ts2.data,[B; NaN(4,2)], 1e-15);
 %$ end
 %$ T = all(t);
-%@eof:1
\ No newline at end of file
+%@eof:1
+
+%@test:2
+%$ % Define a datasets.
+%$ A = rand(8,3); B = rand(7,2);
+%$
+%$ % Define names
+%$ A_name = {'A1';'A2';'A3'};
+%$ B_name = {'B1';'B2'};
+%$
+%$ % Define initial dates
+%$ A_init = '1990Q1';
+%$ B_init = '1990Q1';
+%$
+%$ % Instantiate two dynSeries objects
+%$ ts1 = dynSeries(A,A_init,A_name);
+%$ ts2 = dynSeries(B,B_init,B_name);
+%$
+%$ try
+%$   [ts1, ts2] = align(ts1, ts2);
+%$   t(1) = 1;
+%$ catch
+%$   t(1) = 0;
+%$ end
+%$
+%$ if t(1)
+%$   t(2) = dyn_assert(ts1.nobs,ts2.nobs);
+%$   t(3) = dyn_assert(ts1.init==ts2.init,1);
+%$   t(4) = dyn_assert(ts1.data,A, 1e-15);
+%$   t(5) = dyn_assert(ts2.data,[B; NaN(1,2)], 1e-15);
+%$ end
+%$ T = all(t);
+%@eof:2
\ No newline at end of file