File: parse.t

package info (click to toggle)
libparse-debian-packages-perl 0.03-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 96 kB
  • sloc: perl: 49; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 442 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!perl -w
use strict;
use Test::More tests => 4;
use Parse::Debian::Packages;
open my $fh, "<sample" or die "couldn't open sample: $!";

my $parser = Parse::Debian::Packages->new($fh);
isa_ok( $parser, "Parse::Debian::Packages" );
my %first = $parser->next;
ok( %first, "fetched one" );
is( $first{Version}, "0.8.1-10", "parsed version" );

is( $first{Broken}, 'in: Parse::Debian::Packages 0.01',
    "catch the colon parsing bug of 0.01" );