#
#===============================================================================
#
#         FILE:  03-directi.t
#
#  DESCRIPTION:  DirectI test
#
#        FILES:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Pavel Boldin (), <davinchi@cpan.org>
#      COMPANY:  
#      VERSION:  1.0
#      CREATED:  17.07.2009 04:19:36 MSD
#     REVISION:  ---
#===============================================================================

use strict;
use warnings;

use Test::More tests => 2;                      # last test to print


my $m = 'POE::Component::Client::Whois::Smart::DirectI';

use_ok( $m );

my $self = bless {}, $m;

$self->_response(
    {
	domains => [ 'reg.com' ],
	data => {
	    'reg.com' => {
		status => 'regthroughothers',
	    },
	},
    },
);

is_deeply( $self->{result}, {
	'directi:reg.com' => [
	    {
		query => 'reg.com',
		whois => 'regthroughothers',
		server => 'directi',
		error => undef,
	    }
	],
    },
    '->_response call');