From b0d0ede9cd003884980ef2900142e5d69e07974d Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Sat, 6 Aug 2016 14:51:21 +0200
Subject: backend tester shows btrfs subvolumes

---
 lib/test-diskbe.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

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';
-- 
cgit v1.2.1