percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-25 13:46:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Updated t/lib/Pingback.t to use the new type names

Browse Source
This commit is contained in:
Brian Fraser
2012-08-09 16:45:29 -03:00
parent d8bb594059
commit 4a04837378
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/Pingback.pm
View File

@@ -28,10 +28,15 @@ use English qw(-no_match_vars);
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0;
use Data::Dumper ();
sub Dumper {
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Quotekeys = 0;
Data::Dumper::Dumper(@_);
}
local $EVAL_ERROR;
eval {

4
t/lib/Pingback.t
View File

@@ -79,11 +79,11 @@ test_pingback(
# Client gets this from the server:
get => [
{ status => 200,
content => "Perl;perl_variable;PERL_VERSION\nData::Dumper;perl_variable\n",
content => "Perl;perl_version;PERL_VERSION\nData::Dumper;perl_module_version\n",
},
],
# And it responds with this:
post => "Data::Dumper;perl_variable;$dd_ver\nPerl;perl_variable;$perl_ver\n",
post => "Data::Dumper;perl_module_version;$dd_ver\nPerl;perl_version;$perl_ver\n",
);
# #############################################################################