diff --git a/t/Session/Http.t b/t/Session/Http.t index b6a27bd36..288be156c 100644 --- a/t/Session/Http.t +++ b/t/Session/Http.t @@ -27,11 +27,17 @@ my $num_tests = 71; plan tests => $num_tests; my $session = WebGUI::Test->session; - -# put your tests here my $http = $session->http; +use Test::MockObject::Extends; + +$http = Test::MockObject::Extends->new($http); +my $cookieName = $session->config->getCookieName; +my $varId = $session->var->getId(); + +$http->mock( getCookies => sub { return {$cookieName => $varId} } ); + isa_ok($http, 'WebGUI::Session::Http', 'session has correct object type'); ####################################################