summaryrefslogtreecommitdiffstats
path: root/config-db/t/15-global_info.t
diff options
context:
space:
mode:
Diffstat (limited to 'config-db/t/15-global_info.t')
-rw-r--r--config-db/t/15-global_info.t43
1 files changed, 0 insertions, 43 deletions
diff --git a/config-db/t/15-global_info.t b/config-db/t/15-global_info.t
deleted file mode 100644
index 8f2f8cf1..00000000
--- a/config-db/t/15-global_info.t
+++ /dev/null
@@ -1,43 +0,0 @@
-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();
-