--
-- PGP Armor
--
select armor('');
                             armor                             
---------------------------------------------------------------
 -----BEGIN PGP MESSAGE-----

=twTO
-----END PGP MESSAGE-----

(1 row)

select armor('test');
                                 armor                                  
------------------------------------------------------------------------
 -----BEGIN PGP MESSAGE-----

dGVzdA==
=+G7Q
-----END PGP MESSAGE-----

(1 row)

select dearmor(armor(''));
 dearmor 
---------
 
(1 row)

select dearmor(armor('zooka'));
 dearmor 
---------
 zooka
(1 row)

select armor('0123456789abcdef0123456789abcdef0123456789abcdef
0123456789abcdef0123456789abcdef0123456789abcdef');
                                                                                                armor                                                                                                
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -----BEGIN PGP MESSAGE-----

MDEyMzQ1Njc4OWFiY2RlZjAxMjM0NTY3ODlhYmNkZWYwMTIzNDU2Nzg5YWJjZGVmCjAxMjM0NTY3
ODlhYmNkZWYwMTIzNDU2Nzg5YWJjZGVmMDEyMzQ1Njc4OWFiY2RlZg==
=JFw5
-----END PGP MESSAGE-----

(1 row)

-- lots formatting
select dearmor(' a pgp msg:

-----BEGIN PGP MESSAGE-----
Comment: Some junk

em9va2E=

  =D5cR

-----END PGP MESSAGE-----');
 dearmor 
---------
 zooka
(1 row)

-- lots messages
select dearmor('
wrong packet:
  -----BEGIN PGP MESSAGE-----

  d3Jvbmc=
  =vCYP
  -----END PGP MESSAGE-----

right packet:
-----BEGIN PGP MESSAGE-----

cmlnaHQ=
=nbpj
-----END PGP MESSAGE-----

use only first packet
-----BEGIN PGP MESSAGE-----

d3Jvbmc=
=vCYP
-----END PGP MESSAGE-----
');
 dearmor 
---------
 right
(1 row)

-- bad crc
select dearmor('
-----BEGIN PGP MESSAGE-----

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');
ERROR:  Corrupt ascii-armor
