[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    KDE/kdepimlibs/kcal/tests
From:       Allen Winter <winter () kde ! org>
Date:       2009-05-31 14:00:00
Message-ID: 1243778400.729311.15718.nullmailer () svn ! kde ! org
[Download RAW message or body]

SVN commit 975934 by winterz:

ignore PRODID lines when comparing against the reference data.


 M  +4 -5      runsingletestcase.pl  


--- trunk/KDE/kdepimlibs/kcal/tests/runsingletestcase.pl #975933:975934
@@ -66,7 +66,7 @@
   my $file = shift;
   my $outfile = shift;
 
-  $cmd = 'diff -u -w -B -I "^DTSTAMP:[0-9ZT]*" -I "^LAST-MODIFIED:[0-9ZT]*" -I \
"^CREATED:[0-9ZT]*" '."$file.$id.ref $outfile"; +  $cmd = 'diff -u -w -B -I \
"^DTSTAMP:[0-9ZT]*" -I "^LAST-MODIFIED:[0-9ZT]*" -I "^CREATED:[0-9ZT]*" -I \
"^PRODID:.*" '."$file.$id.ref $outfile";  if ( !open( DIFF, "$cmd|" ) ) {
     print STDERR "Unable to run diff command on the files $file.$id.ref and \
$outfile\n";  exit 1;
@@ -76,7 +76,7 @@
   $errorstr = "";
   while ( <DIFF> ) {
     $line = $_;
-    next if ($line =~ m/^[+-](DTSTAMP|LAST-MODIFIED|CREATED)/);
+    next if ($line =~ m/^[+-](DTSTAMP|LAST-MODIFIED|CREATED|PRODID)/);
     next if ($line =~ m/^[+-]\s*$/);
     next if ($line =~ m/No newline at end of file/);
     next if ($outfile =~ m+/Compat/+ && $line =~ \
m/^[+-](SEQUENCE|PRIORITY|ORGANIZER:MAILTO):/); @@ -92,8 +92,7 @@
     print "Checking '$outfile':\n";
     print $errorstr;
     print "Encountered $errors errors\n";
-    
-    
+
     if ( !open( ERRLOG, ">>FAILED.log" ) ) {
       print "Unable to open FAILED.log";
     };
@@ -101,7 +100,7 @@
     print ERRLOG "Checking '$outfile':\n";
     print ERRLOG "Command: $testcmd\n";
     print ERRLOG $errorstr;
-    
+
     if ( -e "$file.$id.fixme" ) {
       if ( !open( FIXME, "$file.$id.fixme" ) ) {
         print STDERR "Unable to open $file.fixme\n";


[prev in list] [next in list] [prev in thread] [next in thread]