r68578 - in /branches/upstream/libpackage-stash-perl/current: ./ bin/ lib/Package/ lib/Package/Stash/ t/ t/lib/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Feb 14 01:59:06 UTC 2011
Author: jawnsy-guest
Date: Mon Feb 14 01:58:45 2011
New Revision: 68578
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68578
Log:
[svn-upgrade] new version libpackage-stash-perl (0.25)
Added:
branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t
branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t
branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm
Removed:
branches/upstream/libpackage-stash-perl/current/t/20-leaks.t
branches/upstream/libpackage-stash-perl/current/t/21-leaks-debug.t
Modified:
branches/upstream/libpackage-stash-perl/current/Changes
branches/upstream/libpackage-stash-perl/current/MANIFEST
branches/upstream/libpackage-stash-perl/current/META.json
branches/upstream/libpackage-stash-perl/current/META.yml
branches/upstream/libpackage-stash-perl/current/Makefile.PL
branches/upstream/libpackage-stash-perl/current/README
branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts
branches/upstream/libpackage-stash-perl/current/dist.ini
branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm
branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm
branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm
branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t
Modified: branches/upstream/libpackage-stash-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/Changes?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/Changes (original)
+++ branches/upstream/libpackage-stash-perl/current/Changes Mon Feb 14 01:58:45 2011
@@ -1,4 +1,22 @@
Revision history for Package-Stash
+
+0.25 2011-01-25
+ - make the leak tests author-only, since some smokers run release tests
+
+0.24 2011-01-17
+ - oops, i did need the Test::Requires dep
+
+0.23 2011-01-11
+ - lower perl prereq to 5.8.1 (ribasushi)
+ - make the leak tests release-only, since they keep randomly failing on
+ platforms i don't have access to. people are encouraged to submit
+ patches for these if they are affected.
+
+0.22 2011-01-05
+ - bump ::XS dep again
+
+0.21 2011-01-05
+ - bump Package::Stash::XS dep, since a bug was fixed there
0.20 2011-01-03
- one more fix for the Conflicts plugin
Modified: branches/upstream/libpackage-stash-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/MANIFEST?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/MANIFEST (original)
+++ branches/upstream/libpackage-stash-perl/current/MANIFEST Mon Feb 14 01:58:45 2011
@@ -20,13 +20,14 @@
t/06-addsub.t
t/07-edge-cases.t
t/10-synopsis.t
-t/20-leaks.t
-t/21-leaks-debug.t
+t/author-20-leaks.t
+t/author-21-leaks-debug.t
t/impl-selection/01-choice.t
t/impl-selection/02-env.t
t/impl-selection/03-var.t
t/impl-selection/10-basic-pp.t
t/impl-selection/11-basic-xs.t
+t/lib/CompileTime.pm
t/lib/Package/Stash.pm
t/release-eol.t
t/release-no-tabs.t
Modified: branches/upstream/libpackage-stash-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/META.json?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/META.json (original)
+++ branches/upstream/libpackage-stash-perl/current/META.json Mon Feb 14 01:58:45 2011
@@ -4,7 +4,7 @@
"Jesse Luehrs <doy at tozt dot net>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.101670",
+ "generated_by" : "Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.101670",
"license" : [
"perl_5"
],
@@ -16,22 +16,24 @@
"prereqs" : {
"configure" : {
"requires" : {
- "Dist::CheckConflicts" : "0.02",
+ "Dist::CheckConflicts" : "0.01",
"ExtUtils::MakeMaker" : "6.31"
+ }
+ },
+ "develop" : {
+ "requires" : {
+ "Test::LeakTrace" : 0
}
},
"runtime" : {
"requires" : {
"Package::DeprecationManager" : 0,
- "Package::Stash::XS" : 0,
+ "Package::Stash::XS" : "0.21",
"Scalar::Util" : 0,
- "perl" : "v5.8.3"
+ "perl" : "v5.8.1"
}
},
"test" : {
- "recommends" : {
- "Test::LeakTrace" : 0
- },
"requires" : {
"Test::Fatal" : 0,
"Test::More" : "0.88",
@@ -46,53 +48,53 @@
"url" : "git://github.com/doy/package-stash.git"
}
},
- "version" : "0.20",
+ "version" : "0.25",
"x_Dist_Zilla" : {
"plugins" : [
{
"class" : "Dist::Zilla::Plugin::GatherDir",
"name" : "@DOY/GatherDir",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@DOY/PruneCruft",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ManifestSkip",
"name" : "@DOY/ManifestSkip",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@DOY/MetaYAML",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@DOY/License",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Readme",
"name" : "@DOY/Readme",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ExtraTests",
"name" : "@DOY/ExtraTests",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@DOY/ExecDir",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@DOY/ShareDir",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "inc::MMPackageStash",
@@ -102,32 +104,32 @@
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@DOY/Manifest",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@DOY/TestRelease",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@DOY/ConfirmRelease",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "@DOY/MetaConfig",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "@DOY/MetaJSON",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::NextRelease",
"name" : "@DOY/NextRelease",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::CheckChangesHasContent",
@@ -137,17 +139,17 @@
{
"class" : "Dist::Zilla::Plugin::PkgVersion",
"name" : "@DOY/PkgVersion",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::PodCoverageTests",
"name" : "@DOY/PodCoverageTests",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"name" : "@DOY/PodSyntaxTests",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::NoTabsTests",
@@ -192,7 +194,7 @@
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@DOY/UploadToCPAN",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
@@ -203,7 +205,7 @@
}
},
"name" : "Prereqs",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
@@ -214,43 +216,43 @@
}
},
"name" : "TestRequires",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
- "phase" : "test",
- "type" : "recommends"
+ "phase" : "develop",
+ "type" : "requires"
}
},
- "name" : "TestRecommends",
- "version" : "4.200001"
+ "name" : "DevelopRequires",
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::Conflicts",
"name" : "Conflicts",
- "version" : null
+ "version" : "0.04"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
- "version" : "4.200001"
+ "version" : "4.200000"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
- "version" : "4.200001"
+ "version" : "4.200000"
}
],
"zilla" : {
@@ -258,7 +260,7 @@
"config" : {
"is_trial" : 0
},
- "version" : "4.200001"
+ "version" : "4.200000"
}
},
"x_conflicts" : {
Modified: branches/upstream/libpackage-stash-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/META.yml?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/META.yml (original)
+++ branches/upstream/libpackage-stash-perl/current/META.yml Mon Feb 14 01:58:45 2011
@@ -7,10 +7,10 @@
Test::More: 0.88
Test::Requires: 0
configure_requires:
- Dist::CheckConflicts: 0.02
+ Dist::CheckConflicts: 0.01
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200001, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.101670'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -18,50 +18,50 @@
name: Package-Stash
requires:
Package::DeprecationManager: 0
- Package::Stash::XS: 0
+ Package::Stash::XS: 0.21
Scalar::Util: 0
- perl: 5.8.3
+ perl: 5.8.1
resources:
repository: git://github.com/doy/package-stash.git
-version: 0.20
+version: 0.25
x_Dist_Zilla:
plugins:
-
class: Dist::Zilla::Plugin::GatherDir
name: '@DOY/GatherDir'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@DOY/PruneCruft'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@DOY/ManifestSkip'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@DOY/MetaYAML'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::License
name: '@DOY/License'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Readme
name: '@DOY/Readme'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ExtraTests
name: '@DOY/ExtraTests'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ExecDir
name: '@DOY/ExecDir'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ShareDir
name: '@DOY/ShareDir'
- version: 4.200001
+ version: 4.200000
-
class: inc::MMPackageStash
name: '@DOY/=inc::MMPackageStash'
@@ -69,27 +69,27 @@
-
class: Dist::Zilla::Plugin::Manifest
name: '@DOY/Manifest'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::TestRelease
name: '@DOY/TestRelease'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@DOY/ConfirmRelease'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MetaConfig
name: '@DOY/MetaConfig'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::MetaJSON
name: '@DOY/MetaJSON'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::NextRelease
name: '@DOY/NextRelease'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::CheckChangesHasContent
name: '@DOY/CheckChangesHasContent'
@@ -97,15 +97,15 @@
-
class: Dist::Zilla::Plugin::PkgVersion
name: '@DOY/PkgVersion'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::PodCoverageTests
name: '@DOY/PodCoverageTests'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: '@DOY/PodSyntaxTests'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::NoTabsTests
name: '@DOY/NoTabsTests'
@@ -141,7 +141,7 @@
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@DOY/UploadToCPAN'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Prereqs
config:
@@ -149,7 +149,7 @@
phase: runtime
type: requires
name: Prereqs
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Prereqs
config:
@@ -157,40 +157,40 @@
phase: test
type: requires
name: TestRequires
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
- phase: test
- type: recommends
- name: TestRecommends
- version: 4.200001
+ phase: develop
+ type: requires
+ name: DevelopRequires
+ version: 4.200000
-
class: Dist::Zilla::Plugin::Conflicts
name: Conflicts
- version: ~
+ version: 0.04
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
- version: 4.200001
+ version: 4.200000
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
- version: 4.200001
+ version: 4.200000
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
- version: 4.200001
+ version: 4.200000
x_conflicts:
Class::MOP: 1.08
MooseX::Role::WithOverloading: 0.08
Modified: branches/upstream/libpackage-stash-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/Makefile.PL?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/Makefile.PL (original)
+++ branches/upstream/libpackage-stash-perl/current/Makefile.PL Mon Feb 14 01:58:45 2011
@@ -1,6 +1,6 @@
# This Makefile.PL for was generated by Dist::Zilla.
# Don't edit it but the dist.ini used to construct it.
-BEGIN { require 5.8.3; }
+BEGIN { require 5.8.1; }
use strict;
use warnings;
use ExtUtils::MakeMaker 6.31;
@@ -15,7 +15,7 @@
'Test::Requires' => '0'
},
'CONFIGURE_REQUIRES' => {
- 'Dist::CheckConflicts' => '0.02',
+ 'Dist::CheckConflicts' => '0.01',
'ExtUtils::MakeMaker' => '6.31'
},
'DISTNAME' => 'Package-Stash',
@@ -26,10 +26,10 @@
'NAME' => 'Package::Stash',
'PREREQ_PM' => {
'Package::DeprecationManager' => '0',
- 'Package::Stash::XS' => '0',
+ 'Package::Stash::XS' => '0.21',
'Scalar::Util' => '0'
},
- 'VERSION' => '0.20',
+ 'VERSION' => '0.25',
'test' => {
'TESTS' => 't/*.t t/impl-selection/*.t'
}
Modified: branches/upstream/libpackage-stash-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/README?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/README (original)
+++ branches/upstream/libpackage-stash-perl/current/README Mon Feb 14 01:58:45 2011
@@ -1,7 +1,7 @@
This archive contains the distribution Package-Stash,
-version 0.20:
+version 0.25:
routines for manipulating stashes
Modified: branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts (original)
+++ branches/upstream/libpackage-stash-perl/current/bin/package-stash-conflicts Mon Feb 14 01:58:45 2011
@@ -18,24 +18,3 @@
print "$_\n" for map { $_->{package} } @conflicts;
exit @conflicts;
}
-
-__END__
-=pod
-
-=head1 NAME
-
-package-stash-conflicts
-
-=head1 VERSION
-
-version 0.20
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011 by Jesse Luehrs.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
-
Modified: branches/upstream/libpackage-stash-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/dist.ini?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/dist.ini (original)
+++ branches/upstream/libpackage-stash-perl/current/dist.ini Mon Feb 14 01:58:45 2011
@@ -9,9 +9,9 @@
awesome = =inc::MMPackageStash
[Prereqs]
-perl = 5.8.3
+perl = 5.8.1
Package::DeprecationManager = 0
-Package::Stash::XS = 0
+Package::Stash::XS = 0.21
Scalar::Util = 0
[Prereqs / TestRequires]
@@ -19,7 +19,7 @@
Test::More = 0.88
Test::Requires = 0
-[Prereqs / TestRecommends]
+[Prereqs / DevelopRequires]
Test::LeakTrace = 0
[Conflicts]
Modified: branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm (original)
+++ branches/upstream/libpackage-stash-perl/current/lib/Package/Stash.pm Mon Feb 14 01:58:45 2011
@@ -1,6 +1,6 @@
package Package::Stash;
BEGIN {
- $Package::Stash::VERSION = '0.20';
+ $Package::Stash::VERSION = '0.25';
}
use strict;
use warnings;
@@ -102,7 +102,7 @@
=head1 VERSION
-version 0.20
+version 0.25
=head1 SYNOPSIS
Modified: branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm (original)
+++ branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/Conflicts.pm Mon Feb 14 01:58:45 2011
@@ -16,28 +16,6 @@
Package::Stash::XS
Scalar::Util
) ],
-
;
1;
-
-__END__
-=pod
-
-=head1 NAME
-
-Package::Stash::Conflicts
-
-=head1 VERSION
-
-version 0.20
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2011 by Jesse Luehrs.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
-
Modified: branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm (original)
+++ branches/upstream/libpackage-stash-perl/current/lib/Package/Stash/PP.pm Mon Feb 14 01:58:45 2011
@@ -1,6 +1,6 @@
package Package::Stash::PP;
BEGIN {
- $Package::Stash::PP::VERSION = '0.20';
+ $Package::Stash::PP::VERSION = '0.25';
}
use strict;
use warnings;
@@ -333,7 +333,7 @@
=head1 VERSION
-version 0.20
+version 0.25
=head1 SYNOPSIS
Modified: branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t?rev=68578&op=diff
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t (original)
+++ branches/upstream/libpackage-stash-perl/current/t/07-edge-cases.t Mon Feb 14 01:58:45 2011
@@ -3,6 +3,7 @@
use warnings;
use lib 't/lib';
use Test::More;
+use Test::Fatal;
use Package::Stash;
@@ -52,4 +53,17 @@
is(ref($stash->get_symbol('$glob')), '', "nothing yet");
is(ref($stash->get_or_add_symbol('$glob')), 'SCALAR', "got an empty scalar");
+my $Bar = Package::Stash->new('Bar');
+my $foo = 3;
+$foo =~ s/3/4/;
+my $bar = 4.5;
+$bar =~ s/4/5/;
+
+is(exception { $Bar->add_symbol('$foo', \$foo) }, undef,
+ "can add PVIV values");
+is(exception { $Bar->add_symbol('$bar', \$bar) }, undef,
+ "can add PVNV values");
+
+use_ok('CompileTime');
+
done_testing;
Added: branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t?rev=68578&op=file
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t (added)
+++ branches/upstream/libpackage-stash-perl/current/t/author-20-leaks.t Mon Feb 14 01:58:45 2011
@@ -1,0 +1,202 @@
+#!/usr/bin/env perl
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for testing by the author');
+ }
+}
+
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More;
+use Test::Fatal;
+use Test::LeakTrace;
+
+use Package::Stash;
+use Symbol;
+
+{
+ package Bar;
+}
+
+{
+ package Baz;
+ our $foo;
+ sub bar { }
+ use constant baz => 1;
+ our %quux = (a => 'b');
+}
+
+{
+ no_leaks_ok {
+ Package::Stash->new('Foo');
+ } "object construction doesn't leak";
+}
+
+{
+ no_leaks_ok {
+ Package::Stash->new('Bar');
+ } "object construction doesn't leak, with an existing package";
+}
+
+{
+ no_leaks_ok {
+ Package::Stash->new('Baz');
+ } "object construction doesn't leak, with an existing package with things in it";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->name;
+ $foo->namespace;
+ } "accessors don't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->add_symbol('$scalar');
+ $foo->add_symbol('@array');
+ $foo->add_symbol('%hash');
+ $foo->add_symbol('io');
+ } "add_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ { local $TODO = $Package::Stash::IMPLEMENTATION eq 'PP'
+ ? "the pure perl implementation leaks here somehow"
+ : undef;
+ no_leaks_ok {
+ $foo->add_symbol('$scalar_init' => 1);
+ $foo->add_symbol('@array_init' => []);
+ $foo->add_symbol('%hash_init' => {});
+ $foo->add_symbol('&code_init' => sub { "foo" });
+ $foo->add_symbol('io_init' => Symbol::geniosym);
+ } "add_symbol doesn't leak";
+ }
+ is(exception {
+ is(Foo->code_init, 'foo', "sub installed correctly")
+ }, undef, "code_init exists");
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->remove_symbol('$scalar_init');
+ $foo->remove_symbol('@array_init');
+ $foo->remove_symbol('%hash_init');
+ $foo->remove_symbol('&code_init');
+ $foo->remove_symbol('io_init');
+ } "remove_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ $foo->add_symbol("${_}glob") for ('$', '@', '%', '&', '');
+ no_leaks_ok {
+ $foo->remove_glob('glob');
+ } "remove_glob doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->has_symbol('io');
+ $foo->has_symbol('%hash');
+ $foo->has_symbol('@array_init');
+ $foo->has_symbol('$glob');
+ $foo->has_symbol('&something_else');
+ } "has_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->get_symbol('io');
+ $foo->get_symbol('%hash');
+ $foo->get_symbol('@array_init');
+ $foo->get_symbol('$glob');
+ $foo->get_symbol('&something_else');
+ } "get_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ ok(!$foo->has_symbol('$glob'));
+ ok(!$foo->has_symbol('@array_init'));
+ no_leaks_ok {
+ $foo->get_or_add_symbol('io');
+ $foo->get_or_add_symbol('%hash');
+ my @super = ('Exporter');
+ @{$foo->get_or_add_symbol('@ISA')} = @super;
+ $foo->get_or_add_symbol('$glob');
+ } "get_or_add_symbol doesn't leak";
+ { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP')
+ ? "undef scalars aren't visible on 5.8, or from pure perl at all"
+ : undef;
+ ok($foo->has_symbol('$glob'));
+ }
+ is(ref($foo->get_symbol('$glob')), 'SCALAR');
+ ok($foo->has_symbol('@ISA'));
+ is(ref($foo->get_symbol('@ISA')), 'ARRAY');
+ is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
+ isa_ok('Foo', 'Exporter');
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ my $baz = Package::Stash->new('Baz');
+ no_leaks_ok {
+ $foo->list_all_symbols;
+ $foo->list_all_symbols('SCALAR');
+ $foo->list_all_symbols('CODE');
+ $baz->list_all_symbols('CODE');
+ } "list_all_symbols doesn't leak";
+}
+
+{
+ package Blah;
+ use constant 'baz';
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ my $blah = Package::Stash->new('Blah');
+ no_leaks_ok {
+ $foo->get_all_symbols;
+ $foo->get_all_symbols('SCALAR');
+ $foo->get_all_symbols('CODE');
+ $blah->get_all_symbols('CODE');
+ } "get_all_symbols doesn't leak";
+}
+
+# mimic CMOP::create_anon_class
+{
+ local $TODO = $] < 5.010 ? "deleting stashes is inherently leaky on 5.8"
+ : undef;
+ my $i = 0;
+ no_leaks_ok {
+ $i++;
+ eval "package Quux$i; 1;";
+ my $quux = Package::Stash->new("Quux$i");
+ $quux->get_or_add_symbol('@ISA');
+ delete $::{'Quux' . $i . '::'};
+ } "get_symbol doesn't leak during glob expansion";
+}
+
+{
+ local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP'
+ && $Carp::VERSION ge '1.17')
+ ? "Carp is leaky on 5.12.2 apparently?"
+ : undef;
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ eval { $foo->get_or_add_symbol('&blorg') };
+ } "doesn't leak on errors";
+}
+
+done_testing;
Added: branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t?rev=68578&op=file
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t (added)
+++ branches/upstream/libpackage-stash-perl/current/t/author-21-leaks-debug.t Mon Feb 14 01:58:45 2011
@@ -1,0 +1,204 @@
+#!/usr/bin/env perl
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for testing by the author');
+ }
+}
+
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More;
+use Test::Fatal;
+use Test::LeakTrace;
+
+BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
+
+use Package::Stash;
+use Symbol;
+
+{
+ package Bar;
+}
+
+{
+ package Baz;
+ our $foo;
+ sub bar { }
+ use constant baz => 1;
+ our %quux = (a => 'b');
+}
+
+{
+ no_leaks_ok {
+ Package::Stash->new('Foo');
+ } "object construction doesn't leak";
+}
+
+{
+ no_leaks_ok {
+ Package::Stash->new('Bar');
+ } "object construction doesn't leak, with an existing package";
+}
+
+{
+ no_leaks_ok {
+ Package::Stash->new('Baz');
+ } "object construction doesn't leak, with an existing package with things in it";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->name;
+ $foo->namespace;
+ } "accessors don't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->add_symbol('$scalar');
+ $foo->add_symbol('@array');
+ $foo->add_symbol('%hash');
+ $foo->add_symbol('io');
+ } "add_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ { local $TODO = $Package::Stash::IMPLEMENTATION eq 'PP'
+ ? "the pure perl implementation leaks here somehow"
+ : undef;
+ no_leaks_ok {
+ $foo->add_symbol('$scalar_init' => 1);
+ $foo->add_symbol('@array_init' => []);
+ $foo->add_symbol('%hash_init' => {});
+ $foo->add_symbol('&code_init' => sub { "foo" });
+ $foo->add_symbol('io_init' => Symbol::geniosym);
+ } "add_symbol doesn't leak";
+ }
+ is(exception {
+ is(Foo->code_init, 'foo', "sub installed correctly")
+ }, undef, "code_init exists");
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->remove_symbol('$scalar_init');
+ $foo->remove_symbol('@array_init');
+ $foo->remove_symbol('%hash_init');
+ $foo->remove_symbol('&code_init');
+ $foo->remove_symbol('io_init');
+ } "remove_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ $foo->add_symbol("${_}glob") for ('$', '@', '%', '&', '');
+ no_leaks_ok {
+ $foo->remove_glob('glob');
+ } "remove_glob doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->has_symbol('io');
+ $foo->has_symbol('%hash');
+ $foo->has_symbol('@array_init');
+ $foo->has_symbol('$glob');
+ $foo->has_symbol('&something_else');
+ } "has_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ $foo->get_symbol('io');
+ $foo->get_symbol('%hash');
+ $foo->get_symbol('@array_init');
+ $foo->get_symbol('$glob');
+ $foo->get_symbol('&something_else');
+ } "get_symbol doesn't leak";
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ ok(!$foo->has_symbol('$glob'));
+ ok(!$foo->has_symbol('@array_init'));
+ no_leaks_ok {
+ $foo->get_or_add_symbol('io');
+ $foo->get_or_add_symbol('%hash');
+ my @super = ('Exporter');
+ @{$foo->get_or_add_symbol('@ISA')} = @super;
+ $foo->get_or_add_symbol('$glob');
+ } "get_or_add_symbol doesn't leak";
+ { local $TODO = ($] < 5.010 || $Package::Stash::IMPLEMENTATION eq 'PP')
+ ? "undef scalars aren't visible on 5.8, or from pure perl at all"
+ : undef;
+ ok($foo->has_symbol('$glob'));
+ }
+ is(ref($foo->get_symbol('$glob')), 'SCALAR');
+ ok($foo->has_symbol('@ISA'));
+ is(ref($foo->get_symbol('@ISA')), 'ARRAY');
+ is_deeply($foo->get_symbol('@ISA'), ['Exporter']);
+ isa_ok('Foo', 'Exporter');
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ my $baz = Package::Stash->new('Baz');
+ no_leaks_ok {
+ $foo->list_all_symbols;
+ $foo->list_all_symbols('SCALAR');
+ $foo->list_all_symbols('CODE');
+ $baz->list_all_symbols('CODE');
+ } "list_all_symbols doesn't leak";
+}
+
+{
+ package Blah;
+ use constant 'baz';
+}
+
+{
+ my $foo = Package::Stash->new('Foo');
+ my $blah = Package::Stash->new('Blah');
+ no_leaks_ok {
+ $foo->get_all_symbols;
+ $foo->get_all_symbols('SCALAR');
+ $foo->get_all_symbols('CODE');
+ $blah->get_all_symbols('CODE');
+ } "get_all_symbols doesn't leak";
+}
+
+# mimic CMOP::create_anon_class
+{
+ local $TODO = $] < 5.010 ? "deleting stashes is inherently leaky on 5.8"
+ : undef;
+ my $i = 0;
+ no_leaks_ok {
+ $i++;
+ eval "package Quux$i; 1;";
+ my $quux = Package::Stash->new("Quux$i");
+ $quux->get_or_add_symbol('@ISA');
+ delete $::{'Quux' . $i . '::'};
+ } "get_symbol doesn't leak during glob expansion";
+}
+
+{
+ local $TODO = ($Package::Stash::IMPLEMENTATION eq 'PP'
+ && $Carp::VERSION ge '1.17')
+ ? "Carp is leaky on 5.12.2 apparently?"
+ : undef;
+ my $foo = Package::Stash->new('Foo');
+ no_leaks_ok {
+ eval { $foo->get_or_add_symbol('&blorg') };
+ } "doesn't leak on errors";
+}
+
+done_testing;
Added: branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm?rev=68578&op=file
==============================================================================
--- branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm (added)
+++ branches/upstream/libpackage-stash-perl/current/t/lib/CompileTime.pm Mon Feb 14 01:58:45 2011
@@ -1,0 +1,15 @@
+package CompileTime;
+use strict;
+use warnings;
+
+use Package::Stash;
+
+our $foo = 23;
+
+BEGIN {
+ my $stash = Package::Stash->new(__PACKAGE__);
+ $stash->add_symbol('$bar', $foo);
+ $stash->add_symbol('$baz', $stash->get_symbol('$foo'));
+}
+
+1;
More information about the Pkg-perl-cvs-commits
mailing list