From 831c4e751538e2c1ea2d83cf85f0778d18176d9c Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 5 Nov 2010 16:25:34 +0100 Subject: mock call finalize --- lib/Net/HTTP/Spore/Middleware/Mock.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/Net/HTTP/Spore/Middleware/Mock.pm b/lib/Net/HTTP/Spore/Middleware/Mock.pm index 12568bf..d51ab5f 100644 --- a/lib/Net/HTTP/Spore/Middleware/Mock.pm +++ b/lib/Net/HTTP/Spore/Middleware/Mock.pm @@ -10,8 +10,9 @@ has tests => ( isa => 'HashRef', is => 'ro', required => 1 ); sub call { my ( $self, $req ) = @_; + my $finalized_request = $req->finalize; foreach my $r ( keys %{ $self->tests } ) { - next unless $r eq $req->path; + next unless $r eq $finalized_request->uri->path; my $res = $self->tests->{$r}->($req); return $res if defined $res; } -- cgit v1.2.3