#demo.pl
#2006-09-30 2006-09-30

use strict;
use warnings;
use Test::More tests => 7;

use Win32::xul2ppt_mec;

my $obj = Win32::Xul2ppt_mec->new(	 
				  'range'	=> [5, 10],
				  'interval'	=> 2,
				  'dir'		=> 'D:/tmp',
				  'name'	=> 'sample.ppt',
			 );

L:
print "\nplease open \"D:/zwx/Win32/t/pattern/pattern.xul\" with mozilla firefox,
	and start powerpoint.No minimizing any, if ready, please input 'ok'...\n: ";
my $sure = <STDIN>;
chomp $sure;

goto L unless $sure =~ m/ok/i;
$obj->shoot();
#$obj->trim();  #if image-magic has been installed, comment can be removed to get mini pictures
$obj->to_ppt();

for($obj->{range}[0]..$obj->{range}[1]) {
	is -e "$obj->{dir}/png/tmp".sprintf("%03d", $_).".png", 1, "$obj->{dir}/p/tmp".sprintf("%03d", $_).".png";
}
is -e "$obj->{dir}/ppt/$obj->{name}", 1, "$obj->{dir}/ppt/$obj->{name} exists!";