use strict;
use warnings;
use Test::More tests => 5;
use Net::Proxy;

my $proxy = Net::Proxy->new(
    {
        in  => { type => 'dummy' },
        out => { type => 'dummy' },
    }
);

isnt( $proxy->in_connector(), $proxy->out_connector(), 'Distinct connectors' );

ok( $proxy->in_connector()->is_in(),   'in_connector() is "in"' );
ok( !$proxy->out_connector()->is_in(), 'out_connector() is not "in"' );
ok( !$proxy->in_connector()->is_out(), 'in_connector() is not "out"' );
ok( $proxy->out_connector()->is_out(), 'out_connector() is "out"' );