Comparison

Add LDAP plugin suite

comparison

equal deleted inserted replaced

-:ba2e207e1fb7
+:1d51c5e38faa
+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;