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: 29-Nov-2010 23:36:57
Branch: rpm-5_3 Handle: 2010112922365700
Added files: (Branch: rpm-5_3)
rpm/perl/t 10.sign.t
Log:
add missing test
Summary:
RevisionChanges Path
1.1.2.1 +36 -0 rpm/perl/t/10.sign.t
patch -p0 <<'@@ .'
Index: rpm/perl/t/10.sign.t
$ cvs diff -u -r0 -r1.1.2.1 10.sign.t
--- /dev/null 2010-11-29 23:33:57.0 +0100
+++ 10.sign.t 2010-11-29 23:36:57.804550861 +0100
@@ -0,0 +1,36 @@
+#!/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::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