# HG changeset patch # User Axel Jacobs # Date 1309205196 -3600 # Node ID e0b112e25bab39a9a3bc23bf0923ae486c88d558 # Parent 617fa1f9ccb3ebced3a08b7153504f5297367eef Removed excessive indentation in objpict_test. diff -r 617fa1f9ccb3 -r e0b112e25bab tests/objpict_test.pl --- a/tests/objpict_test.pl Mon Jun 27 21:06:02 2011 +0100 +++ b/tests/objpict_test.pl Mon Jun 27 21:06:36 2011 +0100 @@ -35,29 +35,29 @@ my $index = 0; my $opts; foreach $opts (@options) { - my $stdin = @$opts[0]; - my $args = @$opts[1]; - $total++; + my $stdin = @$opts[0]; + my $args = @$opts[1]; + $total++; - my $cshout = "$tmpdir/${script}_csh$index.hdr"; - my $cshcmd = "$script.csh $args > $cshout"; - print " $stdin $cshcmd\n"; - system "$stdin csh ../orig/$cshcmd"; + my $cshout = "$tmpdir/${script}_csh$index.hdr"; + my $cshcmd = "$script.csh $args > $cshout"; + print " $stdin $cshcmd\n"; + system "$stdin csh ../orig/$cshcmd"; - my $perlout = "$tmpdir/${script}_perl$index.hdr"; - my $perlcmd = "$script.pl $args > $perlout"; - print " $stdin $perlcmd\n"; - system "$stdin perl ../bin/$perlcmd"; + my $perlout = "$tmpdir/${script}_perl$index.hdr"; + my $perlcmd = "$script.pl $args > $perlout"; + print " $stdin $perlcmd\n"; + system "$stdin perl ../bin/$perlcmd"; - my $diffimg = "$tmpdir/${script}_diff$index.hdr"; - my $uval = &compare_images("$cshout", "$perlout", "$diffimg"); - if( $uval > 0 ) { - print " Error: Diff image $diffimg contains $uval unique values (should be one).\n"; - system "ximage $diffimg"; - $fail++; - } else { - print " Ok: Images $cshout and $perlout are identical.\n"; - } + my $diffimg = "$tmpdir/${script}_diff$index.hdr"; + my $uval = &compare_images("$cshout", "$perlout", "$diffimg"); + if( $uval > 0 ) { + print " Error: Diff image $diffimg contains $uval unique values (should be one).\n"; + system "ximage $diffimg"; + $fail++; + } else { + print " Ok: Images $cshout and $perlout are identical.\n"; + } } print "$fail of $total tests failed.\n";