#!perl
use strict;
use Test qw(plan ok);
plan tests => 3;
use Mozilla::CA;
my $ca_file = Mozilla::CA::SSL_ca_file();
print "# $ca_file\n";
ok($ca_file);
ok(open(my $fh, "<", $ca_file));
while (<$fh>) {
if (/--BEGIN CERTIFICATE--/) {
ok(1);
last;
}
}