TT#28472 thread-safe cert-auth for tests

+ force JSON::PP usage in suite with spawned threads

Change-Id: I3bade7eadda7f0c25ac8636f96a26df451b24136

t/api-rest/api-balanceintervals.t

@@ -5,7 +5,7 @@ use threads::shared qw();
 
 #use Sipwise::Base; #causes segfault when creating threads..
 use Net::Domain qw(hostfqdn);
-use JSON qw();
+use JSON -support_by_pp, -no_export;
 use Test::More;
 use Time::HiRes; #prevent warning from Time::Warp
 use Time::Warp qw();
@@ -18,7 +18,7 @@ use Text::Wrap;
 $Text::Wrap::columns = 58;
 #use Sys::CpuAffinity;
 
-use JSON::PP;
+#use JSON::PP;
 use LWP::Debug;
 
 BEGIN {
@@ -27,8 +27,8 @@ BEGIN {
 use NGCP::Panel::Utils::DateTime qw();
 #use NGCP::Panel::Utils::ProfilePackages qw(); #since it depends on Utils::Subscribers and thus Sipwise::Base, importin it causes segfault when creating threads..
 
-my $is_local_env = 0;
-my $disable_parallel_catchup = 1;
+my $is_local_env = 1;
+my $disable_parallel_catchup = 0;
 my $disable_hourly_intervals = 1;
 #my $enable_profile_packages = NGCP::Panel::Utils::ProfilePackages::ENABLE_PROFILE_PACKAGES;
 #my $enable_profile_packages = 1;

t/api-rest/testrunner

@@ -25,7 +25,7 @@ fi
 
 if [ "${SELECT}" = "stable" ] ; then
   echo "Test selection: ${SELECT}"
-  SELECT=$(echo ./t/api-rest/api-{all-links,bannedips,bannedusers,billingfees,billingnetworks,billingprofiles,billingzones,calllists,calls,cert-auth,cfdestinationsets,contracts,customercontacts,customers,faxes,lnp,ncoslevels,pbxdevicemodels,pbxdevices,peeringgroups,peeringrules,peeringinboundrules,peeringservers,preferences,profilepackages,resellers,rewriterules,rewriterulesets,root,soundsets,subscriberregistrations,subscribers,systemcontacts,threads,topuplogs,trustedsources,valid-patch,vouchers,method-override}.t)
+  SELECT=$(echo ./t/api-rest/api-{all-links,balanceintervals,bannedips,bannedusers,billingfees,billingnetworks,billingprofiles,billingzones,calllists,calls,cert-auth,cfdestinationsets,contracts,customercontacts,customers,faxes,lnp,ncoslevels,pbxdevicemodels,pbxdevices,peeringgroups,peeringrules,peeringinboundrules,peeringservers,preferences,profilepackages,resellers,rewriterules,rewriterulesets,root,soundsets,subscriberregistrations,subscribers,systemcontacts,threads,topuplogs,trustedsources,valid-patch,vouchers,method-override}.t)
 elif [ "${SELECT}" = "fast" ] ; then
   echo "Test selection: ${SELECT}"
   SELECT=$(echo ./t/api-rest/api-{bannedips,bannedusers,billingnetworks,billingzones,calls,cert-auth,cfdestinationsets,ncoslevels,peeringgroups,peeringrules,peeringinboundrules,peeringservers,resellers,rewriterules,root,soundsets,systemcontacts,valid-patch,vouchers,method-override}.t)

t/lib/Test/Collection.pm

@@ -3,6 +3,8 @@ package Test::Collection;
 #testcollection will keep object of the apiclient
 
 use strict;
+use threads qw();
+use threads::shared qw();
 use Test::More;
 use Moose;
 use JSON;
@@ -20,13 +22,9 @@ use File::Slurp qw/write_file/;
 use Storable;
 use Carp qw(cluck longmess shortmess);
 use IO::Uncompress::Unzip;
+use File::Temp qw();
 
-has 'crt_path' => (
-    is => 'ro',
-    isa => 'Str',
-    lazy => 1,
-    default => sub {'/tmp/apicert.pem';},
-);
+my $tmpfilename : shared;
 
 has 'data_cache_file' => (
     is => 'ro',
@@ -267,7 +265,8 @@ sub init_ua {
 }
 sub init_ssl_cert {
     my ($self, $ua) = @_;
-    unless(-f $self->crt_path) {
+    lock $tmpfilename;
+    unless ($tmpfilename) {
         my $res = $ua->post(
             $self->base_uri . '/api/admincerts/',
             Content_Type => 'application/json',
@@ -294,13 +293,15 @@ sub init_ssl_cert {
         unless($data) {
             die "failed to find PEM file in client certificate zip file\n";
         }
-        open my $fh, ">:raw", $self->crt_path or die "failed to open " . $self->crt_path . ": $!\n";
-        print $fh $data;
-        close $fh;
+        (my $tmpfh,$tmpfilename) = File::Temp::tempfile('apicert_XXXX', DIR => '/tmp', SUFFIX => '.pem', UNLINK => 0);
+        #close $tmpfh;
+        #open my $fh, ">:raw", $tmpfilename or die "failed to open " . $tmpfilename . ": $!\n";
+        print $tmpfh $data;
+        close $tmpfh;
     }
     $ua->ssl_opts(
-        SSL_cert_file => $self->crt_path,
-        SSL_key_file => $self->crt_path,
+        SSL_cert_file => $tmpfilename,
+        SSL_key_file => $tmpfilename,
     );
 }
 sub runas {