Adapted unitary test for octave.
parent
67d71a628b
commit
59f1967347
|
@ -30,7 +30,7 @@ end
|
||||||
switch format
|
switch format
|
||||||
case 'm'
|
case 'm'
|
||||||
if exist([basename, '.m'],'file')
|
if exist([basename, '.m'],'file')
|
||||||
copyfile([basename, '.m'],[basename, '.old.m'])
|
copyfile([basename, '.m'],[basename, '.old.m']);
|
||||||
end
|
end
|
||||||
fid = fopen([basename, '.m'],'w');
|
fid = fopen([basename, '.m'],'w');
|
||||||
fprintf(fid,'%% File created on %s.\n',datestr(now));
|
fprintf(fid,'%% File created on %s.\n',datestr(now));
|
||||||
|
@ -71,12 +71,12 @@ switch format
|
||||||
end
|
end
|
||||||
eval(str);
|
eval(str);
|
||||||
if exist([basename, '.mat'],'file')
|
if exist([basename, '.mat'],'file')
|
||||||
copyfile([basename, '.mat'],[basename, '.old.mat'])
|
copyfile([basename, '.mat'],[basename, '.old.mat']);
|
||||||
end
|
end
|
||||||
save([basename '.mat'],'INIT__','FREQ__','NAMES__','TEX__',A.name{:});
|
save([basename '.mat'],'INIT__','FREQ__','NAMES__','TEX__',A.name{:});
|
||||||
case 'csv'
|
case 'csv'
|
||||||
if exist([basename, '.csv'],'file')
|
if exist([basename, '.csv'],'file')
|
||||||
copyfile([basename, '.csv'],[basename, '.old.csv'])
|
copyfile([basename, '.csv'],[basename, '.old.csv']);
|
||||||
end
|
end
|
||||||
fid = fopen([basename, '.csv'],'w');
|
fid = fopen([basename, '.csv'],'w');
|
||||||
fprintf(fid,',%s', A.name{:});
|
fprintf(fid,',%s', A.name{:});
|
||||||
|
@ -155,7 +155,11 @@ end
|
||||||
%$ % Instantiate a time series object.
|
%$ % Instantiate a time series object.
|
||||||
%$ try
|
%$ try
|
||||||
%$ ts1 = dseries(A,[],A_name,[]);
|
%$ ts1 = dseries(A,[],A_name,[]);
|
||||||
|
%$ if isoctave
|
||||||
|
%$ ts1.save('A');
|
||||||
|
%$ else
|
||||||
%$ ts1.save;
|
%$ ts1.save;
|
||||||
|
%$ end
|
||||||
%$ t = 1;
|
%$ t = 1;
|
||||||
%$ catch
|
%$ catch
|
||||||
%$ t = 0;
|
%$ t = 0;
|
||||||
|
|
Loading…
Reference in New Issue