changeset 876 | 512e31cd8b70 |
parent 874 | a8e777e2d44f |
875:ce7a128d139d | 876:512e31cd8b70 |
---|---|
37 my $error = $conn->cond->recv; |
37 my $error = $conn->cond->recv; |
38 ok($error); |
38 ok($error); |
39 }; |
39 }; |
40 |
40 |
41 do { |
41 do { |
42 my $conn = TestConnection->new('six', password => '12345'); |
42 my $conn = TestConnection->new('invalid', password => '12345'); |
43 |
43 |
44 $conn->reg_cb(session_ready => sub { |
44 $conn->reg_cb(session_ready => sub { |
45 $conn->cond->send; |
45 $conn->cond->send; |
46 }); |
46 }); |
47 |
47 |