test 401-rc-query occasional socket mixup

Sometimes there is a mixup of sockets mixing up in other threads. Below is an example output.

> prove6 -v t/401-rc-query-write.t
...
    ok 1 - insert request ok
    ok 2 - inserted 1 document
 1 2016-07-22 18:25:56 [D] run command insert
5 total sockets open: 0
5 open socket
1 total sockets open: 0
1 open socket
 5 2016-07-22 18:25:56 [T] open socket
 1 2016-07-22 18:25:56 [T] open socket
 5 2016-07-22 18:25:56 [D] socket send, size: 58
 1 2016-07-22 18:25:56 [D] socket send, size: 347
 5 2016-07-22 18:25:56 [D] socket receive, sizes: request=4, received=4
 1 2016-07-22 18:25:56 [D] socket receive, sizes: request=4, received=4
 5 2016-07-22 18:25:56 [D] socket receive, sizes: request=190, received=190
 1 2016-07-22 18:25:56 [T] close socket
Tried to read() on a socket from outside its originating thread
  in method receive at /home/marcel/Languages/Perl6/Projects/mongo-perl6-driver/lib/MongoDB/Server/Socket.pm6 (MongoDB::Server::Socket) line 51
  in method get-bytes at /home/marcel/Languages/Perl6/Projects/mongo-perl6-driver/lib/MongoDB/Wire.pm6 (MongoDB::Wire) line 270
  in method query at /home/marcel/Languages/Perl6/Projects/mongo-perl6-driver/lib/MongoDB/Wire.pm6 (MongoDB::Wire) line 65
  in method find at /home/marcel/Languages/Perl6/Projects/mongo-perl6-driver/lib/MongoDB/Collection.pm6 (MongoDB::Collection) line 111
  in method run-command at /home/marcel/Languages/Perl6/Projects/mongo-perl6-driver/lib/MongoDB/Database.pm6 (MongoDB::Database) line 81
  in block <unit> at t/401-rc-query-write.t line 78
...

MARTIMM / raku-mongodb-driver

test 401-rc-query occasional socket mixup #9