view release on metacpan or  search on metacpan

t/003_normalize.t  view on Meta::CPAN

use Test::More;

use Crypt::Format;

plan tests => 1;

my $weird = <<END;
-----BEGIN CERTIFICATE-----
MIIFTjCCBDagAwIBAgIRAJj88Oe9epkCKrF9pCHm0XkwDQYJKoZIhvcNAQELBQAwgZAxCzAJBgNVBAYTAkdCMRswGQYDVQQIExJHcmVhdGVyIE1hbmNoZXN0ZXIxEDAOBgNVBAcTB1NhbGZvcmQxGjAYBgNVBAoTEUNPTU9ETyBDQSBMaW1pdGVkMTYwNAYDVQQDEy1DT01PRE8gUlNBIERvbWFpbiBWYWxpZGF0aW9uIFNlY3VyZSBTZX...
-----END CERTIFICATE-----
END

my $normalized = Crypt::Format::normalize_pem($weird);

my $max = 76;

ok(
    !(grep { length > $max } split m<\x0a>, $normalized),
    "no line longer than $max chars",
) or diag $normalized;