view release on metacpan or  search on metacpan

t/185-foundation-ticket-mode.t  view on Meta::CPAN

  ok length $base, 'the checkout has a claim-safe base name';

  my ( undef, $out ) = $f->_run_command( $rdir, {}, 'printf "[%s]" "$KARR_CLAIM"' );
  like $out, qr/\A\[\Q$base\E-[a-z0-9]{3}\]\z/,
    'KARR_CLAIM is the checkout name with a per-run suffix';

  # Minted once per child and inherited by every nested call: the two reads a
  # single run makes see one value, not a fresh one each time.
  my ( undef, $twice ) =
    $f->_run_command( $rdir, {}, 'printf "[%s][%s]" "$KARR_CLAIM" "$KARR_CLAIM"' );
  like $twice, qr/\A\[(\Q$base\E-[a-z0-9]{3})\]\[\g{1}\]\z/,
    'the same value within one run, not re-minted per reference';
};

# ---------------------------------------------------------------------------
# Integration: one run, one ticket, and back
# ---------------------------------------------------------------------------

subtest 'ticket mode runs the agent once, on the card it named' => sub {
  my $repo = make_git_repo();
  seed_board( $repo,