changeset 874:a8e777e2d44f

Test login for user 'seven'
author Rob Hoelz <rob@hoelz.ro>
date Mon, 10 Dec 2012 22:34:23 +0100
parents 7aaf5d8750a3
children ce7a128d139d
files mod_lib_ldap/dev/t/00-login.t
diffstat 1 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);
+};