percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-26 15:31:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Sort items in Pingback.t like they're sorted in Pingback.pm to avoid failing tests on some platforms.

Browse Source
This commit is contained in:
Daniel Nichter
2012-10-06 11:39:02 -06:00
parent cdef559be6
commit 9f2f0f2c38
1 changed files with 67 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
t/lib/Pingback.t
View File

@@ -126,9 +126,19 @@ sub test_pingback {
);
}
my $expect_post;
if ( $args{post} ) {
$expect_post = join("\n",
map { "$_->{id};$_->{item};$_->{val}" }
sort {
$a->{item} cmp $b->{item} ||
$a->{id} cmp $b->{id}
} @{$args{post}});
$expect_post .= "\n";
}
is(
$post ? ($post->{content} || '') : '',
$args{post},
$expect_post || '',
"$args{name} client response"
);
@@ -152,7 +162,18 @@ test_pingback(
}
],
# client should POST this
post => "$general_id;Data::Dumper;$dd_ver\n$general_id;Perl;$perl_ver\n",
post => [
{
item => 'Data::Dumper',
id => $general_id,
val => $dd_ver,
},
{
item => 'Perl',
id => $general_id,
val => $perl_ver,
},
],
# Server should return these suggetions after the client posts
sug => [
'Data::Printer is nicer.',
@@ -174,7 +195,18 @@ test_pingback(
content => "",
}
],
post => "$general_id;Data::Dumper;$dd_ver\n$general_id;Perl;$perl_ver\n",
post => [
{
item => 'Data::Dumper',
id => $general_id,
val => $dd_ver,
},
{
item => 'Perl',
id => $general_id,
val => $perl_ver,
},
],
sug => undef,
);
@@ -184,7 +216,7 @@ test_pingback(
name => "No response to GET",
response => [],
no_response => 1,
post => "",
post => undef,
sug => undef,
);
@@ -199,7 +231,18 @@ test_pingback(
content => "Perl;perl_version;PERL_VERSION\nData::Dumper;perl_module_version\n",
},
],
post => "$general_id;Data::Dumper;$dd_ver\n$general_id;Perl;$perl_ver\n",
post => [
{
id => $general_id,
item => 'Data::Dumper',
val => $dd_ver,
},
{
id => $general_id,
item => 'Perl',
val => $perl_ver,
},
],
sug => undef,
);
@@ -223,7 +266,13 @@ SKIP: {
}
],
# client should POST this
post => "$master_id;MySQL;$mysql_ver $mysql_distro\n",
post => [
{
id => $master_id,
item => 'MySQL',
val => "$mysql_ver $mysql_distro",
}
],
# Server should return these suggetions after the client posts
sug => ['Percona Server is fast.'],
);
@@ -440,7 +489,18 @@ SKIP: {
}
],
# client should POST this
post => "$slave1_id;MySQL;$mysql_ver $mysql_distro\n$master_id;MySQL;$mysql_ver $mysql_distro\n",
post => [
{
id => $slave1_id,
item => 'MySQL',
val => "$mysql_ver $mysql_distro",
},
{
id => $master_id,
item => 'MySQL',
val => "$mysql_ver $mysql_distro",
}
],
# Server should return these suggetions after the client posts
sug => [
'Percona Server is fast.',