unittests/autotestscripts/test_shader_crcs.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

use Cwd;

my $dir = getcwd;
 
chdir "../../materialsystem/stdshaders";
 
@output = `perl ..\\..\\devtools\\bin\\checkshaderchecksums.pl stdshader_dx9_20b.txt`;
foreach $_ (@output)
{
  $output.=$_ unless(/appchooser360/i);
}

@output = `perl ..\\..\\devtools\\bin\\checkshaderchecksums.pl stdshader_dx9_30.txt`;
foreach $_ (@output)
{
  $output.=$_ unless(/appchooser360/i);
}

my $errors;

foreach $_ (@output )
{
  $errors.=$_ unless (/appchooser360movie/);
}

chdir $dir;

print $errors;

if( length( $errors ) > 0 )
{
	print "writing errors.txt\n";
	open FP, ">errors.txt";
	print FP "$errors";
	close FP;
}