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
|
#!/usr/bin/perl
# $Id$
use strict;
use Test::More tests => 11;
use FindBin qw($Bin);
use RPM4;
my $htest = RPM4::Header->new("$Bin/test-rpm-1.0-1mdk.noarch.rpm");
isa_ok($htest, 'RPM4::Header', '$htest');
my $files = $htest->files();
isa_ok($files, 'RPM4::Header::Files', '$files');
is(
$files->count(),
1,
"files count OK"
);
like(
$files->filename(),
qr!^/!,
"filename OK"
);
like(
$files->dirname(),
qr!^/!,
"dirname OK"
);
ok(defined($files->basename()), "Can get Files::basename()");
ok(defined($files->fflags()), "Can get Files::fflags()");
is(
$files->md5(),
"6e5e49d3e3743eb3d5737ce8aca1fb02",
"md5 is OK"
);
ok(!defined($files->link()), "Can get Files::link()");
ok(defined($files->mode()), "Can get Files::mode()");
ok($files->mode() > 0, "Files::mode() is positive value");
|
