1use Test::More tests => 2;
2use HTTP::Proxy;
3use HTTP::Proxy::HeaderFilter;
4use HTTP::Proxy::BodyFilter;
5
6my $proxy = HTTP::Proxy->new( port => 0 );
7
8my $filter = HTTP::Proxy::HeaderFilter->new;
9$proxy->push_filter( request => $filter );
10is( $filter->proxy, $proxy, "The HeaderFilter knows its proxy" );
11
12$filter = HTTP::Proxy::BodyFilter->new;
13$proxy->push_filter( response => $filter );
14is( $filter->proxy, $proxy, "The BodyFilter knows its proxy" );
15
16