view release on metacpan or  search on metacpan

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

#
# Tests of the low-level raw API
#
# $Id: 01lowlevel.t,v 165.2 2009/04/22 13:46:35 biersma Exp $
#

use strict;
use Test::More tests => 28;
#use Test::Differences;
use Data::Dumper;
BEGIN { use_ok('DB2::Admin'); }
BEGIN { use_ok('DB2::Admin::Constants') };

die "Environment variable DB2_VERSION not set" 
  unless (defined $ENV{DB2_VERSION});

#
# Get the database name and whether to update the dbm cfg from the
# CONFIG file

t/17client_info.t  view on Meta::CPAN

#
# Test the get/set client information functions
#
# $Id: 17client_info.t,v 150.1 2007/12/12 19:30:07 biersma Exp $
#

use strict;
use Test::More tests => 9;
#use Test::Differences;

#
# Get the database name from the CONFIG file
#
our %myconfig;
require "util/parse_config";
my $db_name = $myconfig{DBNAME};

$| = 1;