#!/usr/bin/perl -w

use strict;

use Test::More tests => 11;
use Test::Identity;
use Test::Refcount;

use Net::LibAsyncNS;

use Socket qw( SOCK_STREAM AF_INET );

my $asyncns = Net::LibAsyncNS->new( 1 );
is_oneref( $asyncns, '$asyncns has refcount 1 initially' );

my %hints = (
   family   => AF_INET,
   socktype => SOCK_STREAM,
);
my $query = $asyncns->getaddrinfo( "localhost", "12345", \%hints );

is( $asyncns->getnqueries, 1, '$asyncns->getnqueries now 1' );
is_refcount( $asyncns, 2, '$asyncns has refcount 2 after ->getaddrinfo' );

identical( $asyncns->getuserdata( $query ), undef, '$asyncns->getuserdata( $q ) initially returns undef' );

my $data = [ "Some data here" ];

$asyncns->setuserdata( $query, $data );

is_refcount( $data, 2, '$data has refcount 2 after ->setuserdata' );

identical( $asyncns->getuserdata( $query ), $data, '$asyncns->getuserdata( $q ) returns identical ref' );
identical( $query->getuserdata, $data, '$query->getuserdata returns identical ref' );

$query->setuserdata( "A simple string now" );

is_oneref( $data, '$data has refcount 1 after $query->setuserdata' );

$_ = "" for $query->getuserdata;
is( $query->getuserdata, "A simple string now", '$query->getuserdata yields copies not aliases of stored data' );

$asyncns->cancel( $query );

undef $query;

is( $asyncns->getnqueries, 0, '$asyncns->getnqueries 0 after cancel' );
is_oneref( $asyncns, '$asyncns has refcount 1 after ->cancel' );