# HG changeset patch
# User Axel Jacobs <axel@jaloxa.eu>
# Date 1309203550 -3600
# Node ID a29baf51b98051cd8580abd0e2863ebbe95333bf
# Parent  fd9e518890bcca200fdbd6e89ccb9a6c2c6ef35a
Bug fixes in falsecolor_test.

diff -r fd9e518890bc -r a29baf51b980 tests/falsecolor_test.pl
--- a/tests/falsecolor_test.pl	Mon Jun 27 20:37:51 2011 +0100
+++ b/tests/falsecolor_test.pl	Mon Jun 27 20:39:10 2011 +0100
@@ -10,8 +10,8 @@
 use warnings;
 
 my $script = "falsecolor";
-my $csh = "../orig/falsecolor.csh";
-my $perl = "../bin/falsecolor.perl";
+my $csh = "../orig/$script.csh";
+my $perl = "../bin/$script.perl";
 print "script: $script\n";
 
 use File::Temp qw/ tempdir /;
@@ -59,9 +59,9 @@
 		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";
-			$fail++;
 		}
 }