[CVS] RPM: rpm/perl/t/ 10.sign.t
RPM Package Manager, CVS Repository
http://rpm5.org/cvs/
Server: rpm5.org Name: Per Øyvind Karlsen
Root: /v/rpm/cvs Email: pkarl...@rpm5.org
Module: rpm Date: 25-Jan-2011 14:57:35
Branch: HEAD Handle: 2011012513573500
Modified files:
rpm/perl/t 10.sign.t
Log:
disable hkp keyserver query to speed up test
Summary:
RevisionChanges Path
1.4 +1 -0 rpm/perl/t/10.sign.t
patch -p0 '@@ .'
Index: rpm/perl/t/10.sign.t
$ cvs diff -u -r1.3 -r1.4 10.sign.t
--- rpm/perl/t/10.sign.t 2 Dec 2010 16:42:07 - 1.3
+++ rpm/perl/t/10.sign.t 25 Jan 2011 13:57:35 - 1.4
@@ -17,6 +17,7 @@
RPM::load_macro_file('../macros/macros');
RPM::setverbosity(6);
RPM::add_macro(_dbpath $testdir);
+RPM::delete_macro(_hkp_keyserver_query);
copy(test-rpm-1.0-1.noarch.rpm, $testdir);
@@ .
__
RPM Package Managerhttp://rpm5.org
CVS Sources Repositoryrpm-cvs@rpm5.org
[CVS] RPM: rpm/perl/t/ 10.sign.t
RPM Package Manager, CVS Repository http://rpm5.org/cvs/ Server: rpm5.org Name: Per Øyvind Karlsen Root: /v/rpm/cvs Email: pkarl...@rpm5.org Module: rpm Date: 02-Dec-2010 17:42:07 Branch: HEAD Handle: 2010120216420700 Modified files: rpm/perl/t 10.sign.t Log: fix check without signature Summary: RevisionChanges Path 1.3 +1 -2 rpm/perl/t/10.sign.t patch -p0 '@@ .' Index: rpm/perl/t/10.sign.t $ cvs diff -u -r1.2 -r1.3 10.sign.t --- rpm/perl/t/10.sign.t 30 Nov 2010 01:11:12 - 1.2 +++ rpm/perl/t/10.sign.t 2 Dec 2010 16:42:07 - 1.3 @@ -29,8 +29,7 @@ ok(my $db = $ts-opendb(1), Open a new database); ok($ts-checkrpm($testdir/test-rpm-1.0-1.noarch.rpm) != 0, checking a rpm, key is missing); -ok($ts-checkrpm(test-rpm-1.0-1.noarch.rpm, [ -1029 ]) == 0, checking a rpm, no checking the key); -#FIXME: ok($ts-checkrpm(test-rpm-1.0-1.noarch.rpm, [ NOSIGNATURES ]) == 0, checking a rpm, no checking the key); +ok($ts-checkrpm($testdir/test-rpm-1.0-1.noarch.rpm, [ NOSIGNATURES ]) == 0, checking a rpm, no checking the key); ok($ts-importpubkey($Bin/gnupg/test-key.gpg) == 0, Importing a public key); @@ . __ RPM Package Managerhttp://rpm5.org CVS Sources Repositoryrpm-cvs@rpm5.org
[CVS] RPM: rpm/perl/t/ 10.sign.t
RPM Package Manager, CVS Repository
http://rpm5.org/cvs/
Server: rpm5.org Name: Per Øyvind Karlsen
Root: /v/rpm/cvs Email: pkarl...@rpm5.org
Module: rpm Date: 30-Nov-2010 02:11:12
Branch: HEAD Handle: 201011300200
Added files:
rpm/perl/t 10.sign.t
Log:
add missing sign regression test..
Summary:
RevisionChanges Path
1.2 +39 -0 rpm/perl/t/10.sign.t
patch -p0 '@@ .'
Index: rpm/perl/t/10.sign.t
$ cvs diff -u -r0 -r1.2 10.sign.t
--- /dev/null 2010-11-30 02:11:00.0 +0100
+++ 10.sign.t 2010-11-30 02:11:12.296085617 +0100
@@ -0,0 +1,39 @@
+#!/bin/env perl
+
+use strict;
+use Test::More tests = 6;
+use FindBin qw($Bin);
+use File::Temp qw(tempdir);
+use File::Copy;
+use RPM;
+use RPM::Sign;
+use RPM::Transaction;
+
+my $passphrase = RPM4;
+
+my $testdir = tempdir( CLEANUP = 1 );
+
+RPM::setverbosity(3);
+RPM::load_macro_file('../macros/macros');
+RPM::setverbosity(6);
+RPM::add_macro(_dbpath $testdir);
+
+copy(test-rpm-1.0-1.noarch.rpm, $testdir);
+
+RPM::add_macro(_signature gpg);
+RPM::add_macro(_gpg_name RPM4 test key);
+RPM::add_macro(_gpg_path $Bin/gnupg);
+
+ok(RPM::resign($passphrase, $testdir/test-rpm-1.0-1.noarch.rpm) == 0, can
resign a rpm);
+my $ts = RPM::Transaction-new();
+ok(my $db = $ts-opendb(1), Open a new database);
+
+ok($ts-checkrpm($testdir/test-rpm-1.0-1.noarch.rpm) != 0, checking a
rpm, key is missing);
+ok($ts-checkrpm(test-rpm-1.0-1.noarch.rpm, [ -1029 ]) == 0, checking a
rpm, no checking the key);
+#FIXME: ok($ts-checkrpm(test-rpm-1.0-1.noarch.rpm, [ NOSIGNATURES ]) ==
0, checking a rpm, no checking the key);
+
+ok($ts-importpubkey($Bin/gnupg/test-key.gpg) == 0, Importing a public
key);
+
+ok($ts-checkrpm(test-rpm-1.0-1.noarch.rpm) == 0, checking a rpm file);
+
+$db = undef;
@@ .
__
RPM Package Managerhttp://rpm5.org
CVS Sources Repositoryrpm-cvs@rpm5.org
