Commit 59f19673 authored by Stéphane Adjemian's avatar Stéphane Adjemian
Browse files

Adapted unitary test for octave.

parent 67d71a62
......@@ -30,7 +30,7 @@ end
switch format
case 'm'
if exist([basename, '.m'],'file')
copyfile([basename, '.m'],[basename, '.old.m'])
copyfile([basename, '.m'],[basename, '.old.m']);
end
fid = fopen([basename, '.m'],'w');
fprintf(fid,'%% File created on %s.\n',datestr(now));
......@@ -71,12 +71,12 @@ switch format
end
eval(str);
if exist([basename, '.mat'],'file')
copyfile([basename, '.mat'],[basename, '.old.mat'])
copyfile([basename, '.mat'],[basename, '.old.mat']);
end
save([basename '.mat'],'INIT__','FREQ__','NAMES__','TEX__',A.name{:});
case 'csv'
if exist([basename, '.csv'],'file')
copyfile([basename, '.csv'],[basename, '.old.csv'])
copyfile([basename, '.csv'],[basename, '.old.csv']);
end
fid = fopen([basename, '.csv'],'w');
fprintf(fid,',%s', A.name{:});
......@@ -155,7 +155,11 @@ end
%$ % Instantiate a time series object.
%$ try
%$ ts1 = dseries(A,[],A_name,[]);
%$ ts1.save;
%$ if isoctave
%$ ts1.save('A');
%$ else
%$ ts1.save;
%$ end
%$ t = 1;
%$ catch
%$ t = 0;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment