diff options
| -rw-r--r-- | mysql-test/main/connect.result | 4 | ||||
| -rw-r--r-- | mysql-test/main/connect.test | 11 |
2 files changed, 11 insertions, 4 deletions
diff --git a/mysql-test/main/connect.result b/mysql-test/main/connect.result index 49d76c5c576..54893edd340 100644 --- a/mysql-test/main/connect.result +++ b/mysql-test/main/connect.result @@ -421,6 +421,10 @@ Aborted_connects 0 Aborted_connects_preauth 0 SET GLOBAL log_warnings=2; NOT FOUND /This connection closed normally without authentication/ in mysqld.1.err +# let tcp to detect disconnect +select sleep(1); +sleep(1) +0 SHOW GLOBAL STATUS LIKE 'Aborted_connects%'; Variable_name Value Aborted_connects 1 diff --git a/mysql-test/main/connect.test b/mysql-test/main/connect.test index 2c6e4ae17a2..d0683cf7a4a 100644 --- a/mysql-test/main/connect.test +++ b/mysql-test/main/connect.test @@ -471,11 +471,14 @@ SET GLOBAL log_warnings=2; --perl use Socket; -use autodie; -socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp")); -connect(SOCK, pack_sockaddr_in($ENV{MASTER_MYPORT}, inet_aton("localhost"))); +socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp")) + or die "Can't create a tcp socket!\n"; +connect(SOCK, pack_sockaddr_in($ENV{MASTER_MYPORT}, inet_aton("localhost"))) + or die "Can't connect to port $ENV{MASTER_MYPORT}!\n"; exit(0); EOF +--echo # let tcp to detect disconnect +select sleep(1); SHOW GLOBAL STATUS LIKE 'Aborted_connects%'; @@ -490,7 +493,7 @@ use Socket; socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp")) or die "Can't create a tcp socket!\n"; connect(SOCK, pack_sockaddr_in($ENV{MASTER_MYPORT}, inet_aton("localhost"))) - or die "Can't connect to port $ENV{MASTER_MYPORT}!\n";; + or die "Can't connect to port $ENV{MASTER_MYPORT}!\n"; sleep 3; exit(0); EOF |