view release on metacpan or  search on metacpan

t/33-foundation-run.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use File::Temp qw( tempdir );
use Path::Tiny qw( path );

use App::karr::Foundation;

# Isolate HOME so the default ~/.config/karr-foundation/config.yml path
# cannot resolve to a real file on the machine running the tests. Every
# _run_command call below reaches it through _prompt_for (no prompt/ticket
# override is given), so this covers the whole file rather than one subtest
# the way t/30-foundation.t does.
local $ENV{HOME} = tempdir( CLEANUP => 1 );

my $f = App::karr::Foundation->new;

subtest 'captures output and exit code, appends to .karr.log' => sub {
  my $repo = path( tempdir( CLEANUP => 1 ) );
  my ( $code, $out ) = $f->_run_command( $repo, { max_runtime => 60 }, 'echo hello-karr' );
  is $code, 0, 'exit code 0';
  like $out, qr/hello-karr/, 'stdout captured into in-memory buffer';
  like $repo->child('.karr.log')->slurp_utf8, qr/hello-karr/, 'output also appended to .karr.log';
};

subtest 'non-zero exit code propagates' => sub {
  my $repo = path( tempdir( CLEANUP => 1 ) );
  my ( $code, $out ) = $f->_run_command( $repo, { max_runtime => 60 }, 'exit 7' );
  is $code, 7, 'exit code 7 propagated';
};

subtest 'merges stderr into the captured output' => sub {
  my $repo = path( tempdir( CLEANUP => 1 ) );
  my ( $code, $out ) = $f->_run_command( $repo, { max_runtime => 60 }, 'echo oops >&2' );
  like $out, qr/oops/, 'stderr merged into output';
};

subtest 'max_runtime: 0 disables the timeout' => sub {
  my $repo = path( tempdir( CLEANUP => 1 ) );
  my ( $code, $out ) = $f->_run_command( $repo, { max_runtime => 0 }, 'echo nolimit' );
  is $code, 0, 'runs to completion with no deadline';
  like $out, qr/nolimit/, 'output captured under undef-timeout path';
};

subtest 'timeout sends SIGTERM then SIGKILL and reports 143' => sub {
  # Ticket #164: timeout kills the agent's process group with SIGTERM,
  # escalates to SIGKILL, and reports the agent's exit status as the
  # conventional 128 + signum. Old behaviour reported -1 (a magic number
  # indistinguishable from "agent ran with exit -1") and killed only the
  # agent process — children inherited init and survived, so the next
  # tick saw a still-running karr-foundation and skipped the board (#148).
  my $repo = path( tempdir( CLEANUP => 1 ) );
  my $start = time;
  my ( $code, $out ) = $f->_run_command( $repo, { max_runtime => 1 }, 'sleep 30' );
  is $code, 143, 'timed-out run reports 128+SIGTERM';
  ok time - $start < 10, 'killed promptly, not after the full sleep';
};

done_testing;