t/inline/02-oo.t: added sleep 1

Added sleep 1 to the new test in order to prevent random fails. Signed-off-by: Stefan Hermes <[email protected]>
perl5-utils · Jul 30, 2020 · c140c25 · c140c25
1 parent aedfc16
commit c140c25
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/t/inline/02-oo.t b/t/inline/02-oo.t
@@ -347,9 +347,10 @@ is_deeply($cp{oo}, {foo => {key => 'left'}}, 'Custom Precedent - Object on Objec
 {
     my $destroyed = 0;
     no warnings 'once';
-    local *Hash::Merge::DESTROY = sub { $destroyed = 1 };
+    local *Hash::Merge::DESTROY = sub { $destroyed = 1; };
     use warnings;
     Hash::Merge->new;
+    sleep 1;
     ok $destroyed, "instance did not leak";
 }