From 416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5 Mon Sep 17 00:00:00 2001
From: Sebastian Schmelzer
Date: Thu, 2 Sep 2010 17:50:49 +0200
Subject: change dir structure

---
 src/config-db/t/15-global_info.t | 43 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 src/config-db/t/15-global_info.t

(limited to 'src/config-db/t/15-global_info.t')

diff --git a/src/config-db/t/15-global_info.t b/src/config-db/t/15-global_info.t
new file mode 100644
index 00000000..8f2f8cf1
--- /dev/null
+++ b/src/config-db/t/15-global_info.t
@@ -0,0 +1,43 @@
+use Test::More qw(no_plan);
+
+use strict;
+use warnings;
+
+use lib '/opt/openslx/lib';
+
+# basic init
+use OpenSLX::ConfigDB;
+
+my $configDB = OpenSLX::ConfigDB->new;
+$configDB->connect();
+
+# fetch global-info 'next-nbd-server-port'
+ok(
+    my $globalInfo = $configDB->fetchGlobalInfo('next-nbd-server-port'), 
+    'fetch global-info'
+);
+is($globalInfo, '5000', 'global-info - value');
+
+# try to fetch a couple of non-existing global-infos
+is(
+    $configDB->fetchGlobalInfo(-1), undef, 
+    'global-info with id -1 should not exist'
+);
+is($configDB->fetchGlobalInfo('xxx'), undef, 
+    'global-info with id xxx should not exist');
+
+# change value of global-info and then fetch and check the new value
+ok($configDB->changeGlobalInfo('next-nbd-server-port', '5050'), 'changing global-info');
+is(
+    $configDB->fetchGlobalInfo('next-nbd-server-port'), '5050',
+    'fetching changed global-info'
+);
+
+# changing a non-existing global-info should fail
+ok(
+    ! eval { $configDB->changeGlobalInfo('xxx', 'new-value') }, 
+    'changing unknown global-info should fail'
+);
+
+$configDB->disconnect();
+
-- 
cgit v1.2.3-55-g7522