bzr push into mysql-5.1 branch (msvensson:2684 to 2686) WL#4189

[Magnus Svensson]

 2686 Magnus Svensson	2008-09-15
      WL#4189 mtr, hang if worker fails before connected to server
modified:
  mysql-test/mysql-test-run.pl

 2685 Magnus Svensson	2008-09-15
      WL#4189 mtr --embedded from binary distribution
modified:
  mysql-test/mysql-test-run.pl

 2684 Magnus Svensson	2008-09-11
      WL#4350 Fix --record and no .result file
modified:
  mysql-test/lib/mtr_cases.pm
  mysql-test/mysql-test-run.pl

=== modified file 'mysql-test/mysql-test-run.pl'
--- a/mysql-test/mysql-test-run.pl	2008-09-11 20:05:44 +0000
+++ b/mysql-test/mysql-test-run.pl	2008-09-15 10:15:08 +0000
@@ -612,6 +612,16 @@ sub run_worker ($) {
 
   $SIG{INT}= sub { exit(1); };
 
+  # Connect to server
+  my $server = new IO::Socket::INET
+    (
+     PeerAddr => 'localhost',
+     PeerPort => $server_port,
+     Proto    => 'tcp'
+    );
+  mtr_error("Could not connect to server at port $server_port: $!")
+    unless $server;
+
   # --------------------------------------------------------------------------
   # Set worker name
   # --------------------------------------------------------------------------
@@ -634,16 +644,6 @@ sub run_worker ($) {
 
   environment_setup();
 
-  # Connect to server
-  my $server = new IO::Socket::INET
-    (
-     PeerAddr => 'localhost',
-     PeerPort => $server_port,
-     Proto    => 'tcp'
-    );
-  mtr_error("Could not connect to server at port $server_port: $!")
-    unless $server;
-
   # Read hello from server which it will send when shared
   # resources have been setup
   my $hello= <$server>;
@@ -1523,8 +1523,9 @@ sub mysql_client_test_arguments(){
   # mysql_client_test executable may _not_ exist
   if ( $opt_embedded_server ) {
     $exe= mtr_exe_maybe_exists(
-	    vs_config_dirs('libmysqld/examples','mysql_client_test_embedded'),
-	    "$basedir/libmysqld/examples/mysql_client_test_embedded");
+            vs_config_dirs('libmysqld/examples','mysql_client_test_embedded'),
+	      "$basedir/libmysqld/examples/mysql_client_test_embedded",
+		"$basedir/bin/mysql_client_test_embedded");
   } else {
     $exe= mtr_exe_maybe_exists(vs_config_dirs('tests', 'mysql_client_test'),
 			       "$basedir/tests/mysql_client_test",