aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorMaarten Vanraes <alien@mageia.org>2016-08-06 14:51:21 +0200
committerMaarten Vanraes <alien@mageia.org>2016-08-07 17:13:14 +0200
commitb0d0ede9cd003884980ef2900142e5d69e07974d (patch)
tree43d3873487d69041908a2259c24548c179278e64 /lib
parent57ceb1511d4233a6f6945317b9dc54621ec2c421 (diff)
downloadmanatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar
manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar.gz
manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar.bz2
manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar.xz
manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.zip
backend tester shows btrfs subvolumes
Diffstat (limited to 'lib')
-rw-r--r--lib/test-diskbe.pl8
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/test-diskbe.pl b/lib/test-diskbe.pl
index 007f6d6c..0fe445be 100644
--- a/lib/test-diskbe.pl
+++ b/lib/test-diskbe.pl
@@ -28,6 +28,13 @@ sub dumppart {
for my $p (sort { $a->label() cmp $b->label() } @parts) {
dumppart($db_man, $p, $level);
}
+ if ($part->type() eq 'BtrfsVol') {
+ my @parts = $db_man->findpartprop('BtrfsVol', 'parent', $part->prop('subvolid'));
+ print sp($level) ."Child Subvolumes:\n" if scalar(@parts) > 0;
+ for my $part (sort { $a->label() cmp $b->label() } @parts) {
+ dumppart($db_man, $part, $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;
@@ -42,6 +49,7 @@ my $db_man = ManaTools::Shared::disk_backend->new();
#$db_man->logger->trace(1);
+#$db_man->load();
$db_man->probe();
my $mode = 'disks';