summaryrefslogtreecommitdiffstats
path: root/config-db/t/29-transaction.t
diff options
context:
space:
mode:
authorSebastian Schmelzer2010-09-02 17:50:49 +0200
committerSebastian Schmelzer2010-09-02 17:50:49 +0200
commit416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5 (patch)
tree4715f7d742fec50931017f38fe6ff0a89d4ceccc /config-db/t/29-transaction.t
parentFix for the problem reported on the list (sed filter forgotten for the (diff)
downloadcore-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.gz
core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.tar.xz
core-416ab8a37f1b07dc9f6c0fb3ff1a8ff2036510b5.zip
change dir structure
Diffstat (limited to 'config-db/t/29-transaction.t')
-rw-r--r--config-db/t/29-transaction.t58
1 files changed, 0 insertions, 58 deletions
diff --git a/config-db/t/29-transaction.t b/config-db/t/29-transaction.t
deleted file mode 100644
index 1f1566bf..00000000
--- a/config-db/t/29-transaction.t
+++ /dev/null
@@ -1,58 +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();
-
-my @vendorOSes = $configDB->fetchVendorOSByFilter();
-my @exports = $configDB->fetchExportByFilter();
-my @systems = $configDB->fetchSystemByFilter();
-my @clients = $configDB->fetchClientByFilter();
-my @groups = $configDB->fetchGroupByFilter();
-
-ok($configDB->startTransaction(), 'starting a transaction');
-
-ok($configDB->emptyDatabase(), 'emptying the DB');
-
-ok($configDB->rollbackTransaction(), 'rolling back the transaction');
-
-my @vendorOSes2 = $configDB->fetchVendorOSByFilter();
-my @exports2 = $configDB->fetchExportByFilter();
-my @systems2 = $configDB->fetchSystemByFilter();
-my @clients2 = $configDB->fetchClientByFilter();
-my @groups2 = $configDB->fetchGroupByFilter();
-
-is(
- scalar @vendorOSes2, scalar @vendorOSes, "should still have all vendor-OSes"
-);
-is(scalar @exports2, scalar @exports, "should still have all exports");
-is(scalar @systems2, scalar @systems, "should still have all systems");
-is(scalar @clients2, scalar @clients, "should still have all clients");
-is(scalar @groups2, scalar @groups, "should still have all groups");
-
-ok($configDB->startTransaction(), 'starting a transaction');
-
-ok($configDB->emptyDatabase(), 'emptying the DB');
-
-ok($configDB->commitTransaction(), 'committing the transaction');
-
-my @vendorOSes3 = $configDB->fetchVendorOSByFilter();
-my @exports3 = $configDB->fetchExportByFilter();
-my @systems3 = $configDB->fetchSystemByFilter();
-my @clients3 = $configDB->fetchClientByFilter();
-my @groups3 = $configDB->fetchGroupByFilter();
-
-is(scalar @vendorOSes3, 0, "should have no vendor-OSes");
-is(scalar @exports3, 0, "should have no exports");
-is(scalar @systems3, 1, "should have one system (default)");
-is(scalar @clients3, 1, "should have one client (default)");
-is(scalar @groups3, 0, "should have no groups");
-
-$configDB->disconnect();