trunk/clients/perl/OpenXPKI-Client-SCEP/t/20.init-openxpki.t

   1 use Test::More tests => 8;
   2 use File::Path;
   3 use File::Spec;
   4 use Cwd;
   5 use English;
   6
   7 use strict;
   8 use warnings;
   9
  10 our %config;
  11 require 't/common.pl';
  12
  13 my $debug = $config{debug};
  14 my $stderr = '2>/dev/null';
  15 #if ($debug) {
  16 #    $stderr = '';
  17 #}
  18
  19 diag("Locally deploying OpenXPKI");
  20
  21 # check if infrastructure commands are installed
  22 if (system("openxpkiadm >/dev/null 2>&1") != 0) {
  23     BAIL_OUT("OpenXPKI deployment environment is not installed");
  24 }
  25
  26 my $instancedir = $config{server_dir};
  27
  28 if (length($instancedir) < 10) {
  29     BAIL_OUT("Instance directory $instancedir not acceptable.");
  30 }
  31
  32 if (-d $instancedir) {
  33     rmtree($instancedir);
  34 }
  35
  36 ok(mkpath $instancedir);
  37
  38 # deployment
  39 diag("Deploying ...");
  40 ok(system("openxpkiadm deploy --prefix $instancedir $stderr") == 0);
  41 # meta config should now exist
  42 ok(-e "$config{config_dir}/openxpki.conf");
  43
  44 my ($pw_name) = getpwuid($EUID);
  45 my ($gr_name) = getgrgid($EUID);
  46 my %configure_settings = (
  47     'dir.prefix' => File::Spec->rel2abs($instancedir),
  48     'dir.dest' => File::Spec->rel2abs($instancedir),
  49     'server.socketfile' => File::Spec->rel2abs($config{socket_file}),
  50     'server.runuser' => $pw_name,
  51     'server.rungroup' => $gr_name,
  52     'database.type'   => 'SQLite',
  53     'database.name'   => "$instancedir/var/openxpki/sqlite.db",
  54     );
  55
  56 # configure in this directory
  57 my $dir = getcwd;
  58 ok(chdir $instancedir);
  59
  60 my $args = "--batch --createdirs --";
  61 foreach my $key (keys %configure_settings) {
  62     $args .= " --setcfgvalue $key=$configure_settings{$key}";
  63 }
  64 diag("Configuring ...");
  65 ok(system("openxpki-configure $args $stderr") == 0);
  66
  67
  68 # and back
  69 ok(chdir($dir));
  70
  71 if (! ok(-e $config{config_file})) {
  72     BAIL_OUT("No server configuration file present ($config{config_file})");
  73 }
  74
  75 diag("Initializing database");
  76 ok(system("openxpkiadm initdb --config $config{config_file} $stderr") == 0);
  77