# HG changeset patch
# User Rob Hoelz <rob@hoelz.ro>
# Date 1355175263 -3600
# Node ID a8e777e2d44f3bd542bb2e65f0a027c0934e4d25
# Parent  7aaf5d8750a312143aeb1294516af30b78668f41
Test login for user 'seven'

diff -r 7aaf5d8750a3 -r a8e777e2d44f mod_lib_ldap/dev/t/00-login.t
--- a/mod_lib_ldap/dev/t/00-login.t	Mon Dec 10 22:34:06 2012 +0100
+++ b/mod_lib_ldap/dev/t/00-login.t	Mon Dec 10 22:34:23 2012 +0100
@@ -14,7 +14,7 @@
     'six',
 );
 
-plan tests => scalar(@users) + 2;
+plan tests => scalar(@users) + 3;
 
 foreach my $username (@users) {
     my $conn = TestConnection->new($username);
@@ -48,3 +48,14 @@
     my $error = $conn->cond->recv;
     ok($error);
 };
+
+do {
+    my $conn = TestConnection->new('seven', password => '1234567');
+
+    $conn->reg_cb(session_ready => sub {
+        $conn->cond->send;
+    });
+
+    my $error = $conn->cond->recv;
+    ok($error);
+};