diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-22 00:23:50 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-22 00:23:50 +0000 |
| commit | 5f7a129c6c1d3a7b2782272260b98f4a1de992a6 (patch) | |
| tree | c2c0da47407dbb514d9a65cae7bab704af9158a3 /RPM4/t/04spec.t | |
| parent | 4aa27656b701804d58d4b39245a6aa61e4fbd40d (diff) | |
| download | perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar.gz perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar.bz2 perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar.xz perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.zip | |
- fix #7: installsrpms return one value in scalar context
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@140 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/t/04spec.t')
| -rw-r--r-- | RPM4/t/04spec.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/RPM4/t/04spec.t b/RPM4/t/04spec.t index 555ec59..d63cf33 100644 --- a/RPM4/t/04spec.t +++ b/RPM4/t/04spec.t @@ -1,7 +1,7 @@ # $Id$ use strict; -use Test::More tests => 27; +use Test::More tests => 28; use FindBin qw($Bin); use File::Temp qw(tempdir); use RPM4; @@ -21,6 +21,7 @@ RPM4::add_macro("_gpg_name RPM4 test key"); RPM4::add_macro("_gpg_path $Bin/gnupg"); ok((RPM4::installsrpm("$Bin/test-rpm-1.0-1mdk.src.rpm"))[0] =~ m/test-rpm\.spec$/, "installsrpms works"); +like(RPM4::installsrpm("$Bin/test-rpm-1.0-1mdk.src.rpm"), '/test-rpm\.spec$/', "installsrpms works"); ok(!RPM4::installsrpm("$Bin/test-rpm-1.0-1mdk.noarch.rpm"), "installsrpms works"); my $spec; |