fix header display for diff report
parent
1e8c5b7ebf
commit
d5c9b7b8e5
|
|
@ -195,30 +195,27 @@ GPU String
|
||||||
------------------------------------------------------------------------------------------------------ ----------- ----- ----- ------ ------------------------------------
|
------------------------------------------------------------------------------------------------------ ----------- ----- ----- ------ ------------------------------------
|
||||||
.
|
.
|
||||||
format STDOUT =
|
format STDOUT =
|
||||||
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<... @<<<<<<<<<< @> @> @<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<...
|
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @> @> @<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<...
|
||||||
$_, $Supported{$RecognizedBy{$_}},$Class{$RecognizedBy{$_}},$StatsBased{$RecognizedBy{$_}},$ExpectedOpenGL{$RecognizedBy{$_}},$Name{$RecognizedBy{$_}}
|
$_, $Supported{$RecognizedBy{$_}},$Class{$RecognizedBy{$_}},$StatsBased{$RecognizedBy{$_}},$ExpectedOpenGL{$RecognizedBy{$_}},$Name{$RecognizedBy{$_}}
|
||||||
.
|
.
|
||||||
|
|
||||||
my $ReportLineTemplate = "A102xxxA12xxxA2xxxxA2xxxxA5A*"; # MUST match the format STDOUT above
|
my $ReportLineTemplate = "A102xxxA12xxxA2xxxxA2xxxxA5A*"; # Used to read a previous report - MUST match the format STDOUT above
|
||||||
|
|
||||||
|
my ( $oldSupported, $oldClass, $newSupported, $newClass );
|
||||||
|
|
||||||
format DIFF_TOP =
|
format DIFF_TOP =
|
||||||
------------- OLD ------------- ----------- NEW --------------------
|
------------- OLD ------------- ----------- NEW --------------------
|
||||||
GPU String Supported? Class Stats OpenGL Supported? Class Stats OpenGL Line
|
GPU String Supported? Class Stats OpenGL Supported? Class Stats OpenGL Line
|
||||||
------------------------------------------------------------------------------------------------------ ----------- ----- ----- ------ ----------- ----- ----- ------ -----
|
------------------------------------------------------------------------------------------------------ ----------- ----- ----- ------ ----------- ----- ----- ------ -----
|
||||||
.
|
.
|
||||||
|
|
||||||
my ( $oldSupported, $oldClass, $newSupported, $newClass );
|
|
||||||
|
|
||||||
format DIFF =
|
format DIFF =
|
||||||
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<... @<<<<<<<<<< @> @> @<<<< @<<<<<<<<<< @> @> @<<<< @>>>>
|
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @> @> @<<<< @<<<<<<<<<< @> @> @<<<< @>>>>
|
||||||
$_, $oldSupported, $oldClass, $oldStatsBased, $oldExpectedOpenGL, $newSupported, $newClass, $newStatsBased, $newExpectedOpenGL, $newRecognizedLine
|
$_, $oldSupported, $oldClass, $oldStatsBased, $oldExpectedOpenGL, $newSupported, $newClass, $newStatsBased, $newExpectedOpenGL, $newRecognizedLine
|
||||||
.
|
.
|
||||||
|
|
||||||
if ( ! $Diff )
|
if ( ! $Diff )
|
||||||
{
|
{
|
||||||
## Print results.
|
## Print results of testing each input line and how it was recognized.
|
||||||
## For each input, show supported or unsupported, the class, and the recognizer name
|
|
||||||
|
|
||||||
foreach ( sort keys %RecognizedBy )
|
foreach ( sort keys %RecognizedBy )
|
||||||
{
|
{
|
||||||
write if ! $UnMatchedOnly || $Name{$RecognizedBy{$_}} eq $NoMatch;
|
write if ! $UnMatchedOnly || $Name{$RecognizedBy{$_}} eq $NoMatch;
|
||||||
|
|
@ -227,6 +224,7 @@ if ( ! $Diff )
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
## Print a comparison of how the recognition this time compared to the results from the $Diff file
|
||||||
open OLD, "<$Diff"
|
open OLD, "<$Diff"
|
||||||
|| die "Failed to open --diff file '$Diff'\n\t$!\n";
|
|| die "Failed to open --diff file '$Diff'\n\t$!\n";
|
||||||
my $discard = 2;
|
my $discard = 2;
|
||||||
|
|
@ -248,8 +246,8 @@ else
|
||||||
}
|
}
|
||||||
close OLD;
|
close OLD;
|
||||||
|
|
||||||
$FORMAT_TOP_NAME = DIFF_TOP;
|
$FORMAT_TOP_NAME = 'DIFF_TOP';
|
||||||
$FORMAT_NAME = DIFF;
|
$FORMAT_NAME = 'DIFF';
|
||||||
foreach ( sort keys %RecognizedBy )
|
foreach ( sort keys %RecognizedBy )
|
||||||
{
|
{
|
||||||
$newSupported = $Supported{$RecognizedBy{$_}} || $NoMatch;
|
$newSupported = $Supported{$RecognizedBy{$_}} || $NoMatch;
|
||||||
|
|
@ -265,6 +263,7 @@ else
|
||||||
$oldStatsBased = '-';
|
$oldStatsBased = '-';
|
||||||
$oldExpectedOpenGL = '-';
|
$oldExpectedOpenGL = '-';
|
||||||
write;
|
write;
|
||||||
|
$-++; # suppresses pagination
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -280,9 +279,10 @@ else
|
||||||
)
|
)
|
||||||
{
|
{
|
||||||
write;
|
write;
|
||||||
|
$-++; # suppresses pagination
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$-++; # suppresses pagination
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue