########## SETUP ##########

use Test::More;
BEGIN
{
    if($ENV{'AUTOMATED_TESTING'})
    {
        plan skip_all => "Automated testing often breaks on actual scripts.";
    }
    else
    {
        plan tests => 18;
    }
};
use Cwd qw(chdir getcwd);
use File::Basename qw(basename);
use File::Copy;
use File::MimeInfo::Magic;
use File::Path;    # Exports 'mkpath' and 'rmtree'
use utf8;
binmode STDOUT,":utf8";
binmode STDERR,":utf8";

BEGIN { use_ok('EBook::Tools') };

# Set this to 1 or 2 to stress the debugging code, but expect lots of
# output.
$EBook::Tools::debug = 1;

ok( (basename(getcwd()) eq 't') || chdir('t/'), "Working in 't/" ) or die;

copy('test-containsmetadata.html','containsmetadata.html')
    or die("Could not copy containsmetadata.html: $!");
copy('test-part1.html','part1.html')
    or die("Could not copy part1.html: $!");
copy('test-part2.html','part2.html')
    or die("Could not copy part2.html: $!");
copy('testopf-emptyuid.xml','emptyuid.opf')
    or die("Could not copy emptyuid.opf: $!");
copy('testopf-missingfwid.xml','missingfwid.opf')
    or die("Could not copy missingfwid.opf: $!");

my $ebook;
my @rights;

########## TESTS ##########

# ebook blank
unlink('blank.opf');
$exitval = system('perl','-I../lib','../scripts/ebook.pl',
                  'blank','blank.opf',
                  '-d','testdir',
                  '--title','Testing Title',
                  '--author','Testing Author' );
$exitval >>= 8;
is($exitval,0,'ebook blank exits successfully');
ok($ebook = EBook::Tools->new('testdir/blank.opf'),
   'ebook blank created parseable blank.opf');
is($ebook->twigroot->first_descendant('dc:title')->text,'Testing Title',
   'ebook blank created correct title');
is($ebook->twigroot->first_descendant('dc:creator')->text,'Testing Author',
   'ebook blank created correct author');

# ebook fix
$exitval = system('perl','-I../lib','../scripts/ebook.pl','fix','emptyuid.opf');
$exitval >>= 8;
is($exitval,0,'ebook fix exits successfully');
ok(-f 'emptyuid.opf.backup','ebook fix created backup file');

# ebook genepub
$exitval = system('perl','-I../lib','../scripts/ebook.pl',
                  'genepub','emptyuid.opf',
                  '--dir','epubdir');
$exitval >>= 8;
is($exitval,0,'ebook genepub exits successfully');
ok(-f 'epubdir/emptyuid.epub','ebook genepub created the epub book');

# ebook fix -d testdir
$exitval = system('perl','-I../lib','../scripts/ebook.pl',
                  'fix','emptyuid.opf',
                  '-d','testdir');
$exitval >>= 8;
is($exitval,0,'ebook fix -d testdir exits successfully');
ok(-f 'testdir/emptyuid.opf',
   'ebook fix -d testdir created file in correct place');

# ebook splitmeta
unlink('containsmetadata.opf');
$exitval = system('perl','-I../lib',
                  '../scripts/ebook.pl','splitmeta','containsmetadata.html');
$exitval >>= 8;
is($exitval,0,'ebook splitmeta generates right return value');
ok(-f 'containsmetadata.opf','ebook splitmeta created containsmetadata.opf');

ok($ebook = EBook::Tools->new('containsmetadata.opf'),
   'split metadata parsed successfully');
is($ebook->title,'A Noncompliant OPF Test Sample',
   'split metadata has correct title');
is(@rights = $ebook->rights,1,'split metadata contains dc:rights');
is($rights[0],"Copyright \x{00A9} 2008 by Zed Pobre",
   'split metadata has correct rights (HTML entity handled)');

########## CLEANUP ##########

unlink('containsmetadata.html');
unlink('containsmetadata.opf');
unlink('containsmetadata.opf.backup');
unlink('emptyuid.opf');
unlink('emptyuid.opf.backup');
unlink('mimetype');
unlink('missingfwid.opf');
unlink('missingfwid.opf.backup');
unlink('part1.html');
unlink('part2.html');
rmtree('META-INF');
rmtree('epubdir');
rmtree('testdir');