view release on metacpan or  search on metacpan

t/04-lock-protocol.t  view on Meta::CPAN

use v5.28;

use Test::More;
use Capture::Tiny qw(capture);

my $aep = 'bin/aep';

# Test 1: Lock server mode starts scheduler correctly
{
    # Server with no clients will just sit in the event loop.
    # We verify it enters server mode by checking stderr output.
    # Use timeout to prevent hanging (server would run forever).
    my ( $stdout, $stderr, $exit ) = capture {
        local $SIG{ALRM} = sub { die "timeout" };
        alarm(3);
        eval { system( $^X, '-Ilib', $aep, '--lock-server', '--lock-server-order', 'a,b,c' ) };
        alarm(0);
    };
    like( $stderr, qr/lock-server mode/, 'Lock server enters server mode' );
}