comparison mod_lib_ldap/dev/t/00-login.t @ 867:a93cb608db2c

Print the username if a test login fails
author Rob Hoelz <rob@hoelz.ro>
date Mon, 10 Dec 2012 22:05:24 +0100
parents 8495dae58d78
children a8e777e2d44f
comparison
equal deleted inserted replaced
866:8495dae58d78 867:a93cb608db2c
22 $conn->reg_cb(session_ready => sub { 22 $conn->reg_cb(session_ready => sub {
23 $conn->cond->send; 23 $conn->cond->send;
24 }); 24 });
25 25
26 my $error = $conn->cond->recv; 26 my $error = $conn->cond->recv;
27 ok(! $error) or diag($error); 27 ok(! $error) or diag("$username login failed: $error");
28 } 28 }
29 29
30 do { 30 do {
31 my $conn = TestConnection->new('one', password => '23451'); 31 my $conn = TestConnection->new('one', password => '23451');
32 32