[perl5.git] / dist / ExtUtils-ParseXS / t / 115-avoid-noise.t

#!/usr/bin/perl -w
use strict;
use warnings;
use File::Spec;
use Test::More tests =>  1;
use lib (-d 't' ? File::Spec->catdir(qw(t lib)) : 'lib');
use ExtUtils::ParseXS qw(process_file);

chdir('t') if -d 't';

# Module-Build uses ExtUtils::ParseXS with $^W set, try to avoid
# warning in that case.

{
  my $out;
  open my $out_fh, ">", \$out;
  my @warnings;
  local $SIG{__WARN__} = sub { push @warnings, "@_" };
  process_file(filename => "XSWarn.xs", output => $out_fh);
  is_deeply(\@warnings, [], "shouldn't be any warnings");
}
Commit	Line	Data
3f305fad TC	1	#!/usr/bin/perl -w
	2	use strict;
	3	use warnings;
	4	use File::Spec;
	5	use Test::More tests => 1;
9219b114	6	use lib (-d 't' ? File::Spec->catdir(qw(t lib)) : 'lib');
3f305fad TC	7	use ExtUtils::ParseXS qw(process_file);
3f305fad TC	8
9219b114	9	chdir('t') if -d 't';
3f305fad TC	10
	11	# Module-Build uses ExtUtils::ParseXS with $^W set, try to avoid
	12	# warning in that case.
	13
	14	{
3f305fad TC	15	my $out;
	16	open my $out_fh, ">", \$out;
	17	my @warnings;
	18	local $SIG{__WARN__} = sub { push @warnings, "@_" };
	19	process_file(filename => "XSWarn.xs", output => $out_fh);
	20	is_deeply(\@warnings, [], "shouldn't be any warnings");
	21	}