fix header display for diff report

master
Oz Linden 2013-08-29 09:56:44 -04:00
parent 1e8c5b7ebf
commit d5c9b7b8e5
1 changed files with 14 additions and 14 deletions

View File

@ -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
} }
} }