--
-- PGP info functions
--
-- pgp_key_id
select pgp_key_id(dearmor(pubkey)) from keytbl where id=1;
    pgp_key_id    
------------------
 D936CF64BB73F466
(1 row)

select pgp_key_id(dearmor(pubkey)) from keytbl where id=2;
    pgp_key_id    
------------------
 2C226E1FFE5CC7D4
(1 row)

select pgp_key_id(dearmor(pubkey)) from keytbl where id=3;
    pgp_key_id    
------------------
 B68504FD128E1FF9
(1 row)

select pgp_key_id(dearmor(pubkey)) from keytbl where id=4; -- should fail
ERROR:  No encryption key found
select pgp_key_id(dearmor(pubkey)) from keytbl where id=5;
    pgp_key_id    
------------------
 D936CF64BB73F466
(1 row)

select pgp_key_id(dearmor(pubkey)) from keytbl where id=6;
    pgp_key_id    
------------------
 FD0206C409B74875
(1 row)

select pgp_key_id(dearmor(seckey)) from keytbl where id=1;
    pgp_key_id    
------------------
 D936CF64BB73F466
(1 row)

select pgp_key_id(dearmor(seckey)) from keytbl where id=2;
    pgp_key_id    
------------------
 2C226E1FFE5CC7D4
(1 row)

select pgp_key_id(dearmor(seckey)) from keytbl where id=3;
    pgp_key_id    
------------------
 B68504FD128E1FF9
(1 row)

select pgp_key_id(dearmor(seckey)) from keytbl where id=4; -- should fail
ERROR:  No encryption key found
select pgp_key_id(dearmor(seckey)) from keytbl where id=5;
    pgp_key_id    
------------------
 D936CF64BB73F466
(1 row)

select pgp_key_id(dearmor(seckey)) from keytbl where id=6;
    pgp_key_id    
------------------
 FD0206C409B74875
(1 row)

select pgp_key_id(dearmor(data)) as data_key_id
from encdata order by id;
   data_key_id    
------------------
 D936CF64BB73F466
 2C226E1FFE5CC7D4
 B68504FD128E1FF9
 FD0206C409B74875
(4 rows)

