#!/usr/bin/perl

# falsecolor_test.pl

# This file is part of the testsuite of the Radiance csh2perl project.

# You may copy and modify this file as basis for other tests.

#

# (c) Axel Jacobs, 26 June 2011

use strict;

use warnings;

my $script = "falsecolor";

my $csh = "../orig/$script.csh";

my $perl = "../bin/$script.perl";

print "script: $script\n";

use File::Temp qw/ tempdir /;

my $tmpdir = tempdir( CLEANUP => 0 );

my $img = "data/images/street-rgbe_rle_400x400.hdr";

# Options are arrays of [STDIN, command-line options].

# Please include the pipe symbol as part of STDIN.

# Put a leading space in front of STDIN to line up the output.

my @options = (

		["", "-ip $img"],

		["", "-ip $img -l cd/m2"],   # Label now defaults to cd/m2, not nits.

		["", "-i $img -p $img -l cd/m2"],

		["", "-ip $img -cl -l cd/m2"],

		["", "-ip $img -n 10 -l cd/m2"],

		["", "-ip $img -s 2000 -l cd/m2"],

		[" cat $img |", "-ip - -s 2000 -l cd/m2"],   # take image from STDIN.

		["", "-ip $img -lw 200 -lh 300 -l cd/m2"],   # scale is slightly higher now.

);

# Run old CSH and new Perl script with different options,

# compare the resulting images.

my $total = 0;

my $fail = 0;

my $index = 0;

my $opts;

foreach $opts (@options) {

	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 $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";

	}

}

print "$fail of $total tests failed.\n";

print "temp dir $tmpdir not removed. Please remove manually.\n";

sub compare_images() {

	my $in1 = shift;

	my $in2 = shift;

	my $out = shift;

	my $cmd = "pcomb $in1 -s -1 $in2 > $out";

	print "    $cmd\n";

	system "$cmd";

	my $unique = `pvalue -h -H -d -u $out`;

	my $unique_cnt = scalar( split( '\n', $unique ) );

	return $unique_cnt;

}

#EOF