#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 12;

use lib qw{/home/hesco/sb/gpca/ews/Test-MonitorSites};
use sb::redirection_test;

my $obj = sb::redirection_test->new();
isa_ok($obj,'sb::redirection_test');
can_ok($obj,'test_sites');
$obj->test_sites();

is(6,6,'Six is six.');
is(6,8,'Six is eight.');

1;