diff options
Diffstat (limited to 'lib/test-diskbe.pl')
-rw-r--r-- | lib/test-diskbe.pl | 38 |
1 files changed, 3 insertions, 35 deletions
diff --git a/lib/test-diskbe.pl b/lib/test-diskbe.pl index 380716a9..007f6d6c 100644 --- a/lib/test-diskbe.pl +++ b/lib/test-diskbe.pl @@ -11,25 +11,6 @@ sub sp { return " ". sp($level - 1); } -sub dumpio { - my ($db_man, $io, $level) = @_; - print sp($level) ."- IO(". $io->type() ."): ". $io->label() ."\n"; - # indent - $level = $level + 1; - - print sp($level) ."Properties:\n" if scalar($io->properties()) > 0; - for my $key (sort $io->properties()) { - print sp($level) ."- ". $key ." --> ". $io->prop($key) ."\n"; - } - - # find parts that contain this - my @parts = $db_man->findin($io); - print sp($level) ."Parts:\n" if scalar(@parts) > 0; - for my $part (sort { $a->label() cmp $b->label() } @parts) { - dumppart($db_man, $part, $level); - } -} - sub dumppart { my ($db_man, $part, $level) = @_; print sp($level) ."- PART(". $part->type() ."): (". $part->label() .")\n"; @@ -41,11 +22,6 @@ sub dumppart { print sp($level) ."- ". $key ." --> ". $part->prop($key) ."\n"; } - my @ios = $part->get_outs(); - print sp($level) ."IOs:\n" if scalar(@ios) > 0; - for my $io (sort { $a->label() cmp $b->label() } @ios) { - dumpio($db_man, $io, $level); - } print sp($level) ."PartLinks: '". join("','", map { "(". ( defined $_ ? join(",", @{$_->tags()}) : '' ) .")" } @{$part->links()}) ."'\n" if scalar(@{$part->links()}) > 0; my @parts = $part->find_parts(undef, 'child'); print sp($level) ."Child links:\n" if scalar(@parts) > 0; @@ -81,17 +57,9 @@ if ($mode eq 'fs') { } } else { - if ($mode eq 'old') { - my @parts = $db_man->findoutnoin(); - for my $part (@parts) { - dumppart($db_man, $part, 0); - } - } - else { - my @parts = $db_man->findnopart(undef, 'parent'); - for my $part (@parts) { - dumppart($db_man, $part, 0); - } + my @parts = $db_man->findnopart(undef, 'parent'); + for my $part (@parts) { + dumppart($db_man, $part, 0); } } |