diff options
author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-20 08:25:30 +0000 |
---|---|---|
committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-20 08:25:30 +0000 |
commit | 72114e413e229865957b738e05872ca59dabc6ac (patch) | |
tree | 1822016d220aabe03f98a6498c72d7955e4f9cc4 /RPM4/t/02header.t | |
parent | 21497f8d0da9b9884ed879907cf223c401008393 (diff) | |
download | perl-RPM4-72114e413e229865957b738e05872ca59dabc6ac.tar perl-RPM4-72114e413e229865957b738e05872ca59dabc6ac.tar.gz perl-RPM4-72114e413e229865957b738e05872ca59dabc6ac.tar.bz2 perl-RPM4-72114e413e229865957b738e05872ca59dabc6ac.tar.xz perl-RPM4-72114e413e229865957b738e05872ca59dabc6ac.zip |
- fix header->string
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@134 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/t/02header.t')
-rw-r--r-- | RPM4/t/02header.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/RPM4/t/02header.t b/RPM4/t/02header.t index e8fdb28..4ec5611 100644 --- a/RPM4/t/02header.t +++ b/RPM4/t/02header.t @@ -1,7 +1,7 @@ # $Id$ use strict; -use Test::More tests => 41; +use Test::More tests => 42; use FindBin qw($Bin); use RPM4; @@ -34,6 +34,7 @@ ok($hdr->removetag(1000) == 0, "Removing a tag"); ok(! defined $hdr->tag(1000), "tag is not present"); ok($hdr->addtag(1000, 6, "new name") == 1, "Adding a tag (string type)"); ok($hdr->tag(1000) eq "new name", "Added tag return good value"); +ok($hdr->string, "can get header as string"); } { |