#!/usr/bin/perl
use 5.016;
use strict;
use Test::More;
use File::Spec;
use EBook::Ishmael::EBook;
use EBook::Ishmael::ImageID;
my $CBZ = File::Spec->catfile(qw/t data gpl3.cbz/);
my $ebook = EBook::Ishmael::EBook->new($CBZ);
isa_ok($ebook, 'EBook::Ishmael::EBook::CBZ');
like($ebook->{Source}, qr/\Q$CBZ\E$/, "source ok");
is($ebook->metadata->{Format}[0], 'CBZ', 'metadata format ok');
is($ebook->metadata->{Title}[0],  'gpl3', 'metadata title ok');
# Modification time will probably differ, just check to make sure it exists.
ok($ebook->metadata->{Modified}[0], 'metadata modified ok');
ok(!$ebook->html, "html ok");
ok(!$ebook->raw,  "raw ok");
ok($ebook->has_cover, "has cover");
ok($ebook->cover, "cover ok");
is(
        image_id(\($ebook->cover)),
        "png",
        "cover looks like a png"
);
is($ebook->image_num, 28, "image count ok");
for my $i (0 .. 27) {
        is(
                image_id($ebook->image($i)),
                "png",
                "image #$i ok"
        );
}
done_testing();