[0c73d8]: tests / panoAutomatePSDtest.pl  Maximize  Restore  History

Download this file

32 lines (23 with data), 688 Bytes

 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
#!/usr/bin/perl
use strict;
use Getopt::Long;
my $createReference = 0;
my $verbose = 0;
GetOptions( '-c' => \$createReference,
'--verbose' => \$verbose,
);
die "Too fee parameters" unless scalar(@ARGV) >= 2;
my $output = shift @ARGV;
# the rest of @ARGV is a list of files to use to create the PDD
my $tiff2psd = '../../tools/PTtiff2psd';
system ($tiff2psd, '-o', "$output" , @ARGV) == 0
or die "executing of $tiff2psd failed: $?";
if ($createReference) {
`mv -f $output reference/`;
} else {
mkdir('tests');
`mv -f $output tests/`;
my $diff = `diff 'reference/$output' 'tests/$output' 2>&1`;
print $diff;
exit ($diff ne "");
}

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks