mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-11-22 10:00:33 +00:00
Cmake tests urls: Changed log-output for easier parsing
This commit is contained in:
parent
7abdcb613d
commit
fdd314e25e
@ -280,7 +280,7 @@ do {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
until ($p < 0);
|
until ($p < 0);
|
||||||
print SFO "Started to protocol remaining subprocess-logs\n";
|
print "Started to protocol remaining subprocess-logs\n";
|
||||||
|
|
||||||
for my $p (keys %wait) {
|
for my $p (keys %wait) {
|
||||||
if ($wait{$p} >= 0) {
|
if ($wait{$p} >= 0) {
|
||||||
@ -288,7 +288,7 @@ for my $p (keys %wait) {
|
|||||||
$wait{$p} = -1;
|
$wait{$p} = -1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
print SFO "Stopped to protocol remaining subprocess-logs\n";
|
print "Stopped to protocol remaining subprocess-logs\n";
|
||||||
unlink($countfile);
|
unlink($countfile);
|
||||||
|
|
||||||
if (%URLS) {
|
if (%URLS) {
|
||||||
@ -297,7 +297,7 @@ if (%URLS) {
|
|||||||
printNotUsedURLS("KnownInvalid", %extraURLS);
|
printNotUsedURLS("KnownInvalid", %extraURLS);
|
||||||
}
|
}
|
||||||
|
|
||||||
print "\n$errorcount URL-tests failed out of $URLScount\n\n";
|
print SFO "\n$errorcount URL-tests failed out of $URLScount\n\n";
|
||||||
if (defined($summaryFile)) {
|
if (defined($summaryFile)) {
|
||||||
close(SFO);
|
close(SFO);
|
||||||
}
|
}
|
||||||
@ -332,7 +332,7 @@ sub printNotUsedURLS($\%) {
|
|||||||
|
|
||||||
sub replaceSpecialChar($) {
|
sub replaceSpecialChar($) {
|
||||||
my ($l) = @_;
|
my ($l) = @_;
|
||||||
$l =~ s/\\SpecialChar(NoPassThru)?\s*(TeX|LaTeX|LyX)[\s]?/\2/;
|
$l =~ s/\\SpecialChar(NoPassThru)?\s*(TeX|LaTeX|LyX)[\s]?/$2/;
|
||||||
return ($l);
|
return ($l);
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -362,7 +362,7 @@ sub parse_file($) {
|
|||||||
my ($f) = @_;
|
my ($f) = @_;
|
||||||
my $status = "out"; # outside of URL/href
|
my $status = "out"; # outside of URL/href
|
||||||
|
|
||||||
return if ($f =~ /\/attic\//);
|
#return if ($f =~ /\/attic\//);
|
||||||
if (open(FI, $f)) {
|
if (open(FI, $f)) {
|
||||||
my $line = 0;
|
my $line = 0;
|
||||||
while (my $l = <FI>) {
|
while (my $l = <FI>) {
|
||||||
|
Loading…
Reference in New Issue
Block a user