From 31a4fef3dccbea2be18b1a6c2d1bae59a18528eb 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, 7 Oct 2015 11:49:47 +0200
Subject: [PATCH] Added unit test.

---
 src/read/load_csv_file_data.m | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/src/read/load_csv_file_data.m b/src/read/load_csv_file_data.m
index 654f677..94df420 100644
--- a/src/read/load_csv_file_data.m
+++ b/src/read/load_csv_file_data.m
@@ -1,4 +1,4 @@
-function [freq, init, data, varlist] = load_csv_file_data(file)
+function [freq, init, data, varlist] = load_csv_file_data(file) % --*-- Unitary tests --*--
 %function [freq, init, data, varlist] = load_csv_file_data(file)
 % Loads data in a csv file.
 %
@@ -191,3 +191,22 @@ if withtime
 end
 
 varlist = transpose(varlist);
+
+%@test:1
+%$ % Download csv file with data.
+%$ urlwrite('http://www.dynare.org/Datasets/data_ca1_csv.csv','data_ca1_csv.csv');
+%$
+%$ % Instantiate a dseries from the data in the csv file.
+%$ try
+%$   d = dseries('data_ca1_csv.csv')
+%$   t(1) = true;
+%$ catch
+%$   t(1) = false;
+%$ end
+%$
+%$ if t(1)
+%$   t(2) = dassert(d.name,{'y_obs'; 'pie_obs'; 'R_obs'; 'de'; 'dq'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:1
\ No newline at end of file
-- 
GitLab