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