summaryrefslogtreecommitdiffstats
path: root/RPM4/t/07files.t
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-12-18 00:14:31 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2012-12-18 00:14:31 +0000
commit7ccfd687e6b1554ebcdb123979f005523a1b89b1 (patch)
tree1dfe48275990559a7652d3b6b45eabe7914b0531 /RPM4/t/07files.t
parentf2b68f33b2083673835a2bcb6307861611bf7a98 (diff)
downloadperl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar
perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.gz
perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.bz2
perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.tar.xz
perl-RPM4-7ccfd687e6b1554ebcdb123979f005523a1b89b1.zip
perl_checker cleanups
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@237 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/t/07files.t')
-rw-r--r--RPM4/t/07files.t20
1 files changed, 10 insertions, 10 deletions
diff --git a/RPM4/t/07files.t b/RPM4/t/07files.t
index 8ca7e80..f5ac229 100644
--- a/RPM4/t/07files.t
+++ b/RPM4/t/07files.t
@@ -9,31 +9,31 @@ 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();
+my $files = $htest->files;
isa_ok($files, 'RPM4::Header::Files', '$files');
is(
- $files->count(),
+ $files->count,
1,
"files count OK"
);
like(
- $files->filename(),
+ $files->filename,
qr!^/!,
"filename OK"
);
like(
- $files->dirname(),
+ $files->dirname,
qr!^/!,
"dirname OK"
);
-ok(defined($files->basename()), "Can get Files::basename()");
-ok(defined($files->fflags()), "Can get Files::fflags()");
+ok(defined($files->basename), "Can get Files::basename");
+ok(defined($files->fflags), "Can get Files::fflags");
is(
- $files->md5(),
+ $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");
+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");