View | Details | Raw Unified | Return to bug 10112
Collapse All | Expand All

(-)a/t/00-valid-debian-control-file.t (-1 / +23 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Parse::DebControl;
3
use Test::More;
4
5
plan tests => 1;
6
7
my $parser = new Parse::DebControl;
8
9
$parser->DEBUG();
10
11
my %opt = ( 'stripComments' => 1, );
12
13
my $rc;
14
eval {
15
16
    local $SIG{__WARN__} = sub { };    # perls arcane syntax to shush stderr?!
17
    $rc = $parser->parse_file( './debian/control', \%opt );
18
};
19
20
isnt( $rc, undef, "parsed ./debian/control file ok" );
21
22
1;
23

Return to bug 10112