From 9507d838668846666d2c790a0a1e6e51eb8670de Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Fri, 4 Jan 2008 16:50:15 +0000
Subject: more refactoring (not limited to attribute handling) * completed
 separation of attributes and standard (column) values * improved tests a lot

That work is still not finished, so expect things to fail horribly.

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1443 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/t/21-group_system_ref.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'config-db/t/21-group_system_ref.t')

diff --git a/config-db/t/21-group_system_ref.t b/config-db/t/21-group_system_ref.t
index e9023feb..6f92a8dd 100644
--- a/config-db/t/21-group_system_ref.t
+++ b/config-db/t/21-group_system_ref.t
@@ -1,5 +1,8 @@
 use Test::More qw(no_plan);
 
+use strict;
+use warnings;
+
 use lib '/opt/openslx/lib';
 
 # basic init
@@ -39,7 +42,7 @@ ok(
 	'system-ID 3 has been associated to group 1'
 );
 is(
-	@systemIDs = sort($configDB->fetchSystemIDsOfGroup(1)),
+	my @systemIDs = sort($configDB->fetchSystemIDsOfGroup(1)),
 	1, "group 1 should have one system-ID"
 );
 is($systemIDs[0], 3, "first system of group 1 should have ID 3");
@@ -48,7 +51,7 @@ is(
 	0, "group 3 should have no system-ID"
 );
 is(
-	@groupIDs = sort($configDB->fetchGroupIDsOfSystem(0)),
+	my @groupIDs = sort($configDB->fetchGroupIDsOfSystem(0)),
 	0, "default system should have no group-IDs"
 );
 is(
-- 
cgit v1.2.3-55-g7522