2016-07-25 09:47:24 +02:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
|
|
use strict;
|
2020-01-14 18:44:11 +01:00
|
|
|
use Test::More;
|
|
|
|
|
|
|
|
|
|
printf "\n%s\n", "Testing whether CA certificates are newer their SPKI hashes \"~/etc/ca_hashes.txt\" ...";
|
2016-07-25 09:47:24 +02:00
|
|
|
|
|
|
|
|
my $newer_bundles=`find etc/*.pem -newer etc/ca_hashes.txt`;
|
2020-01-14 18:44:11 +01:00
|
|
|
is($newer_bundles,"","If there's an output with a *.pem file run \"~/utils/create_ca_hashes.sh\"");
|
|
|
|
|
|
|
|
|
|
printf "\n";
|
2020-01-13 23:50:14 +01:00
|
|
|
done_testing;
|
