File: 01-basic.t

package info (click to toggle)
lintian 2.129.0
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 71,680 kB
  • sloc: perl: 46,081; javascript: 9,151; makefile: 4,058; sh: 3,044; ansic: 714; xml: 518; python: 91; java: 15; cpp: 9; tcl: 4; lisp: 3
file content (19 lines) | stat: -rwxr-xr-x 376 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

use Lintian::Relation;

my $relation = Lintian::Relation->new->load('pkgA, altA | altB');

ok($relation->satisfies('pkgA'),   'Satisfies');
ok(!$relation->satisfies('altA'),  'Satisfies alt');

# Local Variables:
# indent-tabs-mode: nil
# cperl-indent-level: 4
# End:
# vim: syntax=perl sw=4 sts=4 sr et