blob: b3bbe6177a548b369721e1263976e0e0787c9e33 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/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");
}
|
