Adapt unit test for Register LDAP (#1338)
This commit is contained in:
parent
46a3df41ac
commit
ca61f22254
|
@ -83,10 +83,11 @@ SKIP: {
|
|||
$pwd = $2;
|
||||
ok( $user eq 'fbar', 'Get good login' );
|
||||
|
||||
my $postString = 'user='.$user.'&password='.$pwd;
|
||||
ok(
|
||||
$res = $client->_post(
|
||||
'/', IO::String->new('user=fbar&password=fbar'),
|
||||
length => 23,
|
||||
'/', IO::String->new($postString),
|
||||
length => length($postString),
|
||||
accept => 'text/html'
|
||||
),
|
||||
'Try to authenticate'
|
||||
|
|
Loading…
Reference in New Issue
Block a user