1BEGIN {
2    if($ENV{PERL_CORE}) {
3        chdir 't';
4        @INC = '../lib';
5    }
6}
7
8use strict;
9use warnings;
10use Test;
11BEGIN { plan tests => 2 };
12
13use Pod::Simple::Text;
14
15my $p = Pod::Simple::Text->new();
16$p->parse_string_document('dm+aSxLl7V3VUJFIe6CFDU13zhZ3yvjIuVkp6l//ZHcDcX014vnnh3FoElI92kFB
17JGFU23Vga5Tfz0Epybwio9dq1gzrZ/PIcil2MnEcUWSrIStriv4hAbf0MXcNRHOM
18oOV7xKU=
19=y6KV
20-----END PGP PUBLIC KEY BLOCK-----};
21
22print $key;
23exit;
24');
25
26# The =y6KV should not make this appear to be pod
27ok ! $p->content_seen;
28
29my $q = Pod::Simple::Text->new();
30$q->parse_string_document('=head1 yes this is pod
31
32And this fills it in
33');
34
35ok $q->content_seen;
36