1#!/usr/bin/env perl 2# -*- mode: cperl; -*- 3use Test::Base; 4use Net::SSL::ExpireDate; 5use Regexp::Common qw(net); 6 7my $Check_Duration; 8# $Check_Duration = '15 years'; 9 10plan tests => 1 * blocks; 11 12run { 13 my $block = shift; 14 my $ed = Net::SSL::ExpireDate->new( build_arg($block->name) ); 15 is($ed->is_expired($Check_Duration) && $ed->expire_date->iso8601, 16 undef, 17 $block->name); 18}; 19 20sub build_arg { 21 my ($v) = @_; 22 if ($v =~ m{^(file)://(.+)}) { 23 return $1 => $2; 24 } elsif ($v =~ m{^(https)://([^/]+)}) { 25 return $1 => $2; 26 } elsif ($v =~ m{^$RE{net}{domain}{-nospace}{-keep}$}) { 27 return 'https' => $1; 28 } elsif (-r $v) { 29 return 'file' => $v; 30 } else { 31 croak "$v: assume file. but cannot read."; 32 } 33} 34 35__END__ 36=== rt.cpan.org 37=== www.google.com 38