do
"t/lib.pl"
;
my
@proved_vers
= proveRequirements( [
qw(Net::Interface Net::Ifconfig::Wrapper NetAddr::IP)
] );
showRequirements(
undef
,
$proved_vers
[1] );
plan(
skip_all
=>
"Net::Interface > 1.0 or Net::Ifconfig::Wrapper >= 0.11 required for this test"
)
unless
(
defined
( _HASH(
$proved_vers
[1] ) )
&& (
defined
(
$proved_vers
[1]->{
'Net::Interface'
} ) ||
defined
(
$proved_vers
[1]->{
'Net::Ifconfig::Wrapper'
} ) ) );
plan(
tests
=> 4 );
ok(
my
$dbh
= DBI->
connect
(
'DBI:Sys:'
),
'connect 1'
) or diag(
$DBI::errstr
);
ok(
$st
=
$dbh
->prepare(
"SELECT COUNT(interface) FROM netint"
),
'prepare netint'
) or diag(
$dbh
->errstr );
ok(
my
$num
=
$st
->execute(),
'execute for netint'
) or diag(
$st
->errstr );
$row
=
$st
->fetchrow_arrayref();
ok(
$row
->[0],
'interfaces found'
);