From: Vincent Pit 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/?a=commitdiff_plain;ds=inline;h=142a069ea963bd4da61bfe27c6a9b745ee3f6456;p=perl%2Fmodules%2FScope-Upper.git 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';