trunk/clients/perl/OpenXPKI-Client/t/99.cleanup.t

   1 use Test::More tests => 1;
   2 use File::Path;
   3 use File::Spec;
   4 use English;
   5
   6 use strict;
   7 use warnings;
   8
   9 our %config;
  10 require 't/common.pl';
  11
  12 diag("Cleaning up");
  13
  14 diag "Stopping OpenXPKI Server.";
  15 ok(system("openxpkictl --config $config{config_file} stop") == 0);
  16 # leaving this intact for debugging
  17 #ok(rmtree($config{server_dir}));