r64663 - in /trunk/libpackage-stash-perl: Changes MANIFEST META.json META.yml Makefile.PL README debian/changelog debian/control dist.ini inc/ lib/Package/Stash.pm t/01-basic.t t/02-extension.t t/03-io.t t/06-addsub.t
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sun Nov 7 12:35:56 UTC 2010
Author: ansgar
Date: Sun Nov 7 12:35:43 2010
New Revision: 64663
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64663
Log:
IGNORE-VERSION: 0.13
Only changes to tests.
* Build-dep on libtest-fatal-perl instead of libtest-exception-perl.
Added:
trunk/libpackage-stash-perl/inc/
- copied from r64662, branches/upstream/libpackage-stash-perl/current/inc/
Modified:
trunk/libpackage-stash-perl/Changes
trunk/libpackage-stash-perl/MANIFEST
trunk/libpackage-stash-perl/META.json
trunk/libpackage-stash-perl/META.yml
trunk/libpackage-stash-perl/Makefile.PL
trunk/libpackage-stash-perl/README
trunk/libpackage-stash-perl/debian/changelog
trunk/libpackage-stash-perl/debian/control
trunk/libpackage-stash-perl/dist.ini
trunk/libpackage-stash-perl/lib/Package/Stash.pm
trunk/libpackage-stash-perl/t/01-basic.t
trunk/libpackage-stash-perl/t/02-extension.t
trunk/libpackage-stash-perl/t/03-io.t
trunk/libpackage-stash-perl/t/06-addsub.t
Modified: trunk/libpackage-stash-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/Changes?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/Changes (original)
+++ trunk/libpackage-stash-perl/Changes Sun Nov 7 12:35:43 2010
@@ -1,4 +1,21 @@
Revision history for Package-Stash
+
+0.13 2010-10-31
+ - revert the vivification changes for now, to get an actual release out
+ with Test::Fatal
+
+0.12-TRIAL 2010-10-27
+ - actually include the conflict stuff in the release (bah)
+
+0.11-TRIAL 2010-10-27
+ - conflict on mx-role-withoverloading too
+
+0.10-TRIAL 2010-10-27
+ - only do the weird ISA special-casing on perl versions where it's broken
+
+0.09-TRIAL 2010-10-27
+ - clean up the vivication code a lot, make it behave more sanely
+ - use Test::Fatal instead of Test::Exception (Justin Hunter)
0.08 2010-09-18
- oops, accidentally included some experimental changes in that last
Modified: trunk/libpackage-stash-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/MANIFEST?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/MANIFEST (original)
+++ trunk/libpackage-stash-perl/MANIFEST Sun Nov 7 12:35:43 2010
@@ -6,6 +6,7 @@
Makefile.PL
README
dist.ini
+inc/MMPackageStash.pm
lib/Package/Stash.pm
t/00-compile.t
t/01-basic.t
Modified: trunk/libpackage-stash-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/META.json?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/META.json (original)
+++ trunk/libpackage-stash-perl/META.json Sun Nov 7 12:35:43 2010
@@ -4,7 +4,7 @@
"Jesse Luehrs <doy at tozt dot net>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.102340, CPAN::Meta::Converter version 2.101670",
+ "generated_by" : "Dist::Zilla version 4.102342, CPAN::Meta::Converter version 2.101670",
"license" : [
"perl_5"
],
@@ -26,7 +26,7 @@
},
"test" : {
"requires" : {
- "Test::Exception" : 0,
+ "Test::Fatal" : 0,
"Test::More" : "0.88"
}
}
@@ -38,88 +38,88 @@
"url" : "git://github.com/doy/package-stash.git"
}
},
- "version" : "0.08",
+ "version" : "0.13",
"x_Dist_Zilla" : {
"plugins" : [
{
"class" : "Dist::Zilla::Plugin::GatherDir",
"name" : "@DOY/GatherDir",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@DOY/PruneCruft",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::ManifestSkip",
"name" : "@DOY/ManifestSkip",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@DOY/MetaYAML",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@DOY/License",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::Readme",
"name" : "@DOY/Readme",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::ExtraTests",
"name" : "@DOY/ExtraTests",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@DOY/ExecDir",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@DOY/ShareDir",
- "version" : "4.102340"
- },
- {
- "class" : "Dist::Zilla::Plugin::MakeMaker",
- "name" : "@DOY/MakeMaker",
- "version" : "4.102340"
+ "version" : "4.102342"
+ },
+ {
+ "class" : "inc::MMPackageStash",
+ "name" : "@DOY/=inc::MMPackageStash",
+ "version" : null
},
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@DOY/Manifest",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@DOY/TestRelease",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@DOY/ConfirmRelease",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "@DOY/MetaConfig",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "@DOY/MetaJSON",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::NextRelease",
"name" : "@DOY/NextRelease",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::CheckChangesHasContent",
@@ -129,17 +129,17 @@
{
"class" : "Dist::Zilla::Plugin::PkgVersion",
"name" : "@DOY/PkgVersion",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::PodCoverageTests",
"name" : "@DOY/PodCoverageTests",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
"name" : "@DOY/PodSyntaxTests",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::NoTabsTests",
@@ -184,21 +184,21 @@
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@DOY/UploadToCPAN",
- "version" : "4.102340"
- },
- {
- "class" : "Dist::Zilla::Plugin::Prereq",
+ "version" : "4.102342"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "runtime",
"type" : "requires"
}
},
- "name" : "Prereq",
- "version" : "4.102340"
- },
- {
- "class" : "Dist::Zilla::Plugin::Prereq",
+ "name" : "Prereqs",
+ "version" : "4.102342"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Prereqs",
"config" : {
"Dist::Zilla::Plugin::Prereqs" : {
"phase" : "test",
@@ -206,27 +206,27 @@
}
},
"name" : "TestRequires",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
- "version" : "4.102340"
+ "version" : "4.102342"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
- "version" : "4.102340"
+ "version" : "4.102342"
}
],
"zilla" : {
@@ -234,7 +234,7 @@
"config" : {
"is_trial" : 0
},
- "version" : "4.102340"
+ "version" : "4.102342"
}
}
}
Modified: trunk/libpackage-stash-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/META.yml?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/META.yml (original)
+++ trunk/libpackage-stash-perl/META.yml Sun Nov 7 12:35:43 2010
@@ -3,12 +3,12 @@
author:
- 'Jesse Luehrs <doy at tozt dot net>'
build_requires:
- Test::Exception: 0
+ Test::Fatal: 0
Test::More: 0.88
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.102340, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.102342, CPAN::Meta::Converter version 2.101670'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -18,73 +18,73 @@
Scalar::Util: 0
resources:
repository: git://github.com/doy/package-stash.git
-version: 0.08
+version: 0.13
x_Dist_Zilla:
plugins:
-
class: Dist::Zilla::Plugin::GatherDir
name: '@DOY/GatherDir'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@DOY/PruneCruft'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@DOY/ManifestSkip'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@DOY/MetaYAML'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::License
name: '@DOY/License'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::Readme
name: '@DOY/Readme'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::ExtraTests
name: '@DOY/ExtraTests'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::ExecDir
name: '@DOY/ExecDir'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::ShareDir
name: '@DOY/ShareDir'
- version: 4.102340
+ version: 4.102342
-
- class: Dist::Zilla::Plugin::MakeMaker
- name: '@DOY/MakeMaker'
- version: 4.102340
+ class: inc::MMPackageStash
+ name: '@DOY/=inc::MMPackageStash'
+ version: ~
-
class: Dist::Zilla::Plugin::Manifest
name: '@DOY/Manifest'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::TestRelease
name: '@DOY/TestRelease'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@DOY/ConfirmRelease'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::MetaConfig
name: '@DOY/MetaConfig'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::MetaJSON
name: '@DOY/MetaJSON'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::NextRelease
name: '@DOY/NextRelease'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::CheckChangesHasContent
name: '@DOY/CheckChangesHasContent'
@@ -92,15 +92,15 @@
-
class: Dist::Zilla::Plugin::PkgVersion
name: '@DOY/PkgVersion'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::PodCoverageTests
name: '@DOY/PodCoverageTests'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: '@DOY/PodSyntaxTests'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::NoTabsTests
name: '@DOY/NoTabsTests'
@@ -136,41 +136,41 @@
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@DOY/UploadToCPAN'
- version: 4.102340
+ version: 4.102342
-
- class: Dist::Zilla::Plugin::Prereq
+ class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: runtime
type: requires
- name: Prereq
- version: 4.102340
+ name: Prereqs
+ version: 4.102342
-
- class: Dist::Zilla::Plugin::Prereq
+ class: Dist::Zilla::Plugin::Prereqs
config:
Dist::Zilla::Plugin::Prereqs:
phase: test
type: requires
name: TestRequires
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
- version: 4.102340
+ version: 4.102342
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
- version: 4.102340
+ version: 4.102342
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
- version: 4.102340
+ version: 4.102342
Modified: trunk/libpackage-stash-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/Makefile.PL?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/Makefile.PL (original)
+++ trunk/libpackage-stash-perl/Makefile.PL Sun Nov 7 12:35:43 2010
@@ -1,18 +1,17 @@
+# This Makefile.PL for was generated by Dist::Zilla.
+# Don't edit it but the dist.ini used to construct it.
use strict;
use warnings;
-
-
-
use ExtUtils::MakeMaker 6.31;
-
+check_conflicts();
my %WriteMakefileArgs = (
'ABSTRACT' => 'routines for manipulating stashes',
'AUTHOR' => 'Jesse Luehrs <doy at tozt dot net>',
'BUILD_REQUIRES' => {
- 'Test::Exception' => '0',
+ 'Test::Fatal' => '0',
'Test::More' => '0.88'
},
'CONFIGURE_REQUIRES' => {
@@ -25,7 +24,7 @@
'PREREQ_PM' => {
'Scalar::Util' => '0'
},
- 'VERSION' => '0.08',
+ 'VERSION' => '0.13',
'test' => {
'TESTS' => 't/*.t'
}
@@ -50,5 +49,40 @@
WriteMakefile(%WriteMakefileArgs);
+sub check_conflicts {
+ my %conflicts = (
+ # 'Class::MOP' => '1.08',
+ # 'MooseX::Role::WithOverloading' => '0.08',
+ );
+ my $found = 0;
+ for my $mod ( sort keys %conflicts ) {
+ eval "require $mod";
+ next if $@;
+ my $installed = $mod->VERSION();
+ if ( $installed le $conflicts{$mod} ) {
+ print <<"EOF";
+
+***
+ This version of Package::Stash conflicts with the version of
+ $mod ($installed) you have installed.
+
+ You will need to upgrade $mod after installing
+ this version of Package::Stash.
+***
+
+EOF
+
+ $found = 1;
+ }
+ }
+
+ return unless $found;
+
+ # More or less copied from Module::Build
+ return if $ENV{PERL_MM_USE_DEFAULT};
+ return unless -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT));
+
+ sleep 4;
+}
Modified: trunk/libpackage-stash-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/README?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/README (original)
+++ trunk/libpackage-stash-perl/README Sun Nov 7 12:35:43 2010
@@ -1,7 +1,7 @@
This archive contains the distribution Package-Stash,
-version 0.08:
+version 0.13:
routines for manipulating stashes
Modified: trunk/libpackage-stash-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/debian/changelog?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/debian/changelog (original)
+++ trunk/libpackage-stash-perl/debian/changelog Sun Nov 7 12:35:43 2010
@@ -1,8 +1,12 @@
-libpackage-stash-perl (0.08-2) UNRELEASED; urgency=low
+libpackage-stash-perl (0.13-1) UNRELEASED; urgency=low
+ IGNORE-VERSION: 0.13
+ Only changes to tests.
+
+ * Build-dep on libtest-fatal-perl instead of libtest-exception-perl.
* Update my email address.
- -- Ansgar Burchardt <ansgar at debian.org> Mon, 01 Nov 2010 11:17:13 +0100
+ -- Ansgar Burchardt <ansgar at debian.org> Sun, 07 Nov 2010 13:15:49 +0100
libpackage-stash-perl (0.08-1) unstable; urgency=low
Modified: trunk/libpackage-stash-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/debian/control?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/debian/control (original)
+++ trunk/libpackage-stash-perl/debian/control Sun Nov 7 12:35:43 2010
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl, libtest-exception-perl,
+Build-Depends-Indep: perl, libtest-fatal-perl,
perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ansgar Burchardt <ansgar at debian.org>
Modified: trunk/libpackage-stash-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/dist.ini?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/dist.ini (original)
+++ trunk/libpackage-stash-perl/dist.ini Sun Nov 7 12:35:43 2010
@@ -4,11 +4,13 @@
copyright_holder = Jesse Luehrs
[@DOY]
+:version = 0.05
dist = Package-Stash
+awesome = =inc::MMPackageStash
-[Prereq]
+[Prereqs]
Scalar::Util = 0
-[Prereq / TestRequires]
-Test::Exception = 0
+[Prereqs / TestRequires]
+Test::Fatal = 0
Test::More = 0.88
Modified: trunk/libpackage-stash-perl/lib/Package/Stash.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/lib/Package/Stash.pm?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/lib/Package/Stash.pm (original)
+++ trunk/libpackage-stash-perl/lib/Package/Stash.pm Sun Nov 7 12:35:43 2010
@@ -1,6 +1,6 @@
package Package::Stash;
BEGIN {
- $Package::Stash::VERSION = '0.08';
+ $Package::Stash::VERSION = '0.13';
}
use strict;
use warnings;
@@ -295,7 +295,7 @@
=head1 VERSION
-version 0.08
+version 0.13
=head1 SYNOPSIS
Modified: trunk/libpackage-stash-perl/t/01-basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/t/01-basic.t?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/t/01-basic.t (original)
+++ trunk/libpackage-stash-perl/t/01-basic.t Sun Nov 7 12:35:43 2010
@@ -2,11 +2,11 @@
use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Package::Stash;
-dies_ok { Package::Stash->name } q{... can't call name() as a class method};
+ok(exception { Package::Stash->name }, q{... can't call name() as a class method});
{
package Foo;
@@ -22,9 +22,9 @@
ok(!$foo_stash->has_package_symbol('%foo'), '... the object agrees');
ok(!defined($Foo::{foo}), '... checking doesn\' vivify');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('%foo' => { one => 1 });
-} '... created %Foo::foo successfully';
+}, '... created %Foo::foo successfully');
# ... scalar should NOT be created here
@@ -63,9 +63,9 @@
ok(!defined($Foo::{bar}), '... the @bar slot has not been created yet');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('@bar' => [ 1, 2, 3 ]);
-} '... created @Foo::bar successfully';
+}, '... created @Foo::bar successfully');
ok(defined($Foo::{bar}), '... the @bar slot was created successfully');
ok($foo_stash->has_package_symbol('@bar'), '... the meta agrees');
@@ -89,9 +89,9 @@
ok(!defined($Foo::{baz}), '... the $baz slot has not been created yet');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('$baz' => 10);
-} '... created $Foo::baz successfully';
+}, '... created $Foo::baz successfully');
ok(defined($Foo::{baz}), '... the $baz slot was created successfully');
ok($foo_stash->has_package_symbol('$baz'), '... the meta agrees');
@@ -115,9 +115,9 @@
ok(!defined($Foo::{funk}), '... the &funk slot has not been created yet');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('&funk' => sub { "Foo::funk" });
-} '... created &Foo::funk successfully';
+}, '... created &Foo::funk successfully');
ok(defined($Foo::{funk}), '... the &funk slot was created successfully');
ok($foo_stash->has_package_symbol('&funk'), '... the meta agrees');
@@ -139,23 +139,23 @@
my $ARRAY = [ 1, 2, 3 ];
my $CODE = sub { "Foo::foo" };
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('@foo' => $ARRAY);
-} '... created @Foo::foo successfully';
+}, '... created @Foo::foo successfully');
ok($foo_stash->has_package_symbol('@foo'), '... the @foo slot was added successfully');
is($foo_stash->get_package_symbol('@foo'), $ARRAY, '... got the right values for @Foo::foo');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('&foo' => $CODE);
-} '... created &Foo::foo successfully';
+}, '... created &Foo::foo successfully');
ok($foo_stash->has_package_symbol('&foo'), '... the meta agrees');
is($foo_stash->get_package_symbol('&foo'), $CODE, '... got the right value for &Foo::foo');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('$foo' => 'Foo::foo');
-} '... created $Foo::foo successfully';
+}, '... created $Foo::foo successfully');
ok($foo_stash->has_package_symbol('$foo'), '... the meta agrees');
my $SCALAR = $foo_stash->get_package_symbol('$foo');
@@ -166,9 +166,9 @@
is(${'Foo::foo'}, 'Foo::foo', '... got the right value from the scalar');
}
-lives_ok {
+ok(!exception {
$foo_stash->remove_package_symbol('%foo');
-} '... removed %Foo::foo successfully';
+}, '... removed %Foo::foo successfully');
ok(!$foo_stash->has_package_symbol('%foo'), '... the %foo slot was removed successfully');
ok($foo_stash->has_package_symbol('@foo'), '... the @foo slot still exists');
@@ -187,9 +187,9 @@
ok(defined(${"Foo::foo"}), '... the $foo slot has NOT been removed');
}
-lives_ok {
+ok(!exception {
$foo_stash->remove_package_symbol('&foo');
-} '... removed &Foo::foo successfully';
+}, '... removed &Foo::foo successfully');
ok(!$foo_stash->has_package_symbol('&foo'), '... the &foo slot no longer exists');
@@ -207,9 +207,9 @@
ok(defined(${"Foo::foo"}), '... the $foo slot has NOT been removed');
}
-lives_ok {
+ok(!exception {
$foo_stash->remove_package_symbol('$foo');
-} '... removed $Foo::foo successfully';
+}, '... removed $Foo::foo successfully');
ok(!$foo_stash->has_package_symbol('$foo'), '... the $foo slot no longer exists');
@@ -227,26 +227,26 @@
# check some errors
-dies_ok {
+ok(exception {
$foo_stash->add_package_symbol('@bar', {})
-} "can't initialize a slot with the wrong type of value";
-
-dies_ok {
+}, "can't initialize a slot with the wrong type of value");
+
+ok(exception {
$foo_stash->add_package_symbol('bar', [])
-} "can't initialize a slot with the wrong type of value";
-
-dies_ok {
+}, "can't initialize a slot with the wrong type of value");
+
+ok(exception {
$foo_stash->add_package_symbol('$bar', sub { })
-} "can't initialize a slot with the wrong type of value";
+}, "can't initialize a slot with the wrong type of value");
{
package Bar;
open *foo, '<', $0;
}
-dies_ok {
+ok(exception {
$foo_stash->add_package_symbol('$bar', *Bar::foo{IO})
-} "can't initialize a slot with the wrong type of value";
+}, "can't initialize a slot with the wrong type of value");
# check compile time manipulation
Modified: trunk/libpackage-stash-perl/t/02-extension.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/t/02-extension.t?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/t/02-extension.t (original)
+++ trunk/libpackage-stash-perl/t/02-extension.t Sun Nov 7 12:35:43 2010
@@ -2,7 +2,7 @@
use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
{
package My::Package::Stash;
@@ -40,9 +40,9 @@
ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
ok(!$foo_stash->has_package_symbol('%foo'), '... the foo_stash agrees');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('%foo' => { one => 1 });
-} '... the %foo symbol is created succcessfully';
+}, '... the %foo symbol is created succcessfully');
ok(!defined($Foo::{foo}), '... the %foo slot has not been created in the actual Foo package');
ok($foo_stash->has_package_symbol('%foo'), '... the foo_stash agrees');
@@ -56,17 +56,17 @@
ok(!defined($Foo::{bar}), '... the @bar slot has not been created yet');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('@bar' => [ 1, 2, 3 ]);
-} '... created @Foo::bar successfully';
+}, '... created @Foo::bar successfully');
ok(!defined($Foo::{bar}), '... the @bar slot has still not been created');
ok(!defined($Foo::{baz}), '... the %baz slot has not been created yet');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('%baz');
-} '... created %Foo::baz successfully';
+}, '... created %Foo::baz successfully');
ok(!defined($Foo::{baz}), '... the %baz slot has still not been created');
Modified: trunk/libpackage-stash-perl/t/03-io.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/t/03-io.t?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/t/03-io.t (original)
+++ trunk/libpackage-stash-perl/t/03-io.t Sun Nov 7 12:35:43 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
{
package Foo;
@@ -40,9 +40,9 @@
{
my $stash = Package::Stash->new('Baz');
- lives_ok {
+ ok(!exception {
$stash->add_package_symbol('baz', *Foo::foo{IO});
- } "can add an IO symbol";
+ }, "can add an IO symbol");
ok($stash->has_package_symbol('baz'), "has baz");
is($stash->get_package_symbol('baz'), *Foo::foo{IO}, "got the right baz");
}
Modified: trunk/libpackage-stash-perl/t/06-addsub.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpackage-stash-perl/t/06-addsub.t?rev=64663&op=diff
==============================================================================
--- trunk/libpackage-stash-perl/t/06-addsub.t (original)
+++ trunk/libpackage-stash-perl/t/06-addsub.t Sun Nov 7 12:35:43 2010
@@ -2,7 +2,7 @@
use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
BEGIN { $^P |= 0x210 } # PERLDBf_SUBLINE
@@ -15,9 +15,9 @@
ok(!defined($Foo::{funk}), '... the &funk slot has not been created yet');
-lives_ok {
+ok(!exception {
$foo_stash->add_package_symbol('&funk' => sub { "Foo::funk", __LINE__ });
-} '... created &Foo::funk successfully';
+}, '... created &Foo::funk successfully');
ok(defined($Foo::{funk}), '... the &funk slot was created successfully');
More information about the Pkg-perl-cvs-commits
mailing list