33de4020f6d9975eb7a447656623a15123d92ecd
   1#!/bin/sh
   2
   3gpg_version=$(gpg --version 2>&1)
   4if test $? = 127; then
   5        say "You do not seem to have gpg installed"
   6else
   7        # As said here: http://www.gnupg.org/documentation/faqs.html#q6.19
   8        # the gpg version 1.0.6 didn't parse trust packets correctly, so for
   9        # that version, creation of signed tags using the generated key fails.
  10        case "$gpg_version" in
  11        'gpg (GnuPG) 1.0.6'*)
  12                say "Your version of gpg (1.0.6) is too buggy for testing"
  13                ;;
  14        *)
  15                # key generation info: gpg --homedir t/lib-gpg --gen-key
  16                # Type DSA and Elgamal, size 2048 bits, no expiration date.
  17                # Name and email: C O Mitter <committer@example.com>
  18                # No password given, to enable non-interactive operation.
  19                mkdir ./gpghome &&
  20                chmod 0700 ./gpghome &&
  21                GNUPGHOME="$(pwd)/gpghome" &&
  22                export GNUPGHOME &&
  23                gpg --homedir "${GNUPGHOME}" 2>/dev/null --import \
  24                        "$TEST_DIRECTORY"/lib-gpg/keyring.gpg &&
  25                gpg --homedir "${GNUPGHOME}" 2>/dev/null --import-ownertrust \
  26                        "$TEST_DIRECTORY"/lib-gpg/ownertrust &&
  27                test_set_prereq GPG
  28                ;;
  29        esac
  30fi
  31
  32if test_have_prereq GPG &&
  33    echo | gpg --homedir "${GNUPGHOME}" -b --rfc1991 >/dev/null 2>&1
  34then
  35        test_set_prereq RFC1991
  36fi
  37
  38sanitize_pgp() {
  39        perl -ne '
  40                /^-----END PGP/ and $in_pgp = 0;
  41                print unless $in_pgp;
  42                /^-----BEGIN PGP/ and $in_pgp = 1;
  43        '
  44}