X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F13-padsv.t;h=e5409bc5ca446f73c728ceae03fb8315c85977de;hb=fddda72b93c368843c49a680eda2953c4c139676;hp=8061e90456cf475a2273c51f5485c06bf7e5a503;hpb=b99618b6940bc947b829ddfdb23b5bb69a2e8e98;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/13-padsv.t b/t/13-padsv.t
index 8061e90..e5409bc 100644
--- a/t/13-padsv.t
+++ b/t/13-padsv.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 3;
 
 sub Str::TYPEDSCALAR {
  my $buf = (caller(0))[2];
@@ -25,20 +25,3 @@ sub Str::TYPEDSCALAR {
  my $z = 7;
  is $z, 7, 'trick for others';
 }
-
-my $count;
-sub Int::TYPEDSCALAR { return ++$count }
-
-{ package INT; }
-
-{
- use Lexical::Types as => sub { $_[0] eq 'Int' ? @_ : () };
-
- my Int ($x, $y);
- is $x, 1, 'successive padany 1';
- is $y, 2, 'successive padany 2';
-
- my INT ($z, $t);
- is $z, undef, 'successive padany 3';
- is $t, undef, 'successive padany 4';
-}