
#
# 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/have_ipv6.inc
--source include/have_perfschema.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

grant select on test.* to 'root'@'2001:db8::6:6';
grant select on test.* to 'root'@'santa.claus.ipv6.example.com';

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

--connection default
set global debug= "+d,vio_peer_addr_fake_ipv6,getnameinfo_error_again";

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

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

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

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

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

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

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

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

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

revoke select on test.* from 'root'@'2001:db8::6:6';
revoke select on test.* from 'root'@'santa.claus.ipv6.example.com';
drop user 'root'@'2001:db8::6:6';
drop user 'root'@'santa.claus.ipv6.example.com';

set global debug= default;

