[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