Merge pull request #559 from Remi-Gau/not_batch_mat

[ENH] only save batches as .m files

Author: Remi-Gau

src/batches/saveMatlabBatch.m

@@ -1,6 +1,6 @@
 function saveMatlabBatch(matlabbatch, batchType, opt, subLabel) %#ok<INUSL>
   %
-  % Saves the matlabbatch job in a .mat and a .m file.
+  % Saves the matlabbatch job in a .m file.
   % Environment information are saved in a .json file.
   %
   %  % USAGE::
@@ -9,14 +9,17 @@ function saveMatlabBatch(matlabbatch, batchType, opt, subLabel) %#ok<INUSL>
   %
   % :param matlabbatch:
   % :type matlabbatch: structure
+  %
   % :param batchType:
   % :type batchType: string
+  %
   % :param opt: Options chosen for the analysis. See ``checkOptions()``.
   % :type opt: structure
+  %
   % :param subLabel:
   % :type subLabel: string
   %
-  % The .mat file can directly be loaded with the SPM batch or run directly
+  % The .m file can directly be loaded with the SPM batch or run directly
   % by SPM standalone or SPM docker.
   %
   % The .json file also contains heaps of info about the "environment" used
@@ -52,6 +55,8 @@ function saveMatlabBatch(matlabbatch, batchType, opt, subLabel) %#ok<INUSL>
 
   saveSpmScript(batchFileName);
 
+  delete(batchFileName);
+
   [OS, GeneratedBy] = getEnvInfo(opt);
   GeneratedBy(1).Description = batchType;
 

tests/tests_batches/test_saveMatlabBatch.m

@@ -21,7 +21,7 @@ function test_saveMatlabBatch_basic()
   expectedOutput = fullfile(pwd, ['sub-' subLabel], ...
                             ['batch_test_' datestr(now, 'yyyy-mm-ddTHH-MM') '.mat']);
 
-  assertEqual(exist(expectedOutput, 'file'), 2);
+  assertEqual(exist(expectedOutput, 'file'), 0);
   assertEqual(exist(spm_file(expectedOutput, 'ext', '.json'), 'file'), 2);
 
   expectedOutput = fullfile(pwd, ['sub-' subLabel], ...
@@ -47,7 +47,7 @@ function test_saveMatlabBatch_group()
 
   saveMatlabBatch(matlabbatch, 'groupTest', opt);
 
-  assertEqual(exist(expectedOutput, 'file'), 2);
+  assertEqual(exist(expectedOutput, 'file'), 0);
   assertEqual(exist(spm_file(strrep(expectedOutput, '-', '_'), 'ext', '.m'), 'file'), 2);
 
   cleanUp(fullfile(pwd, 'group'));