diff --git a/src/read/load_csv_file_data.m b/src/read/load_csv_file_data.m index 654f67742918f2429fa9eb70345879d4e28f8d61..94df4207e15a8884e709625aee4e2a2f93f8201c 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