Changeset 27725 for other-projects/nightly-tasks/diffcol/trunk/diffcol/diffcol.pl

Timestamp:

2013-06-28T17:40:20+12:00 (11 years ago)

Author:

ak19

Message:

Images can be different in size when generated by imagemagick on win/darwin/linux. For now we ignore images when diffing, later we will have a separate ImageDiff.pm perl module as we have gdbdiff.pm at the moment

File:

• other-projects/nightly-tasks/diffcol/trunk/diffcol/diffcol.pl (modified) (4 diffs)

other-projects/nightly-tasks/diffcol/trunk/diffcol/diffcol.pl

@@ -591 +591 @@
                 my $strNewTest = &FileUtils::filenameConcatenate($strTest,$strEachFile);
                 # now additionally ignoring the earliestDatestamp file and the index/idx/*.idh binary file when diffing file 
-                if(!($strEachFile eq "log" || $strEachFile eq "earliestDatestamp" || $strEachFile =~ m/\.cfg$/g || $strEachFile =~ m/\.((g|j|l|b)db|idh|i.*|wa|td|tsd|ti|t|tl|w)$/g)) #$strEachFile =~ m/\.invf\.state\.\d+/
+                if(!($strEachFile eq "log" || $strEachFile eq "earliestDatestamp" || $strEachFile =~ m/\.cfg$/g || $strEachFile =~ m/\.((g|j|l|b)db|idh|i.*|wa|td|tsd|ti|t|tl|w|jpe?g|gif|png)$/g))
                 {
                     push(@Errors,TestEach($strNewModel,$strNewTest,$intLevel));
@@ -611 +611 @@
                 my $strNewModel = &FileUtils::filenameConcatenate($strModel,$strEachFile);
                 my $strNewTest = &FileUtils::filenameConcatenate($strTest,$strEachFile);
-                if(!($strEachFile eq "log" || $strEachFile eq "earliestDatestamp" || $strEachFile =~ m/\.cfg$/g || $strEachFile =~ m/\.((g|j|l|b)db|idh|i.*|wa|td|tsd|ti|t|tl|w)$/g))
+                if(!($strEachFile eq "log" || $strEachFile eq "earliestDatestamp" || $strEachFile =~ m/\.cfg$/g || $strEachFile =~ m/\.((g|j|l|b)db|idh|i.*|wa|td|tsd|ti|t|tl|w|jpe?g|gif|png)$/g))
                 {
                     push(@Errors,TestEach($strNewModel,$strNewTest,$intLevel));
@@ -625 +625 @@
     else
     {
-        my $ignore_line_re = "<Metadata name=\"(lastmodified|lastmodifieddate|oailastmodified|oailastmodifieddate)\">.*</Metadata>\\s*\\n*";
+        my $ignore_line_re = "<Metadata name=\"(lastmodified|lastmodifieddate|oailastmodified|oailastmodifieddate|ImageSize)\">.*</Metadata>\\s*\\n*";
         my $strResult;
 
@@ -657 +657 @@
                 $$win_contents =~ s@\r\n@\n@mg; # #http://stackoverflow.com/questions/650743/in-perl-how-to-do-you-remove-m-from-a-file
                 
-                #FOR MAC: old macs use CR carriage return (see http://www.perlmonks.org/?node_id=745018), so replace with \n ?
+                #FOR MAC: old macs use CR carriage return (see http://www.perlmonks.org/?node_id=745018), so replace with \n?)
                 # $$win_contents =~ s@\r@\n@mg;
             }