You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
887 B
36 lines
887 B
use Cwd; |
|
|
|
my $dir = getcwd; |
|
|
|
chdir "../../../game"; |
|
|
|
if( 1 ) |
|
{ |
|
system "rd /s /q ep2\\screenshots"; |
|
system "mkdir ep2\\screenshots"; |
|
@output = `hl2.exe -allowdebug -autoconfig -console -toconsole -dev -sw -width 1024 -game ep2 -testscript rendering_regression_test.vtest`; |
|
} |
|
|
|
$keydir = "\\\\fileserver\\user\\rendering_regression_test"; |
|
|
|
open TESTSCRIPT, "<ep2/testscripts/rendering_regression_test.vtest" || die; |
|
foreach $line (<TESTSCRIPT>) |
|
{ |
|
$line =~ s,//.*,,g; # remove comments |
|
if( $line =~ m/\s*screenshot\s+(.*)$/i ) |
|
{ |
|
push @screenshots, $1; |
|
} |
|
} |
|
close TESTSCRIPT; |
|
|
|
foreach $screenshot (@screenshots) |
|
{ |
|
$cmd = "tgamse $keydir\\$screenshot.tga ep2\\screenshots\\$screenshot.tga 0"; |
|
$output = `$cmd`; |
|
if( $output =~ m/FAIL/ ) |
|
{ |
|
$cmd = "tgadiff $keydir\\$screenshot.tga ep2\\screenshots\\$screenshot.tga ep2\\screenshots\\$screenshot" . "_diff.tga"; |
|
system $cmd; |
|
} |
|
}
|
|
|