use strict;
use Test::More tests => 7;
use HTTP::Proxy;

my $proxy;

$proxy = HTTP::Proxy->new;
is_deeply( $proxy->stash, {}, "Empty stash by default" );

$proxy = HTTP::Proxy->new( stash => { clunk => 'slosh', plop => 'biff' } );
is( $proxy->stash('clunk'), 'slosh', "get clunk from stash" );
is( $proxy->stash('plop'),  'biff',  "get plop from stash" );
is_deeply(
    $proxy->stash,
    { clunk => 'slosh', plop => 'biff' },
    "the whole hash"
);

is( $proxy->stash( clunk => 'sock' ), 'sock', "set returns the new value" );
is( $proxy->stash('clunk'), 'sock', "the new value is set" );

my $h = $proxy->stash;
%$h = ( thwack => 'spla_a_t', rip => 'uggh', zowie => 'thwape' );
is_deeply(
    $proxy->stash,
    { thwack => 'spla_a_t', rip => 'uggh', zowie => 'thwape' },
    "stash() is a reference to the stash itself"
);