mirror/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-01-15 19:42:28 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

More fixed for perl test

Browse source
This commit is contained in:
Oleksandr Byelkin 2019-05-19 20:35:38 +02:00
parent 8feb78ef53
commit 04fa127bc9
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mysql-test/main/connect.test
View file

@ -487,9 +487,10 @@ SET GLOBAL connect_timeout=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";;
sleep 3;
exit(0);
EOF