diff options
| author | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
|---|---|---|
| committer | Sebastian Schmelzer | 2010-09-02 17:50:49 +0200 |
| commit | 416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5 (patch) | |
| tree | 4715f7d742fec50931017f38fe6ff0a89d4ceccc /config-db/t/15-global_info.t | |
| parent | Fix for the problem reported on the list (sed filter forgotten for the (diff) | |
| download | core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.gz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.xz core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.zip | |
change dir structure
Diffstat (limited to 'config-db/t/15-global_info.t')
| -rw-r--r-- | config-db/t/15-global_info.t | 43 |
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(); - |