#!/usr/bin/perl -w
# Top level testing for JSAN::Client itself
use
strict;
BEGIN {
$| = 1;
$^W = 1;
}
use
JSAN::URI ();
#####################################################################
# Create an object for a mirror
isa_ok(
$mirror
,
'JSAN::URI'
);
SKIP: {
skip(
"Skipping online tests"
, 3 )
unless
online();
my
$config
=
$mirror
->_config;
my
$master
=
$mirror
->_master;
isa_ok(
$config
,
'Config::Tiny'
);
isa_ok(
$master
,
'Config::Tiny'
);
ok(
$mirror
->valid,
"Mirror $mirror is valid"
);
}
exit
(0);