Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

Diff of /tests/panoAutomatePSDtest.pl [000000] .. [0c73d8] Maximize Restore

  Switch to unified view

a b/tests/panoAutomatePSDtest.pl
1
#!/usr/bin/perl
2
3
use strict;
4
use Getopt::Long;
5
6
my $createReference = 0;
7
my $verbose = 0;
8
GetOptions( '-c'     => \$createReference,
9
            '--verbose' => \$verbose,
10
    );
11
12
die "Too fee parameters" unless scalar(@ARGV) >= 2;
13
14
my $output = shift @ARGV;
15
16
# the rest of @ARGV is a list of files to use to create the PDD
17
my $tiff2psd = '../../tools/PTtiff2psd';
18
19
system ($tiff2psd, '-o', "$output" , @ARGV) == 0
20
    or die "executing of $tiff2psd failed: $?";
21
22
if ($createReference) {
23
    `mv -f $output reference/`;
24
} else {
25
    mkdir('tests');
26
    `mv -f $output tests/`;
27
    
28
    my $diff = `diff 'reference/$output' 'tests/$output' 2>&1`;
29
    print $diff;
30
    exit ($diff ne "");
31
}