view release on metacpan or  search on metacpan

t/pull_6.t  view on Meta::CPAN

  - uses: actions/checkout@v6
  - run: npm test
END_YAML

	my $lib = path(__FILE__)->parent->parent->child('lib')->absolute->stringify;
	my $bin = path(__FILE__)->parent->parent->child('bin/ghgen')->absolute->stringify;

	my $orig = Path::Tiny->cwd;
	chdir $tmpdir;

	my ($stdout, $stderr);
	run3([ perl => "-I$lib", $bin, 'analyze', '--estimate' ],
		  \undef, \$stdout, \$stderr );

	chdir $orig;

	# Regardless of whether savings were non-zero, the literal variable
	# reference must never appear
	unlike($stdout, qr/\$savings->\{cost\}/,
			'output does not contain the uninterpolated variable "$savings->{cost}"' );

	# If the savings block was printed, verify it shows a real dollar amount.
	# Strip ANSI colour codes before matching so the regex stays simple.