#!perl
use strict;
use warnings;
use CPAN::Testers::WWW::Statistics;
#use Data::Dumper;
use Test::More;
use lib 't';
use CTWS_Testing;
if(CTWS_Testing::has_environment()) { plan tests => 32; }
else { plan skip_all => "Environment not configured"; }
ok( my $obj = CTWS_Testing::getObj(), "got parent object" );
ok( my $pages = CTWS_Testing::getPages(), "got pages object" );
$pages->setdates();
#diag(Dumper($pages->{dates}));
like($pages->{dates}{RUNTIME}, qr{^\w{3},\s+\d{1,2}\s+\w{3}\s+\d{4}\s+\d{2}:\d{2}:\d{2}\s+\w+$}, 'RUNTIME matches pattern');
like($pages->{dates}{RUNDATE}, qr{^\d{1,2}\w{2}\s+\w+\s+\d{4}$}, 'RUNDATE matches pattern');
like($pages->{dates}{RUNDATE2}, qr{^\d{1,2}\w{2}\s+\w+\s+\d{4}$}, 'RUNDATE2 matches pattern');
like($pages->{dates}{RUNDATE3}, qr{^\d{1,2}\w{2}\s+\w+\s+\d{4},\s+\d{2}:\d{2}$}, 'RUNDATE3 matches pattern');
like($pages->{dates}{THISMONTH}, qr{^\d{6}$}, 'THISMONTH matches pattern');
like($pages->{dates}{THISDATE}, qr{^\w+\s+\d+$}, 'THISDATE matches pattern');
like($pages->{dates}{LASTMONTH}, qr{^\d{6}$}, 'LASTMONTH matches pattern');
like($pages->{dates}{LASTDATE}, qr{^\w+\s+\d+$}, 'LASTDATE matches pattern');
like($pages->{dates}{PREVMONTH}, qr{^\d{2}/\d{2}$}, 'PREVMONTH matches pattern');
like($pages->{dates}{THATMONTH}, qr{^\d{6}$}, 'THATMONTH matches pattern');
$pages->setdates(1357041600);
like($pages->{dates}{RUNTIME}, qr{^Tue, 1 Jan 2013\s+\d{2}:\d{2}:\d{2}\s+\w+$}, 'RUNTIME matches pattern');
like($pages->{dates}{RUNDATE}, qr{^1st January 2013$}, 'RUNDATE matches pattern');
like($pages->{dates}{RUNDATE2}, qr{^2nd \w+ 20\d{2}$}, 'RUNDATE2 matches pattern');
like($pages->{dates}{RUNDATE3}, qr{^2nd \w+ 20\d{2},\s+\d{2}:\d{2}$}, 'RUNDATE3 matches pattern');
like($pages->{dates}{THISMONTH}, qr{^201301$}, 'THISMONTH matches pattern');
like($pages->{dates}{THISDATE}, qr{^January 2013$}, 'THISDATE matches pattern');
like($pages->{dates}{LASTMONTH}, qr{^201212$}, 'LASTMONTH matches pattern');
like($pages->{dates}{LASTDATE}, qr{^December 2012$}, 'LASTDATE matches pattern');
like($pages->{dates}{PREVMONTH}, qr{^12/12$}, 'PREVMONTH matches pattern');
like($pages->{dates}{THATMONTH}, qr{^201211$}, 'THATMONTH matches pattern');
$pages->setdates(1360843200);
like($pages->{dates}{RUNTIME}, qr{^Thu, 14 Feb 2013\s+\d{2}:\d{2}:\d{2}\s+\w+$}, 'RUNTIME matches pattern');
like($pages->{dates}{RUNDATE}, qr{^14th February 2013$}, 'RUNDATE matches pattern');
like($pages->{dates}{RUNDATE2}, qr{^2nd \w+ 20\d{2}$}, 'RUNDATE2 matches pattern');
like($pages->{dates}{RUNDATE3}, qr{^2nd \w+ 20\d{2},\s+\d{2}:\d{2}$}, 'RUNDATE3 matches pattern');
like($pages->{dates}{THISMONTH}, qr{^201302$}, 'THISMONTH matches pattern');
like($pages->{dates}{THISDATE}, qr{^February 2013$}, 'THISDATE matches pattern');
like($pages->{dates}{LASTMONTH}, qr{^201301$}, 'LASTMONTH matches pattern');
like($pages->{dates}{LASTDATE}, qr{^January 2013$}, 'LASTDATE matches pattern');
like($pages->{dates}{PREVMONTH}, qr{^01/13$}, 'PREVMONTH matches pattern');
like($pages->{dates}{THATMONTH}, qr{^201212$}, 'THATMONTH matches pattern');