@@ -, +, @@ - run successful test $ perl ./t/00-valid-debian-control-file.t 1..1 ok 1 - parsed ./debian/control file ok - add bad string to ./debian/control file $ sed -i -e '20i -------\' ./debian/control - run failed test $ perl ./t/00-valid-debian-control-file.t 1..1 not ok 1 - parsed ./debian/control file ok --- t/00-valid-debian-control-file.t | 23 +++++++++++++++++++++++ 1 files changed, 23 insertions(+), 0 deletions(-) create mode 100644 t/00-valid-debian-control-file.t --- a/t/00-valid-debian-control-file.t +++ a/t/00-valid-debian-control-file.t @@ -0,0 +1,23 @@ +use Modern::Perl; +use Parse::DebControl; +use Test::More; + +plan tests => 1; + +my $parser = new Parse::DebControl; + +$parser->DEBUG(); + +my %opt = ( 'stripComments' => 1, ); + +my $rc; +eval { + + local $SIG{__WARN__} = sub { }; # perls arcane syntax to shush stderr?! + $rc = $parser->parse_file( './debian/control', \%opt ); +}; + +isnt( $rc, undef, "parsed ./debian/control file ok" ); + +1; + --