diff options
author | Oliver Tappe | 2008-01-04 17:50:15 +0100 |
---|---|---|
committer | Oliver Tappe | 2008-01-04 17:50:15 +0100 |
commit | 9507d838668846666d2c790a0a1e6e51eb8670de (patch) | |
tree | 2c843db4b2865319b8d26604c212c5fea07e5bbc /config-db/t/21-group_system_ref.t | |
parent | more work at refactoring of the way attributes are handled: (diff) | |
download | core-9507d838668846666d2c790a0a1e6e51eb8670de.tar.gz core-9507d838668846666d2c790a0a1e6e51eb8670de.tar.xz core-9507d838668846666d2c790a0a1e6e51eb8670de.zip |
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
Diffstat (limited to 'config-db/t/21-group_system_ref.t')
-rw-r--r-- | config-db/t/21-group_system_ref.t | 7 |
1 files changed, 5 insertions, 2 deletions
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( |