create our generate_port method

refactoring in RT::Test was lost somewhere

lib/RT/Authen/ExternalAuth/Test.pm

@@ -53,7 +53,7 @@ my %ldap;
 sub bootstrap_ldap_server {
     my $self = shift;
 
-    my $port = RT::Test->generate_port;
+    my $port = $self->generate_port;
 
     require Net::LDAP::Server::Test;
     my $server = Net::LDAP::Server::Test->new( $port, auto_schema => 1 );
@@ -97,6 +97,10 @@ sub bootstrap_ldap_basics {
     return ($server, $client);
 }
 
+sub generate_port {
+    return 1024 + int rand(10000) + $$ % 1024;
+}
+
 sub add_ldap_user {
     my $self = shift;
     my %args = @_;