Mercurial > prosody-modules

comparison mod_lib_ldap/dev/t/00-login.t @ 874:a8e777e2d44f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Test login for user 'seven'
author Rob Hoelz <rob@hoelz.ro>
date Mon, 10 Dec 2012 22:34:23 +0100
parents a93cb608db2c
children 512e31cd8b70
comparison
equal deleted inserted replaced
873:7aaf5d8750a3 874:a8e777e2d44f
12 'four', 12 'four',
13 'five', 13 'five',
14 'six', 14 'six',
15 ); 15 );
16 16
17 plan tests => scalar(@users) + 2; 17 plan tests => scalar(@users) + 3;
18 18
19 foreach my $username (@users) { 19 foreach my $username (@users) {
20 my $conn = TestConnection->new($username); 20 my $conn = TestConnection->new($username);
21 21
22 $conn->reg_cb(session_ready => sub { 22 $conn->reg_cb(session_ready => sub {
46 }); 46 });
47 47
48 my $error = $conn->cond->recv; 48 my $error = $conn->cond->recv;
49 ok($error); 49 ok($error);
50 }; 50 };
51
52 do {
53 my $conn = TestConnection->new('seven', password => '1234567');
54
55 $conn->reg_cb(session_ready => sub {
56 $conn->cond->send;
57 });
58
59 my $error = $conn->cond->recv;
60 ok($error);
61 };