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