RT #83900 seems to need explicit server->stop call

diff --git a/t/04-user_class.t b/t/04-user_class.t
index 29a32f8..cd579f7 100644 (file)
--- a/t/04-user_class.t
+++ b/t/04-user_class.t
@@ -42,6 +42,10 @@ SKIP: {
 
     is( $user->my_method, 'frobnitz', "methods on user class work" );
 
+    # RT 69615
+    diag("stop() server");
+    $server->stop();
+
     $server = LDAPTest::spawn_server();
     ok $user->check_password('foo'), 'Can check password';
 
@@ -49,5 +53,9 @@ SKIP: {
     lives_ok { $frozen_user = freeze $user } 'Can freeze user with Storable';
     ok $frozen_user, 'is frozen';
 
+    # RT 69615
+    diag("stop() server");
+    $server->stop();
+
 }