1 files changed, 36 insertions, 0 deletions
diff --git a/unittests/autotestscripts_graphics/rendering_regression_test.pl b/unittests/autotestscripts_graphics/rendering_regression_test.pl
new file mode 100644
index 0000000..a29bd57
--- /dev/null
+++ b/unittests/autotestscripts_graphics/rendering_regression_test.pl
@@ -0,0 +1,36 @@
+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;
+	}
+}