# HG changeset patch # User Axel Jacobs # Date 1309205162 -3600 # Node ID 617fa1f9ccb3ebced3a08b7153504f5297367eef # Parent 3ea159f28920faaf92c9b3f55df584cdea99286c Removed excessive indentation in falsecolor_test. diff -r 3ea159f28920 -r 617fa1f9ccb3 tests/falsecolor_test.pl --- a/tests/falsecolor_test.pl Mon Jun 27 21:04:54 2011 +0100 +++ b/tests/falsecolor_test.pl Mon Jun 27 21:06:02 2011 +0100 @@ -40,29 +40,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";