diff options
Diffstat (limited to 'mysql-test/lib/My/Test.pm')
-rw-r--r-- | mysql-test/lib/My/Test.pm | 7 |
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, "= "; |