From be580d0a3a7776b436e2d850c327cbaf1cd2174f Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Sun, 3 Sep 2006 04:46:25 +0000
Subject: - changing a value friendly set the peer one

---
 t/05build.t | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 t/05build.t

(limited to 't')

diff --git a/t/05build.t b/t/05build.t
new file mode 100644
index 0000000..1def21d
--- /dev/null
+++ b/t/05build.t
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+
+# $Id: 01-compile.t 38877 2006-07-12 12:16:51Z nanardon $
+
+use strict;
+use warnings;
+
+use Test::More tests => 28;
+use File::Temp qw(tempdir);
+
+use_ok('MDV::Distribconf::Build');
+
+my $dir = tempdir();
+
+sub END {
+    if (-d $dir) {
+        system(qw(rm -fr --), $dir);
+    }
+}
+
+my $mdb = MDV::Distribconf::Build->new($dir);
+isa_ok($mdb, 'MDV::Distribconf::Build');
+$mdb->settree();
+ok($mdb->init(), "Can create a distrib");
+ok(-d $mdb->getfullpath(undef, 'infodir'), 'info directory has been created');
+ok($mdb->create_media('media_a'), 'can create a media');
+ok($mdb->mediaexists('media_a'), 'media_a exists');
+ok(-d $mdb->getfullpath('media_a', 'path'), 'media directory has been created');
+ok(-d $mdb->getfullpath('media_a', 'infodir'), 'media info directory has been created');
+ok($mdb->create_media('media_b'), 'can create a second media');
+ok($mdb->mediaexists('media_b'), 'media_b exists');
+
+ok($mdb->setvalue('media_a', 'srpms', 'media_b'), 'set a new value');
+is($mdb->getvalue('media_a', 'srpms'), 'media_b', 'set value works');
+is($mdb->getvalue('media_b', 'rpms'), 'media_a', 'set peer value works');
+ok($mdb->setvalue('media_a', 'srpms', ''), 'set a new value');
+is($mdb->getvalue('media_a', 'srpms'), '', 'reset value works');
+is($mdb->getvalue('media_b', 'rpms'), '', 'reset peer value works');
+
+ok($mdb->setvalue('media_a', 'srpms', 'media_c'), 'set a new value');
+ok(!$mdb->mediaexists('media_c'), 'peer media does not exists');
+ok($mdb->setvalue('media_c'), 'lazy media creation');
+is($mdb->getvalue('media_c', 'rpms'), 'media_a', 'set peer value works');
+ok($mdb->create_media('media_c'), 'can create a third media');
+ok(-d $mdb->getfullpath('media_c', 'path'), 'media directory has been created');
+ok(-d $mdb->getfullpath('media_c', 'infodir'), 'media info directory has been created');
+
+ok($mdb->delvalue('media_c', 'rpms'), 'deleting a value works');
+is($mdb->getvalue('media_a', 'srpms'), '', 'delete peer value works');
+ok($mdb->setvalue('media_a', 'srpms', 'media_c'), 'set a new value');
+ok($mdb->delvalue('media_c'), 'deleting a media works');
+is($mdb->getvalue('media_a', 'srpms'), '', 'delete peer value works');
-- 
cgit v1.2.1