The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test;
BEGIN { plan test => 1 };

use vars qw($NO_DB_TESTS_FN $BASE_CFG_FN @CFG_PARAMS);
require "ladbi_config.pl";

if (find_file_up($NO_DB_TESTS_FN, 1)) {
  skip("skip no database tests", 1);
  exit 0;
}

my $cfg_fn = find_file_up($BASE_CFG_FN,1);

unless (defined $cfg_fn) {
  print "Bail out!\n", "Couln't find the config file, $BASE_CFG_FN\n";
  exit 0;
}

my $cfg = load_cfg_file($cfg_fn);

unless (defined $cfg) {
  print "Bail out!\n", "#Failed to load config file, $cfg_fn\n";
  exit 0;
}

for my $k (@CFG_PARAMS) {
  unless (defined $cfg->{$k}) {
    print "Bail out!\n", "#Key, $k, not defined\n";
    exit 0;
  }
}

ok(1);