#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 6;
use Data::Dumper;
use WWW::Mechanize;

use lib qw{lib};
use Test::MonitorSites;

my $package = 'Test::MonitorSites';
foreach my $method ('new', 'test_sites', 'email', 'sms') {
#  can_ok($package,$method);
}

my $cwd = `pwd`;
chomp($cwd);
my $config_file = "$cwd/t/testsuite.ini";
# diag('We\'re using as our config file: ');
# diag("     " . $config_file);
my $tester = Test::MonitorSites->new( { 'config_file' => $config_file } );
isa_ok($tester,'Test::MonitorSites');
isa_ok($tester->{'config'},'Config::Simple');
isa_ok($tester->{'agent'},'WWW::Mechanize');

$package = 'Config::Simple';
foreach my $method ('new', 'param', 'vars') {
#  can_ok($package,$method);
}

my $results = $tester->test_sites();
is(defined($results->{'sites'}),1,'The result returned a sites value');
is(ref $results->{'sites'},'ARRAY','The sites value is an array');
my $sites_count = @{$results->{'sites'}};
is($sites_count,3,'It includes the right number of sites');

my (@url,@expected);
foreach my $site (@{$tester->{'sites'}}){
  @url = @{$tester->{'config'}->{'_DATA'}->{"site_$site"}->{'url'}};
  @expected = @{$tester->{'config'}->{'_DATA'}->{"site_$site"}->{'expected_content'}};
  diag("The url is: $url[0].");
  diag("We expect to find: $expected[0].");
  # $agent->get($url[0]);
  # like($url[0],qr/$site/,"Got correct url for $site.");
  # like($agent->content(),qr/$expected[0]/,"  .  .  .  and found expected content");
}

1;