- resync lost file after svn crash

1 files changed, 20 insertions, 0 deletions

diff --git a/t/01history.t b/t/01history.t
new file mode 100644
index 0000000..2c8b11d
--- /dev/null
+++ b/t/01history.t
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+# $Id: 01distribconf.t 56934 2006-08-21 10:16:29Z nanardon $
+
+use strict;
+use Test::More;
+use MDV::Distribconf;
+
+my @testdpath = glob('testdata/history/*/*/*');
+
+plan tests => 3 * scalar(@testdpath);
+
+foreach my $path (@testdpath) {
+    ok(
+        my $dconf = MDV::Distribconf->new($path),
+        "Can get new MDV::Distribconf"
+    );
+    ok($dconf->load(), "can load $path");
+    ok($dconf->listmedia(), "can list media");
+}