From 9c92b20f33aff49d8b0688050d035a67355afb8b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Adjemian=20=28Charybdis=29?=
<stephane.adjemian@univ-lemans.fr>
Date: Fri, 27 Jun 2014 22:36:10 +0200
Subject: [PATCH] Added unitary test.
---
matlab/utilities/dseries/from.m | 20 +++++++++++++++++---
1 file changed, 17 insertions(+), 3 deletions(-)
diff --git a/matlab/utilities/dseries/from.m b/matlab/utilities/dseries/from.m
index a78c953083..f46d1f0a47 100644
--- a/matlab/utilities/dseries/from.m
+++ b/matlab/utilities/dseries/from.m
@@ -1,4 +1,4 @@
-function from(varargin)
+function from(varargin) % --*-- Unitary tests --*--
% Copyright (C) 2014 Dynare Team
%
@@ -244,7 +244,7 @@ for i=1:number_of_variables
eval(sprintf('%s = var;',current_variable));
end
end
-variable_names
+
% Get the name of the assigned variable (with time index)
assignedvariablename = regexpi(EXPRESSION(1:equal_id-1), '\w*\(t\)|\w*\(t\-\d\)|\w*\(t\+\d\)|\w*\.\w*\(t\)|\w*\.\w*\(t\-\d\)|\w*\.\w*\(t\+\d\)','match');
if isempty(assignedvariablename)
@@ -421,4 +421,18 @@ function i = isassignedvariable(var,expr)
return
end
end
- i = 0;
\ No newline at end of file
+ i = 0;
+
+%@test:1
+%$ try
+%$ y = dseries(zeros(400,1),dates('1950Q1')) ;
+%$ v = dseries(randn(400,1),dates('1950Q1')) ;
+%$ u = dseries(randn(400,1),dates('1950Q1')) ;
+%$ from 1950Q2 to 2049Q4 do y(t) = (1+.01*u(t))*y(t-1) + v(t)
+%$ t(1) = 1;
+%$ catch
+%$ t(1) = 0;
+%$ end
+%$
+%$ T = all(t);
+%@eof:1
\ No newline at end of file
--
GitLab