This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip a Tets-Simple test that's leaking shm blocks
[perl5.git] / cpan / Test-Simple / t / Test2 / modules / API / Instance.t
index 45e739f..d1f4c3b 100644 (file)
@@ -5,14 +5,14 @@ use Test2::IPC;
 BEGIN { require "t/tools.pl" };
 use Test2::Util qw/CAN_THREAD CAN_REALLY_FORK USE_THREADS get_tid/;
 
+skip_all("Leaks shm blocks");
+
 my $CLASS = 'Test2::API::Instance';
 
 my $one = $CLASS->new;
 is_deeply(
     $one,
     {
-        pid      => $$,
-        tid      => get_tid(),
         contexts => {},
 
         finalized => undef,
@@ -45,8 +45,6 @@ $one->reset;
 is_deeply(
     $one,
     {
-        pid      => $$,
-        tid      => get_tid(),
         contexts => {},
 
         ipc_polling => undef,
@@ -201,7 +199,7 @@ if (CAN_THREAD && $] ge '5.010') {
 
 {
     $one->reset();
-    $one->set_tid(1);
+    $one->set__tid(1);
     local $? = 0;
     $one->set_exit;
     is($?, 0, "no errors on exit");
@@ -226,6 +224,7 @@ if (CAN_THREAD && $] ge '5.010') {
 
 {
     $one->reset();
+    $one->load();
     $one->stack->top->set_failed(2);
     local $? = 0;
     $one->set_exit;
@@ -234,6 +233,7 @@ if (CAN_THREAD && $] ge '5.010') {
 
 {
     $one->reset();
+    $one->load();
     local $? = 500;
     $one->set_exit;
     is($?, 255, "set exit code to a sane number");
@@ -243,6 +243,7 @@ if (CAN_THREAD && $] ge '5.010') {
     local %INC = %INC;
     delete $INC{'Test2/IPC.pm'};
     $one->reset();
+    $one->load();
     my @events;
     $one->stack->top->filter(sub { push @events => $_[1]; undef});
     $one->stack->new_hub;
@@ -287,6 +288,7 @@ This is not a supported configuration, you will have problems.
     local *Test2::API::Breakage::report = sub { $ran++; return "foo" };
     use warnings qw/redefine once/;
     $one->reset();
+    $one->load();
 
     my $stderr = "";
     {
@@ -308,6 +310,7 @@ foo
 
 {
     $one->reset();
+    $one->load();
     my @events;
     $one->stack->top->filter(sub { push @events => $_[1]; undef});
     $one->stack->new_hub;