File: 115-avoid-noise.t

package info (click to toggle)
perl 5.20.2-3%2Bdeb8u11
  • links: PTS, VCS
  • area: main
  • in suites: jessie
  • size: 102,964 kB
  • sloc: perl: 555,553; ansic: 214,041; sh: 38,121; pascal: 8,783; cpp: 3,895; makefile: 2,393; xml: 2,325; yacc: 1,741
file content (21 lines) | stat: -rw-r--r-- 536 bytes parent folder | download | duplicates (8)
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");
}