summaryrefslogtreecommitdiff
path: root/mysql-test/lib/My/Test.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mysql-test/lib/My/Test.pm')
-rw-r--r--mysql-test/lib/My/Test.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/mysql-test/lib/My/Test.pm b/mysql-test/lib/My/Test.pm
index 890ae76b282..68b100f91af 100644
--- a/mysql-test/lib/My/Test.pm
+++ b/mysql-test/lib/My/Test.pm
@@ -26,9 +26,7 @@ sub new {
#
sub key {
my ($self)= @_;
- my $key= $self->{name};
- $key.= "+".$self->{combination} if $self->{combination};
- return $key;
+ return $self->{key};
}
@@ -57,6 +55,9 @@ sub is_failed {
sub write_test {
my ($test, $sock, $header)= @_;
+ # Give the test a unique key before serializing it
+ $test->{key}= "$test" unless defined $test->{key};
+
print $sock $header, "\n";
while ((my ($key, $value)) = each(%$test)) {
print $sock $key, "= ";