X-Git-Url: https://git.lyx.org/gitweb/?a=blobdiff_plain;f=development%2Fautotests%2FexamineXmllintOutput.pl;h=5c7943134026b5e4cab8c4f7f4494713a31d0d95;hb=0a040d18ad5bc065fba5b9e834d90d72cac332fb;hp=36007e246295142167000e3e31a29999b823e3d3;hpb=30ef73ab662a90c39f17cf0b08db9dc33ee2679a;p=lyx.git

diff --git a/development/autotests/examineXmllintOutput.pl b/development/autotests/examineXmllintOutput.pl
index 36007e2462..5c79431340 100755
--- a/development/autotests/examineXmllintOutput.pl
+++ b/development/autotests/examineXmllintOutput.pl
@@ -12,6 +12,7 @@ my %errors = ();
 
 if (open(FI, $file)) {
   my $line = 0;
+  my %entities = ();
   my $saxchartoprint = 0;
   while(my $l = <FI>) {
     $line++;
@@ -66,6 +67,21 @@ if (open(FI, $file)) {
 	$saxchartoprint = 3;
       }
     }
+    elsif ($l =~ /: parser error :\s+(.*)$/) {
+      my $err = $1;
+      $errors{$err} = $errmsg;
+      if ($errmsg =~ /Entity\s+'([a-zA-Z0-9]+)'\s+not defined/) {
+	my $entity = $1;
+	if (! defined($entities{$entity})) {
+	  $entities{$entity} = 1;
+	  print "$errmsg\n";
+	}
+      }
+      else {
+	print "$l\n";
+	die("Unknown error $l");
+      }
+    }
     elsif ($saxchartoprint > 0) {
       $saxchartoprint--;
       if ($l =~ /^SAX.characters\(([^\)]+)\)/) {
@@ -74,4 +90,7 @@ if (open(FI, $file)) {
     }
   }
 }
+if (keys %errors) {
+  exit(1);
+}
 exit(0);