diff options
Diffstat (limited to 'lib/Net/HTTP')
-rw-r--r-- | lib/Net/HTTP/Spore/Middleware/Mock.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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; } |