SAMYOUNG / EBook-Ishmael-0.02 / t / 14_ztxt.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78

              
#!/usr/bin/perl
use 5.016;
use strict;
use Test::More;
use File::Spec;
use EBook::Ishmael::EBook;
my $DOC = File::Spec->catfile(qw/t data gpl3.ztxt/);
my $ebook = EBook::Ishmael::EBook->new($DOC);
isa_ok($ebook, 'EBook::Ishmael::EBook::zTXT');
like($ebook->{Source}, qr/\Q$DOC\E$/, "source ok");
subtest "PDB data ok" => sub {
        plan tests => 14;
        is(
                $ebook->{_pdb}->name,
                'GNU General Public License',
                "name ok"
        );
        is($ebook->{_pdb}->attributes,    8,           "attributes ok");
        is($ebook->{_pdb}->version,       298,         "version ok");
        is($ebook->{_pdb}->cdate,         1011337408,  "creation date ok");
        is($ebook->{_pdb}->mdate,         1011337408,  "modification date ok");
        is($ebook->{_pdb}->bdate,         -2082844800, "backup date ok");
        is($ebook->{_pdb}->modnum,        0,           "modification number ok");
        is($ebook->{_pdb}->app_info,      0,           "app info ok");
        is($ebook->{_pdb}->sort_info,     0,           "sort info ok");
        is($ebook->{_pdb}->type,          2052347988,  "type ok");
        is($ebook->{_pdb}->creator,       1196452973,  "creator ok");
        is($ebook->{_pdb}->uid_seed,      0,           "uid seed ok");
        is($ebook->{_pdb}->next_rec_list, 0,           "next record list ok");
        is($ebook->{_pdb}->recnum,        5,           "record number ok");
};
subtest "zTXT header data ok" => sub {
        plan tests => 11;
        is($ebook->{_version},     298,   "version ok");
        is($ebook->{_recnum},      3,     "record number ok");
        is($ebook->{_size},        18007, "size ok");
        is($ebook->{_recsize},     8192,  "record size ok");
        is($ebook->{_bookmarknum}, 4,     "bookmark number ok");
        is($ebook->{_bookmarkrec}, 4,     "bookmark record ok");
        is($ebook->{_annotnum},    0,     "annotation number ok");
        is($ebook->{_annotrec},    0,     "annotation record ok");
        is($ebook->{_flags},       1,     "flags ok");
        is($ebook->{_reserved},    0,     "reserved ok");
        is($ebook->{_crc32},       0,     "crc32 ok");
};
is(
        length($ebook->_text),
        $ebook->{_size},
        "text decoding ok"
);
is_deeply(
        $ebook->metadata,
        {
                title => [ 'GNU General Public License' ],
                date => [ scalar gmtime $ebook->{_pdb}->cdate ],
        },
        "metadata ok"
);
ok($ebook->html, "html ok");
done_testing();