#
# Tests for the performance_schema host_cache.
#
# Simulate failures from DNS:
# - getnameinfo() fails with AGAIN
# - reported in COUNT_NAMEINFO_TRANSIENT_ERRORS

--source include/not_embedded.inc
--source include/have_debug.inc
--source include/check_ipv6.inc
--source include/have_perfschema.inc
--source include/have_hostname_cache.inc

# [Warning] IP address '2001:db8::6:6' could not be resolved:
# Temporary failure in name resolution
call mtr.add_suppression("2001:db8::6:6");

# Enforce a clean state
--source ../include/wait_for_pfs_thread_count.inc
--source ../include/hostcache_set_state.inc

connect (con1,"::1",root,,test,$MASTER_MYPORT,);
select "Con1 is alive";
select current_user();
disconnect con1;

--connection default
SET @saved_dbug = @@GLOBAL.debug_dbug;
set global debug_dbug= "+d,vio_peer_addr_fake_ipv6,getnameinfo_error_again";

--disable_query_log
--error ER_HOST_NOT_PRIVILEGED
connect (con2,"::1",root,,test,$MASTER_MYPORT,);
--enable_query_log

--connection default
--source ../include/hostcache_dump.inc

--disable_query_log
--error ER_HOST_NOT_PRIVILEGED
connect (con3,"::1",root,,test,$MASTER_MYPORT,);
--enable_query_log

--connection default
--source ../include/hostcache_dump.inc

set global debug_dbug= "+d,vio_peer_addr_fake_ipv6,getnameinfo_fake_ipv6,getaddrinfo_fake_good_ipv6";

--disable_query_log
--error ER_HOST_NOT_PRIVILEGED
connect (con4,"::1",root,,test,$MASTER_MYPORT,);
--enable_query_log

--connection default
--source ../include/hostcache_dump.inc

--disable_query_log
--error ER_HOST_NOT_PRIVILEGED
connect (con5,"::1",root,,test,$MASTER_MYPORT,);
--enable_query_log

--connection default
--source ../include/hostcache_dump.inc

SET @@GLOBAL.debug_dbug = @saved_dbug;