diff options
| author | Maarten Vanraes <alien@mageia.org> | 2016-05-14 15:14:15 +0200 |
|---|---|---|
| committer | Maarten Vanraes <alien@mageia.org> | 2016-05-14 15:14:15 +0200 |
| commit | a10b2a1f511e0389c8a3a63220410b942dde4e96 (patch) | |
| tree | 5bf19551330e1bd868431fd03b2da0e9ca63ec55 | |
| parent | f974534e226c84ba58e631c2a77e65556178787e (diff) | |
| download | manatools-a10b2a1f511e0389c8a3a63220410b942dde4e96.tar manatools-a10b2a1f511e0389c8a3a63220410b942dde4e96.tar.gz manatools-a10b2a1f511e0389c8a3a63220410b942dde4e96.tar.bz2 manatools-a10b2a1f511e0389c8a3a63220410b942dde4e96.tar.xz manatools-a10b2a1f511e0389c8a3a63220410b942dde4e96.zip | |
make partlinks visible when testing backend
| -rw-r--r-- | lib/test-diskbe.pl | 7 |
1 files changed, 7 insertions, 0 deletions
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; |