X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-pkg.t;h=f84e31dcf62de3d483c83e6861c2c172b5dae0aa;hb=49879973c101332e3eedf8e2abb66bae5d3eaac5;hp=bd4ebb3504a069a73664e22e82e99557dcd24063;hpb=a458a01af6d6d0e328ffc36afdcbd96628ae2e71;p=perl%2Fmodules%2Fsubs-auto.git

diff --git a/t/11-pkg.t b/t/11-pkg.t
index bd4ebb3..f84e31d 100644
--- a/t/11-pkg.t
+++ b/t/11-pkg.t
@@ -3,44 +3,58 @@
 use strict;
 use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 16;
 
 our $foo;
 
 {
  use subs::auto in => 'subs::auto::Test::Pkg';
 
- eval { subs::auto::Test::Pkg::foo 5 };
- is($@, '', 'compiled to subs::auto::Test::Pkg::foo(5)');
- is($foo, 10, 'subs::auto::Test::Pkg::foo was really called');
+ eval { subs::auto::Test::Pkg::foo 1 };
+ is($@, '', 'compiled to subs::auto::Test::Pkg::foo(1)');
+ is($foo, 3, 'subs::auto::Test::Pkg::foo was really called');
 
  {
   use subs::auto;
 
-  eval { foo 3 };
-  is($@, '', 'compiled to foo(3)');
-  is($foo, 3, 'main::foo was really called');
+  eval { foo 2 };
+  is($@, '', 'compiled to foo(2)');
+  is($foo, 4, 'main::foo was really called');
+
+  eval { subs::auto::Test::Pkg::foo 3 };
+  is($@, '', 'compiled to subs::auto::Test::Pkg::foo(3)');
+  is($foo, 9, 'subs::auto::Test::Pkg::foo was really called');
 
   {
    package subs::auto::Test::Pkg;
 
-   eval { foo 7 };
-   Test::More::is($@, '', 'compiled to foo(7)');
-   Test::More::is($foo, 14, 'subs::auto::Test::Pkg::foo was really called');
+   eval { foo 4 };
+   Test::More::is($@, '', 'compiled to foo(4)');
+   Test::More::is($foo, 12, 'subs::auto::Test::Pkg::foo was really called');
 
-   eval { main::foo 9 };
-   Test::More::is($@, '', 'compiled to main::foo(9)');
-   Test::More::is($foo, 9, 'main::foo was really called');
+   eval { main::foo 5 };
+   Test::More::is($@, '', 'compiled to main::foo(5)');
+   Test::More::is($foo, 10, 'main::foo was really called');
   }
  }
 }
 
+{
+ package subs::auto::Test::Pkg;
+
+ use subs::auto;
+
+ eval { foo 6 };
+ Test::More::is($@, '', 'compiled to foo(6)');
+ Test::More::is($foo, 18, 'subs::auto::Test::Pkg::foo was really called');
+}
+
 {
  use subs::auto in => '::';
 
- eval { foo 11 };
- is($@, '', 'compiled to foo(11)');
- is($foo, 11, 'main::foo was really called');
+ eval { foo 7 };
+ is($@, '', 'compiled to foo(7)');
+ is($foo, 14, 'main::foo was really called');
 }
 
 {
@@ -51,16 +65,16 @@ our $foo;
  {
   package subs::auto::Test::Pkg;
 
-  eval { foo 13 };
-  Test::More::is($@, '', 'compiled to foo(13)');
-  Test::More::is($foo, 26, 'subs::auto::Test::Pkg::foo was really called');
+  eval { foo 8 };
+  Test::More::is($@, '', 'compiled to foo(8)');
+  Test::More::is($foo, 24, 'subs::auto::Test::Pkg::foo was really called');
  }
 }
 
 sub foo {
- $main::foo = $_[0];
+ $main::foo = 2 * $_[0];
 }
 
 sub subs::auto::Test::Pkg::foo {
- $main::foo = 2 * $_[0];
+ $main::foo = 3 * $_[0];
 }