summaryrefslogtreecommitdiffstats
path: root/config-db/t/01-basics.t
diff options
context:
space:
mode:
Diffstat (limited to 'config-db/t/01-basics.t')
-rw-r--r--config-db/t/01-basics.t20
1 files changed, 20 insertions, 0 deletions
diff --git a/config-db/t/01-basics.t b/config-db/t/01-basics.t
new file mode 100644
index 00000000..fdc7a052
--- /dev/null
+++ b/config-db/t/01-basics.t
@@ -0,0 +1,20 @@
+use Test::More qw(no_plan);
+
+use lib '/opt/openslx/lib';
+
+# basic stuff
+use_ok(OpenSLX::ConfigDB);
+
+# connecting and disconnecting
+ok(my $configDB = OpenSLX::ConfigDB->new, 'can create object');
+isa_ok($configDB, 'OpenSLX::ConfigDB');
+
+{
+ # create a second object - should work and yield different objects
+ ok(my $configDB2 = OpenSLX::ConfigDB->new, 'can create another object');
+ cmp_ok($configDB, 'ne', $configDB2, 'should have two different objects now');
+}
+
+ok($configDB->connect(), 'connecting');
+ok($configDB->disconnect(), 'disconnecting');
+