Commit 9c058f96 authored by Ruslan Zakirov's avatar Ruslan Zakirov
Browse files

make test pass

parent 56f4748a
use strict; use strict;
use warnings; use warnings;
use RT::Authen::ExternalAuth::Test ldap => 1, tests => 16; use RT::Authen::ExternalAuth::Test ldap => 1, tests => 18;
my $class = 'RT::Authen::ExternalAuth::Test'; my $class = 'RT::Authen::ExternalAuth::Test';
my ($server, $client) = $class->bootstrap_ldap_basics; my ($server, $client) = $class->bootstrap_ldap_basics;
......
use strict; use strict;
use warnings; use warnings;
use RT::Authen::ExternalAuth::Test ldap => 1, tests => 13; use RT::Authen::ExternalAuth::Test ldap => 1, tests => 15;
my $class = 'RT::Authen::ExternalAuth::Test'; my $class = 'RT::Authen::ExternalAuth::Test';
......
use strict; use strict;
use warnings; use warnings;
use RT::Authen::ExternalAuth::Test ldap => 1, tests => 18; use RT::Authen::ExternalAuth::Test ldap => 1, tests => 20;
my $class = 'RT::Authen::ExternalAuth::Test'; my $class = 'RT::Authen::ExternalAuth::Test';
my ($server, $client) = $class->bootstrap_ldap_basics; my ($server, $client) = $class->bootstrap_ldap_basics;
......
use strict; use strict;
use warnings; use warnings;
use RT::Test tests => undef, testing => 'RT::Authen::ExternalAuth'; use RT::Authen::ExternalAuth::Test tests => undef, ldap => 1;
use Net::LDAP;
use RT::Authen::ExternalAuth;
eval { require Net::LDAP::Server::Test; 1; } or do {
plan skip_all => 'Unable to test without Net::Server::LDAP::Test';
};
my $ldap_port = 1024 + int rand(10000) + $$ % 1024; my $ldap_port = 1024 + int rand(10000) + $$ % 1024;
ok( my $server = Net::LDAP::Server::Test->new( $ldap_port, auto_schema => 1 ), ok( my $server = Net::LDAP::Server::Test->new( $ldap_port, auto_schema => 1 ),
......
...@@ -6,14 +6,7 @@ BEGIN { ...@@ -6,14 +6,7 @@ BEGIN {
$ENV{RT_TEST_WEB_HANDLER} = 'inline'; $ENV{RT_TEST_WEB_HANDLER} = 'inline';
} }
use RT::Test tests => undef, testing => 'RT::Authen::ExternalAuth'; use RT::Authen::ExternalAuth::Test tests => undef, ldap => 1;
use Net::LDAP;
use RT::Authen::ExternalAuth;
eval { require Net::LDAP::Server::Test; 1; } or do {
plan skip_all => 'Unable to test without Net::Server::LDAP::Test';
};
my $ldap_port = 1024 + int rand(10000) + $$ % 1024; my $ldap_port = 1024 + int rand(10000) + $$ % 1024;
ok( my $server = Net::LDAP::Server::Test->new( $ldap_port, auto_schema => 1 ), ok( my $server = Net::LDAP::Server::Test->new( $ldap_port, auto_schema => 1 ),
......
use strict; use strict;
use warnings; use warnings;
use RT::Test testing => 'RT::Authen::ExternalAuth'; use RT::Authen::ExternalAuth::Test;
RT->Config->Set( RT->Config->Set(
ExternalSettings => { ExternalSettings => {
......
use strict; use strict;
use warnings; use warnings;
use RT::Test testing => 'RT::Authen::ExternalAuth'; use RT::Authen::ExternalAuth::Test;
use DBI; use DBI;
use File::Temp; use File::Temp;
use Digest::MD5; use Digest::MD5;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment