145 lines
3.0 KiB
Perl
145 lines
3.0 KiB
Perl
#!perl -T
|
|
use 5.006;
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Net::Connection;
|
|
|
|
BEGIN {
|
|
use_ok( 'Net::Connection::Match' ) || print "Bail out!\n";
|
|
}
|
|
|
|
my $connection_args={
|
|
foreign_host=>'10.0.0.1',
|
|
foreign_port=>'22',
|
|
local_host=>'10.0.0.2',
|
|
local_port=>'12322',
|
|
proto=>'tcp4',
|
|
state=>'LISTEN',
|
|
};
|
|
|
|
my $nm_connection_args={
|
|
foreign_host=>'10.0.0.1',
|
|
foreign_port=>'80',
|
|
local_host=>'10.0.0.2',
|
|
local_port=>'12322',
|
|
proto=>'tcp4',
|
|
state=>'LISTEN',
|
|
};
|
|
|
|
my %args=(
|
|
testing=>1,
|
|
checks=>[
|
|
{
|
|
type=>'Ports',
|
|
invert=>0,
|
|
args=>{
|
|
ports=>[
|
|
'22',
|
|
],
|
|
lports=>[
|
|
'53',
|
|
],
|
|
fports=>[
|
|
'12345',
|
|
],
|
|
}
|
|
}
|
|
]
|
|
);
|
|
|
|
my %args2=(
|
|
testing=>1,
|
|
checks=>[
|
|
{
|
|
type=>'Ports',
|
|
invert=>0,
|
|
args=>{
|
|
ports=>[
|
|
'22',
|
|
],
|
|
lports=>[
|
|
'53',
|
|
],
|
|
fports=>[
|
|
'12345',
|
|
],
|
|
}
|
|
},
|
|
{
|
|
type=>'Protos',
|
|
invert=>0,
|
|
args=>{
|
|
protos=>[
|
|
'tcp4',
|
|
],
|
|
}
|
|
}
|
|
]
|
|
);
|
|
|
|
|
|
my $checker;
|
|
|
|
# makes sure we error with empty args
|
|
my $worked=0;
|
|
eval{
|
|
$checker=Net::Connection::Match->new();
|
|
$worked=1;
|
|
};
|
|
ok( $worked eq '0', 'empty init check') or diag('Calling new with empty args worked');
|
|
|
|
# makes sure we can init with good args
|
|
$worked=0;
|
|
eval{
|
|
$checker=Net::Connection::Match->new( \%args );
|
|
$worked=1;
|
|
};
|
|
ok( $worked eq '1', 'init check') or diag('Calling Net::Connection::Match::Ports->new resulted in... '.$@);
|
|
|
|
# make sure it will not accept a improper ref type
|
|
my $returned;
|
|
eval{
|
|
$returned=$checker->match($checker);
|
|
};
|
|
ok( $checker->error eq '2', 'match improper ref check') or diag('match accepted a ref other than Net::Connection');
|
|
|
|
# make sure it will not accept null input
|
|
eval{
|
|
$returned=$checker->match();
|
|
};
|
|
ok( $checker->error eq '2', 'match null input check') or diag('match accepted null input');
|
|
|
|
# Create a matching connection and see if it matches
|
|
my $conn=Net::Connection->new( $connection_args );
|
|
$returned=0;
|
|
eval{
|
|
$returned=$checker->match($conn);
|
|
};
|
|
ok( $returned eq '1', 'match good conn check') or diag('match failed on a connection that should match');
|
|
|
|
# Create a non-matching connection and see if it matches
|
|
my $nm_conn=Net::Connection->new( $nm_connection_args );
|
|
$returned=0;
|
|
eval{
|
|
$returned=$checker->match($nm_conn);
|
|
};
|
|
ok( $returned eq '0', 'match bad conn check') or diag('match on a connection that should not match');
|
|
|
|
# makes sure we can init with good args
|
|
$worked=0;
|
|
eval{
|
|
$checker=Net::Connection::Match->new( \%args2 );
|
|
$worked=1;
|
|
};
|
|
ok( $worked eq '1', 'init check2') or diag('Calling Net::Connection::Match::Ports->new resulted in... '.$@);
|
|
|
|
# Create a matching connection and see if it matches
|
|
$returned=0;
|
|
eval{
|
|
$returned=$checker->match($conn);
|
|
};
|
|
ok( $returned eq '1', 'match good conn check2') or diag('match failed on a connection that should match');
|
|
|
|
done_testing(9);
|