#!/usr/bin/perl

use warnings;
use strict;
use Test::More tests => 2;

use Lintian::DepMap;

my $map = Lintian::DepMap->new();

$map->add('A');
$map->add('B', 'A');

my @parents;
ok(eval {@parents = $map->parents('B'); }, "Get B's parents");
is_deeply(\@parents, ['A'], "B's parent is A");
