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: 2010113001111200

  Added files:
    rpm/perl/t              10.sign.t

  Log:
    add missing sign regression test..

  Summary:
    Revision    Changes     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.000000000 +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 Manager                                    http://rpm5.org
CVS Sources Repository                                rpm-cvs@rpm5.org

Reply via email to