[perl5.git] / dist / ExtUtils-ParseXS / t / 109-standard_XS_defs.t

#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
use Test::More tests => 5;
use lib qw( lib t/lib );
use ExtUtils::ParseXS::Utilities qw(
    standard_XS_defs
);
use PrimitiveCapture;

my @statements = (
    '#ifndef PERL_UNUSED_VAR',
    '#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE',
    '#ifdef PERL_IMPLICIT_CONTEXT',
    '#ifdef newXS_flags',
);

my $stdout = PrimitiveCapture::capture_stdout(sub {
  standard_XS_defs();
});

foreach my $s (@statements) {
    like( $stdout, qr/$s/s, "Printed <$s>" );
}

pass("Passed all tests in $0");
Commit	Line	Data
e6de4093 JK	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
361d4be6 JK	4	$\| = 1;
	5	use Test::More tests => 5;
	6	use lib qw( lib t/lib );
e6de4093 JK	7	use ExtUtils::ParseXS::Utilities qw(
	8	standard_XS_defs
	9	);
361d4be6 JK	10	use PrimitiveCapture;
	11
	12	my @statements = (
	13	'#ifndef PERL_UNUSED_VAR',
	14	'#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE',
	15	'#ifdef PERL_IMPLICIT_CONTEXT',
	16	'#ifdef newXS_flags',
	17	);
	18
	19	my $stdout = PrimitiveCapture::capture_stdout(sub {
	20	standard_XS_defs();
	21	});
	22
	23	foreach my $s (@statements) {
	24	like( $stdout, qr/$s/s, "Printed <$s>" );
	25	}
e6de4093 JK	26
e6de4093 JK	27	pass("Passed all tests in $0");