trunk/clients/perl/OpenXPKI-Client-HTML-Mason/t/20_webserver/01_deploy_openxpki_instance.t

   1 use strict;
   2 use warnings;
   3 use English;
   4
   5 use Test::More;
   6 plan tests => 5;
   7
   8 use OpenXPKI::Tests;
   9
  10 my $TEST_PORT = 8099;
  11 if ($ENV{MASON_TEST_PORT}) {
  12     # just in case someone wants to overwrite the test webserver port
  13     # for some reason
  14     $TEST_PORT = $ENV{MASON_TEST_PORT};
  15 }
  16
  17 diag("Deploying OpenXPKI test instance\n");
  18
  19 my $instancedir = 't/20_webserver/test_instance';
  20 my $socketfile = $instancedir . '/var/openxpki/openxpki.socket';
  21 my $pidfile    = $instancedir . '/var/openxpki/openxpki.pid';
  22
  23 ok(deploy_test_server({
  24         DIRECTORY  => $instancedir,
  25     }), 'Test server deployed successfully');
  26 ok(create_ca_cert({
  27         DIRECTORY => $instancedir,
  28     }), 'CA certificate created and installed successfully');
  29 ok(start_test_server({
  30         DIRECTORY  => $instancedir,
  31     }), 'Test server started successfully');
  32
  33 # wait for server startup
  34 CHECK_SOCKET:
  35 foreach my $i (1..60) {
  36     if (-e $socketfile) {
  37         last CHECK_SOCKET;
  38     }
  39     else {
  40         sleep 1;
  41     }
  42 }
  43 ok(-e $pidfile, "PID file exists");
  44 ok(-e $socketfile, "Socketfile exists");
  45