view release on metacpan or  search on metacpan

t/01lowlevel.t  view on Meta::CPAN

#
my $node_dir = DB2::Admin::db2NodeDirectory();
ok((DB2::Admin::sqlcode() == 0 || DB2::Admin::sqlcode() == -1027), "db2NodeDirectory");

#
# List DCS directory
# SQL code 1312: DCS directory empty
#
my $dcs_dir = DB2::Admin::db2DCSDirectory();
ok((DB2::Admin::sqlcode() == 0 || DB2::Admin::sqlcode() == 1312 ), "db2DCSDirectory");

#
# Detach
#
$rc = DB2::Admin::sqledtin();
ok($rc, "sqledtin - detach");

#
# Connect to database
#
$rc = DB2::Admin::db_connect($db_name, '', '', {});
ok($rc, "db_connect - $db_name");

#
# Get client information
#
$rc = DB2::Admin::db2ClientInfo($db_name, {});
ok($rc, "db2ClientInfo - get - $db_name");
#print Dumper($rc);

#
# Set client information
#
my $cinfo = { ClientUserid     => 'User Name',
              Workstation      => 'Desktop',
              Application      => 'Test Suite',
              AccountingString => 'Text used for accounting',
            };
$rc = DB2::Admin::db2ClientInfo($db_name, $cinfo);
ok($rc, "db2ClientInfo - set - $db_name");
#print Dumper($rc);
ok(eq_hash($rc, $cinfo), "db2ClientInfo - return value matches input");

#
# Disconnect from database
#
$rc = DB2::Admin::db_disconnect($db_name);
ok($rc, "db_disconnect - $db_name");

#
# Cleanup connections (a no-op)
#
DB2::Admin::cleanup_connections();
ok(1, "cleanup_connections");

#
# We're not doing import/export/load tests in this low-level suite
#

#
# The 'list history' command.  This is slow, so limit to 'backup'.
#
$rc = DB2::Admin::db2ListHistory($db_name, 'Load', '', '');
ok(defined $rc, "db2ListHistory - $db_name Load");

#
# Extract SQL code
#
DB2::Admin::sqlcode();
pass("sqlcode");

#
# Format error message
#
my $err_msg = DB2::Admin::sqlaintp();
pass("sqlaintp (format error message)");

#
# Format SQL state message
#
my $state_msg = DB2::Admin::sqlogstt();
pass("sqlogstt (format SQL state message)");