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