File: 12proxy_connectors.t

package info (click to toggle)
libnet-proxy-perl 0.12-5
  • links: PTS
  • area: main
  • in suites: squeeze, wheezy
  • size: 304 kB
  • ctags: 66
  • sloc: perl: 777; sh: 84; makefile: 44
file content (18 lines) | stat: -rw-r--r-- 548 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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"' );