From 175275655abd8a7a3db3c3a1dfc5ee49a6488307 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Mon, 7 Jan 2008 14:58:13 +0000
Subject: * finished refactoring of attribute handling code, especially the  
 merging of attributes, such that all tests are passed * tested and finished
 implementation of group support in slxconfig * added new class
 AttributeRoster which keeps track of the known   attributes (the ones
 provided by the openslx core and any other   ones that may have been added by
 some plugin). * added new option --list-attributes to slxconfig which shows
 information   about all known attributes

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1444 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/t/13-client.t | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'config-db/t/13-client.t')

diff --git a/config-db/t/13-client.t b/config-db/t/13-client.t
index 5848ba53..1c8ea99f 100644
--- a/config-db/t/13-client.t
+++ b/config-db/t/13-client.t
@@ -357,6 +357,33 @@ is($client1->{name}, q{CLI-'1'}, q{really got client named "CLI-'1'"});
 # changing nothing at all should succeed
 ok($configDB->changeClient(1), 'changing nothing at all in client 1');
 
+# adding attributes should work
+$inClient1->{attrs}->{slxgrp} = 'slxgrp1';
+$inClient1->{attrs}->{vmware} = 'yes';
+ok($configDB->changeClient(1, $inClient1), 'adding attrs to client 1');
+$client1 = $configDB->fetchClientByID(1);
+is($client1->{attrs}->{slxgrp}, 'slxgrp1', 'attr slxgrp has correct value');
+is($client1->{attrs}->{vmware}, 'yes', 'attr vmware has correct value');
+
+# changing an attribute should work
+$inClient1->{attrs}->{vmware} = 'no';
+ok($configDB->changeClient(1, $inClient1), 'changing vmware in client 1');
+$client1 = $configDB->fetchClientByID(1);
+is($client1->{attrs}->{slxgrp}, 'slxgrp1', 'attr slxgrp has correct value');
+is($client1->{attrs}->{vmware}, 'no', 'attr vmware has correct value');
+
+# deleting an attribute should remove it
+delete $inClient1->{attrs}->{slxgrp};
+ok($configDB->changeClient(1, $inClient1), 'changing slxgrp in client 1');
+$client1 = $configDB->fetchClientByID(1);
+ok(!exists $client1->{attrs}->{slxgrp}, 'attr slxgrp should be gone');
+
+# undef'ing an attribute should remove it, too
+$inClient1->{attrs}->{vmware} = undef;
+ok($configDB->changeClient(1, $inClient1), 'undefining vmware in client 1');
+$client1 = $configDB->fetchClientByID(1);
+ok(!exists $client1->{attrs}->{vmware}, 'attr vmware should be gone');
+
 # changing a non-existing column should fail
 ok(
 	! eval { $configDB->changeClient(1, { xname => "xx" }) }, 
-- 
cgit v1.2.3-55-g7522