From a10b2a1f511e0389c8a3a63220410b942dde4e96 Mon Sep 17 00:00:00 2001 From: Maarten Vanraes Date: Sat, 14 May 2016 15:14:15 +0200 Subject: make partlinks visible when testing backend --- lib/test-diskbe.pl | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lib') diff --git a/lib/test-diskbe.pl b/lib/test-diskbe.pl index e48f925a..c97479d0 100644 --- a/lib/test-diskbe.pl +++ b/lib/test-diskbe.pl @@ -46,6 +46,13 @@ sub dumppart { for my $io (sort { $a->label() cmp $b->label() } @ios) { dumpio($db_man, $io, $level); } + my @parts = $part->find_parts(); + print sp($level) ."PartLinks: ". scalar(@parts) ."\n" if scalar(@parts) > 0; + @parts = $part->find_parts(undef, 'child'); + print sp($level) ."Child links:\n" if scalar(@parts) > 0; + for my $p (sort { $a->label() cmp $b->label() } @parts) { + dumppart($db_man, $p, $level); + } if ($part->type() eq 'Mount') { my @parts = $db_man->findpartprop('Mount', 'parent', $part->prop('id')); print sp($level) ."Child Mounts:\n" if scalar(@parts) > 0; -- cgit v1.2.1