package TestConnection;

use strict;

use warnings;

use parent 'AnyEvent::XMPP::IM::Connection';

use 5.010;

our $HOST         = 'localhost';

our $TIMEOUT      = 5;

our %PASSWORD_FOR = (

    one   => '12345',

    two   => '23451',

    three => '34512',

    four  => '45123',

    five  => '51234',

);

sub new {

    my ( $class, $username, %options ) = @_;

    my $cond  = AnyEvent->condvar;

    my $timer = AnyEvent->timer(

        after => $TIMEOUT,

        cb    => sub {

            $cond->send('timeout');

        },

    );

    my $self = $class->SUPER::new(

        username => $username,

        domain   => $HOST,

        password => $options{'password'} // $PASSWORD_FOR{$username},

    );

    $self->reg_cb(error => sub {

        my ( undef, $error ) = @_;

        $cond->send($error->string);

    });

    bless $self, $class;

    $self->{'condvar'}       = $cond;

    $self->{'timeout_timer'} = $timer;

    $self->connect;

    return $self;

}

sub cond {

    my ( $self ) = @_;

    return $self->{'condvar'};

}

1;