Line 0
Link Here
|
0 |
- |
1 |
use Modern::Perl; |
|
|
2 |
use Parse::DebControl; |
3 |
use Test::More; |
4 |
|
5 |
plan tests => 2; |
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 without errors" ); |
21 |
isnt( $rc, undef, "parsed ./debian/control.in file without errors" ); |
22 |
|
23 |
1; |