use strict;
use warnings;

use Test::More tests => 8;

BEGIN { use_ok('XUL::Image::PPT'); }

my $conv = XUL::Image::PPT->new;
ok $conv;
isa_ok $conv, 'XUL::Image::PPT';

is $conv->from, 1, 'from defaults to 1';
is $conv->indir, 'xul_img', 'indir defaults to xul_img';

$conv->from(3);
is $conv->from, 3, 'from changed';

$conv->indir('tmp');
is $conv->indir, 'tmp', 'indir changed';

can_ok($conv, 'go');