#!/usr/bin/perl
#Editor vim:syn=perl
use strict;
use warnings;
use Test::More 'no_plan';
use lib 'lib';
use File::Temp qw/ tempdir /;
use File::Spec;
my $tempdir = tempdir (CLEANUP => 1);
use_ok ('Panotools::Script');
my $p = new Panotools::Script;
$p->Read ('t/data/cemetery/hugin-stitch.txt');
{
my $tempfile = File::Spec->catfile ($tempdir, '010.txt');
ok ($p->Write ($tempfile), "script written to $tempfile");
}
# set Gamma correction to 2.2
$p->Mode->{g} = '2.2';
# set projection to Mercator
$p->Panorama->{f} = '5';
{
my $tempfile = File::Spec->catfile ($tempdir, '010-mercator.txt');
ok ($p->Write ($tempfile), "script written to $tempfile");
}