percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-17 17:27:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix Client to expect X-Percona-Resource-Type else links. Add headers to Mock/UserAgent. Start testing run_agent(). As TO_JSON() magic to Run so encode can encode Service contain blessed Run objs. Use BUILDARGS to convert Run as hashref to real objs.

Browse Source
This commit is contained in:
Daniel Nichter
2012-12-26 13:00:46 -07:00
parent 87080d44b2
commit 66fb54e793
9 changed files with 427 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Percona/Test/Mock/UserAgent.pm
View File

@@ -44,12 +44,14 @@ sub request {
if ( $type eq 'post' || $type eq 'put' ) {
$self->{content}->{$type} = $req->content;
}
my $r = shift @{$self->{responses}->{$type}};
my $c = $self->{encode}->($r->{content});
my $r = shift @{$self->{responses}->{$type}};
my $c = $self->{encode}->($r->{content});
my $h = HTTP::Headers->new;
$h->header(%{$r->{headers}}) if exists $r->{headers};
my $res = HTTP::Response->new(
$r->{code} || 200,
'',
HTTP::Headers->new,
$h,
$c,
);
return $res;