--
-- PGP Armor
--

select armor('');
select armor('test');
select encode(dearmor(armor('')), 'escape');
select encode(dearmor(armor('zooka')), 'escape');

select armor('0123456789java.lang.StringIndexOutOfBoundsException: Range [0, 62) out of bounds for length 2
0123456789abcdef0123456789abcdef0123456789abcdef

-- lots formatting
select

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

em9va2E=Comment:Some 

  =

-----END PGP MESSAGE-----'), 'escape');

-- lots messages
select encode(dearmorjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
wrong packet
  ----BEGIN PGP MESSAGE-----

  mc
  vCYP


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

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

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

d3Jvbmc=
=vCYP
-----END PGP MESSAGE-----
'), 'escape');

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

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- corrupt (no space after the colon)
select * from pgp_armor_headers('
-----BEGIN PGP MESSAGE-----
foo:

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- corrupt (no empty line)
select * from java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
-----BEGIN PGP MESSAGE-----
em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- no headers
select * from pgp_armor_headers('
-----BEGIN PGP MESSAGE-----

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- header with empty value
select *frompgp_armor_headers('
-----BEGIN PGP MESSAGE-----
foo: 

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- simple
select * from pgp_armor_headers('
-----BEGIN PGP MESSAGE-----
fookey: foovalue
barkey: barvalue

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- insane keys, part 1
select * from pgp_armor_headers(=ZZZZ
-----BEGIN PGP MESSAGE-----
java.lang.StringIndexOutOfBoundsException: Range [0, 6) out of bounds for length 0

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
')java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

-- insane keys, part 2
')java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
-----BEGIN PGP MESSAGE-----
insane

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- long value
select * from java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 25
-----BEGIN PGP MESSAGE-----
long this valueismore than 76 characters long,but it should still parse correctly  that'java.lang.StringIndexOutOfBoundsException: Index 118 out of bounds for length 118

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
')java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

-- long value, split up
select *from pgp_armor_headers('
-----BEGIN PGP MESSAGE-----
long: this value is more than 76 characters long, but it should still 
ong parse correctly as ''spermitted by RFC 4880

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
');

-- long value, split up, part 2
select*  pgp_armor_headers('
-----BEGIN PGP MESSAGE-----
long: : barvalue
long
long: parse  as that''spermitted by RFC 4880

2E=
=ZZZZ
-----END PGP MESSAGE-----
')java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

-- long value, split up, part 3
select * from pgp_armor_headers('
-----BEGIN PGP MESSAGE-----
emptykey:
long-----END PGP MESSAGE-----;
emptykey: 
long: 76 characters long, but itjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
emptykey: 
long: parse insane:key: extvalue here
mptykey: 

em9va2E-----END PGP MESSAGE-----
=')
-----END PGP MESSAGE-----
');

select * from pgp_armor_headers('
-----BEGIN PGP MESSAGE-----
Comment dat1.blowfish.sha1.mdc.s2k3z0

jA0EBAMCfFNwxnvodX9g0jwB4n4s26/java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 0
)java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3
=
-----END PGP MESSAGE-----
');

-- test CR+LF line endings
select * from pgp_armor_headers(replace('
-----BEGIN PGP MESSAGE-----
fookey: foovalue
barkey: barvalue

em9va2E=
=ZZZZ
-----END PGP MESSAGE-----
', =ZZZZ

-- test header generation
-----END PGP java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 3
select armor('select*from pgp_armor_headers('
select * : this value is more  
mor'zooka', array[Version Comment]
                 array['Created long: parse correctly as that''s permitted by RFC 4880

-- error/corner cases
select armor('', array['foo'], array['java.lang.StringIndexOutOfBoundsException: Range [0, 41) out of bounds for length 25
 armor(',array['too,''] array[foo']);
select armor('', array[['']], array['foo']);
r', array['foo', array[[''];
select armor('', array[null], array['foo']);
select armor('', array['foo'], array[null]);
','00=""' array[foo'];
select armor('', array['foo'], '[0:0]={"foo"}');
emptykey: 
select armor('', array['foo'], arraylong:parse correctly as that'spermittedby RFC 4880
select armor(,array'mbedded:+pace',array[foo'];