Changeset 15719

Timestamp:

08/06/13 10:07:11 (12 years ago)

Author:

Mathieu Morlighem

Message:

NEW: added valgrind procedure, to automatically check for memory leaks

File:

• issm/trunk-jpl/test/NightlyRun/runme.m (modified) (3 diffs)

issm/trunk-jpl/test/NightlyRun/runme.m

@@ -21 +21 @@
 %                      'gia'   : validation of gia tests
 %                      ...
-%      'procedure'     'check' : run the test (default)
-%                      'update': update the archive
+%      'procedure'     'check' :   run the test (default)
+%                      'update':   update the archive
+%                      'valgrind': check for memory leaks (default value of md.debug.valgrind needs to be changed manually)
 %
 %   Usage:
@@ -56 +57 @@
 %GET procedure {{{
 procedure=getfieldvalue(options,'procedure','check');
-if ~ismember(procedure,{'check','update'})
+if ~ismember(procedure,{'check','update','valgrind'})
         disp('runme warning: procedure not supported, defaulting to test ''check''')
         procedure='check';
@@ -148 +149 @@
                         disp(sprintf(['File ./../Archives/' archive_name '.nc saved\n']));
 
+                %CHECK for memory leaks?
+                elseif strcmpi(procedure,'valgrind'),
+                        fields = fieldnames(md.results);
+                        for i=1:numel(fields)
+                                if ~isfield(md.results.(fields{i}),'errlog'),
+                                        disp(['Skipping ' fields{i}]);
+                                        continue;
+                                else
+                                        disp(['Extracting results of ' fields{i}]);
+                                end
+                                errlog = cellstr(md.results.(fields{i}).errlog);
+                                lines  = strfind(errlog,'definitely lost:');
+                                lines  = find(~cellfun(@isempty,lines));
+                                total  = 0;
+                                for j=1:numel(lines)
+                                        Line    = errlog(lines(j));
+                                        Numbers = sscanf(Line{1},'==%i==   definitely lost: %s bytes in %i blocks',[1 Inf]);
+                                        total   = total+ str2num(strrep(char(Numbers(2:end-1)),',',''));
+                                end
+                                if total==0,
+                                        disp(sprintf(['SUCCESS difference: 0 < 0 test id: %i test name: %s field: valgrind'],id,id_string));
+                                else
+                                        disp(sprintf(['ERROR   difference: %i > 0 test id: %i test name: %s field: valgrind'],total,id,id_string));
+                                        disp('STOP');
+                                        return;
+                                end
+                        end
+
                 %ELSE: CHECK TEST
                 else,