t/db_api_00_config.t

   1 #!/usr/bin/perl
   2
   3 use Test::More;
   4
   5 use DBI;
   6 use strict;
   7 use warnings;
   8
   9 my $dbh = DBI->connect('dbi:Pg:db=regano', undef, undef,
  10                        {AutoCommit => 1, RaiseError => 1})
  11   or BAIL_OUT $DBI::errstr;
  12
  13 ##
  14
  15 my %CONFIG_KEYS = ( 'auth/crypt' => ['number', 'text'],
  16                     'session/max_age' => ['interval'],
  17                     'session/max_idle' => ['interval'],
  18                     'verify/max_age' => ['interval'],
  19                     'domain/pend_term' => ['interval'],
  20                     'domain/term' => ['interval'],
  21                   );
  22
  23 plan tests => scalar keys %CONFIG_KEYS;
  24 my $sth = $dbh->prepare(q{SELECT interval, number, text FROM regano.config_get(?)});
  25 foreach my $key (keys %CONFIG_KEYS) {
  26   $sth->execute($key);
  27   my ($number, $text, $interval);
  28   $sth->bind_columns(\($interval, $number, $text));
  29   while ($sth->fetch) {
  30     my @values = ();
  31     push @values, 'interval' if defined $interval;
  32     push @values, 'number' if defined $number;
  33       push @values, 'text' if defined $text;
  34     is_deeply($CONFIG_KEYS{$key}, \@values, "config key '$key'");
  35   }
  36 }
  37
  38 ##
  39
  40 $dbh->disconnect;
  41
  42 __END__