- add fake hdlists and synthesis and test existance (test is skip at time)

1 files changed, 15 insertions, 1 deletions

diff --git a/t/01history.t b/t/01history.t
index f3db55c..40e4099 100644
--- a/t/01history.t
+++ b/t/01history.t
@@ -8,7 +8,7 @@ use MDV::Distribconf;
 
 my @testdpath = glob('testdata/history/*/*/*');
 
-plan tests => 5 * scalar(@testdpath);
+plan tests => 6 * scalar(@testdpath);
 
 foreach my $path (@testdpath) {
     ok(
@@ -23,4 +23,18 @@ foreach my $path (@testdpath) {
     like($arch, '/.+/', "can get arch");
     like($dconf->getvalue(undef, "platform"), "/^$arch" . '-(mandriva|mandrake)-linux-gnu$/', "can get arch");
     }
+    my $foundhd = 0;
+    my $medias = 0;
+    foreach my $m ($dconf->listmedia()) {
+        $medias++;
+        if (-f $dconf->getfullpath($m, 'hdlist')) {
+            $foundhd++;
+        } else {
+            print STDERR "$m " . $dconf->getfullpath($m, 'hdlist') . " not found\n";
+        }
+    }
+    SKIP: {
+        skip "Test not completed", 1 unless(0);
+    is($foundhd, $medias, "All hdlists can be found");
+    }
 }