ctests: invert 'wontfix' failing lyx2lyx tests

[lyx.git] / development / autotests / filterXml4Sax.pl

diff --git a/development/autotests/filterXml4Sax.pl b/development/autotests/filterXml4Sax.pl
index 7004b3315f9bb32a2d53e518de4592a631a27a8d..981def9a1ebed77bbbc390fd9b9a09c0db67fb52 100644 (file)
--- a/development/autotests/filterXml4Sax.pl
+++ b/development/autotests/filterXml4Sax.pl
@@ -29,8 +29,7 @@ else {
   $err = 1;
   @errors = ("Could not run xmllint\n");
 }
-#unlink($filename);
-print "Not unlinking $filename\n";
+unlink($filename);
 if ($err > 0) {
   die(join('', @errors));
 }
@@ -70,17 +69,19 @@ sub handlePara($)
   if ($para =~ /^\s*([a-z]+(:[a-z]+)?)\s*=\s*(.*)$/) {
     my $val;
     my ($p, $rest) = ($1, $3);
-    if ($rest =~ /^(\'[^\']*\')(.*)$/) {
+    if ($rest =~ /^(\'([^\']|\\\')*\')(.*)$/) {
       $val = $1;
-      $rest = $2;
+      $rest = $3;
     }
-    elsif ($rest =~ /^(\"[^\"]*\")(.*)$/) {
+    elsif ($rest =~ /^(\"([^\"]|\\\")*\")(.*)$/) {
       $val = $1;
-      $rest = $2;
+      $rest = $3;
     }
     elsif ($rest =~ /^([^\s]+)(.*)$/) {
-      $val = '"' . $1 . '"';
+      my $val1 = $1;
       $rest = $2;
+      $val1 =~ s/([\"\'\\])/\\$1/g;
+      $val = '"' . $val1 . '"';
     }
     else {
       die("param error for rest = $rest");