Onx

src/@dseries/dseries.m

@@ -216,12 +216,8 @@ end % classdef
 %$ t = zeros(8, 1);
 %$
 %$ try
-%$     [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data.m','dynseries_test_data.m');
-%$     if ~status
-%$         error()
-%$     end
-%$     ts = dseries('dynseries_test_data.m');
-%$     delete('dynseries_test_data.m');
+%$     dseries_src_root = strrep(which('initialize_dseries_class'),'initialize_dseries_class.m','');
+%$     ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data.m' ]);
 %$     t(1) = 1;
 %$ catch
 %$     t = 0;
@@ -244,12 +240,8 @@ end % classdef
 %$ t = zeros(8, 1);
 %$
 %$ try
-%$     [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data.mat','dynseries_test_data.mat');
-%$     if ~status
-%$         error()
-%$     end
-%$     ts = dseries('dynseries_test_data.mat');
-%$     delete('dynseries_test_data.mat');
+%$     dseries_src_root = strrep(which('initialize_dseries_class'),'initialize_dseries_class.m','');
+%$     ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data.mat' ]);
 %$     t(1) = 1;
 %$ catch
 %$     t = 0;
@@ -272,12 +264,8 @@ end % classdef
 %$ t = zeros(10, 1);
 %$
 %$ try
-%$     [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data.csv','dynseries_test_data.csv');
-%$     if ~status
-%$         error()
-%$     end
-%$     ts = dseries('dynseries_test_data.csv');
-%$     delete('dynseries_test_data.csv');
+%$     dseries_src_root = strrep(which('initialize_dseries_class'),'initialize_dseries_class.m','');
+%$     ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data.csv' ]);
 %$     t(1) = 1;
 %$ catch
 %$     t = 0;
@@ -375,20 +363,11 @@ end % classdef
 
 %@test:9
 %$ try
+%$     dseries_src_root = strrep(which('initialize_dseries_class'),'initialize_dseries_class.m','');
 %$     if isoctave()
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-1.xlsx','dynseries_test_data-1.xlsx');
-%$     else
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-1.xls','dynseries_test_data-1.xls');
-%$     end
-%$     if ~status
-%$         error()
-%$     end
-%$     if isoctave()
-%$         ts = dseries('dynseries_test_data-1.xlsx');
-%$         delete('dynseries_test_data-1.xlsx');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-1.xlsx' ]);
 %$     else
-%$         ts = dseries('dynseries_test_data-1.xls');
-%$         delete('dynseries_test_data-1.xls');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-1.xls' ]);
 %$     end
 %$     t(1) = 1;
 %$ catch
@@ -412,20 +391,11 @@ end % classdef
 
 %@test:10
 %$ try
+%$     dseries_src_root = strrep(which('initialize_dseries_class'),'initialize_dseries_class.m','');
 %$     if isoctave()
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-2.xlsx','dynseries_test_data-2.xlsx');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-2.xlsx' ]);
 %$     else
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-2.xls','dynseries_test_data-2.xls');
-%$     end
-%$     if ~status
-%$         error()
-%$     end
-%$     if isoctave()
-%$         ts = dseries('dynseries_test_data-2.xlsx');
-%$         delete('dynseries_test_data-2.xlsx');
-%$     else
-%$         ts = dseries('dynseries_test_data-2.xls');
-%$         delete('dynseries_test_data-2.xls');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-2.xls' ]);
 %$     end
 %$     t(1) = 1;
 %$ catch
@@ -449,20 +419,11 @@ end % classdef
 
 %@test:11
 %$ try
+%$     dseries_src_root = strrep(which('initialize_dseries_class'),'initialize_dseries_class.m','');
 %$     if isoctave()
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-3.xlsx','dynseries_test_data-3.xlsx');
-%$     else
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-3.xls','dynseries_test_data-3.xls');
-%$     end
-%$     if ~status
-%$         error()
-%$     end
-%$     if isoctave()
-%$         ts = dseries('dynseries_test_data-3.xlsx');
-%$         delete('dynseries_test_data-3.xlsx');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-3.xlsx' ]);
 %$     else
-%$         ts = dseries('dynseries_test_data-3.xls');
-%$         delete('dynseries_test_data-3.xls');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-3.xls' ]);
 %$     end
 %$     t(1) = 1;
 %$ catch
@@ -486,20 +447,11 @@ end % classdef
 
 %@test:12
 %$ try
+%$     dseries_src_root = strrep(which('initialize_dseries_class'),'initialize_dseries_class.m','');
 %$     if isoctave()
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-4.xlsx','dynseries_test_data-4.xlsx');
-%$     else
-%$         [strfile, status] = urlwrite('https://www.dynare.org/Datasets/dseries/dynseries_test_data-4.xls','dynseries_test_data-4.xls');
-%$     end
-%$     if ~status
-%$         error()
-%$     end
-%$     if isoctave()
-%$         ts = dseries('dynseries_test_data-4.xlsx');
-%$         delete('dynseries_test_data-4.xlsx');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-4.xlsx' ]);
 %$     else
-%$         ts = dseries('dynseries_test_data-4.xls');
-%$         delete('dynseries_test_data-4.xls');
+%$         ts = dseries([ dseries_src_root '../tests/data/dynseries_test_data-4.xls' ]);
 %$     end
 %$     t(1) = 1;
 %$ catch

tests/data/dynseries_test_data.csv

+,azert,yuiop,qsdfg,jklm
+1990Q1,NaN,456,678,NaN
+1990Q2,NaN,458,125,NaN
+1990Q3,983,395,109,456
+1990Q4,768,377,980,NaN

tests/data/dynseries_test_data.m

+FREQ__ = 4;
+INIT__ = '1994Q3';
+NAMES__ = {'azert';'yuiop'};
+TEX__ = {'azert';'yuiop'};
+
+azert = randn(100,1);
+yuiop = randn(100,1);
\ No newline at end of file