From: Vincent Pit <vince@profvince.com>
Date: Tue, 24 Mar 2015 00:15:43 +0000 (-0300)
Subject: Also test that the module can be loaded in the main body
X-Git-Tag: v0.27~10
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=142a069ea963bd4da61bfe27c6a9b745ee3f6456

Also test that the module can be loaded in the main body
---

diff --git a/t/09-load-threads.t b/t/09-load-threads.t
index 3bd92f9..89cf8d3 100644
--- a/t/09-load-threads.t
+++ b/t/09-load-threads.t
@@ -57,7 +57,7 @@ BEGIN {
 
 my $could_not_create_thread = 'Could not create thread';
 
-use Test::Leaner tests => 1 + (2 + 2 * 2) + 6 + (1 + 2 * 4);
+use Test::Leaner tests => 1 + (2 + 2 * 2) + 6 + (2 * 4) + 2;
 
 sub is_loaded {
  my ($affirmative, $desc) = @_;
@@ -252,3 +252,6 @@ SKIP: {
 }
 
 is_loaded 0, 'main body, after simultaneous threads';
+
+do_load;
+is_loaded 1, 'main body, loaded at end';