r64458 - in /trunk/libmoosex-strictconstructor-perl: ./ debian/ lib/MooseX/ lib/MooseX/StrictConstructor/Role/ lib/MooseX/StrictConstructor/Role/Meta/Method/ t/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sun Oct 31 11:08:57 UTC 2010
Author: ansgar
Date: Sun Oct 31 11:08:38 2010
New Revision: 64458
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64458
Log:
IGNORE-VERSION: 0.12-1
WAITS-FOR: libtest-fatal-perl 0.001-1
No upload necessary: only changes to tests.
* Build-dep on libtest-fatal-perl instead of libtest-exception-perl.
* debian/copyright: Refer to "Debian systems" instead of "Debian GNU/Linux
systems"; refer to /usr/share/common-licenses/GPL-1.
* Bump Standards-Version to 3.9.1.
* Update my email address.
Modified:
trunk/libmoosex-strictconstructor-perl/Changes
trunk/libmoosex-strictconstructor-perl/INSTALL
trunk/libmoosex-strictconstructor-perl/META.json
trunk/libmoosex-strictconstructor-perl/META.yml
trunk/libmoosex-strictconstructor-perl/Makefile.PL
trunk/libmoosex-strictconstructor-perl/README
trunk/libmoosex-strictconstructor-perl/SIGNATURE
trunk/libmoosex-strictconstructor-perl/debian/changelog
trunk/libmoosex-strictconstructor-perl/debian/control
trunk/libmoosex-strictconstructor-perl/debian/copyright
trunk/libmoosex-strictconstructor-perl/dist.ini
trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm
trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Object.pm
trunk/libmoosex-strictconstructor-perl/t/basic.t
trunk/libmoosex-strictconstructor-perl/t/release-eol.t
Modified: trunk/libmoosex-strictconstructor-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/Changes?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/Changes (original)
+++ trunk/libmoosex-strictconstructor-perl/Changes Sun Oct 31 11:08:38 2010
@@ -1,3 +1,8 @@
+0.12 2010-10-29
+
+- Switched tests to use Test::Fatal instead of Test::Exception.
+
+
0.11 2010-09-09
- Added a missing test dep on Test::Exception. Reported by Phillip Moore. RT
Modified: trunk/libmoosex-strictconstructor-perl/INSTALL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/INSTALL?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/INSTALL (original)
+++ trunk/libmoosex-strictconstructor-perl/INSTALL Sun Oct 31 11:08:38 2010
@@ -38,7 +38,7 @@
## Documentation
-MooseX-StrictConstructor documentation is available as in POD.
+MooseX-StrictConstructor documentation is available as POD.
You can run perldoc from a shell to read the documentation:
% perldoc MooseX::StrictConstructor
Modified: trunk/libmoosex-strictconstructor-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/META.json?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/META.json (original)
+++ trunk/libmoosex-strictconstructor-perl/META.json Sun Oct 31 11:08:38 2010
@@ -4,7 +4,7 @@
"Dave Rolsky <autarch at urth.org>"
],
"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" : [
"artistic_2"
],
@@ -26,7 +26,7 @@
},
"test" : {
"requires" : {
- "Test::Exception" : 0,
+ "Test::Fatal" : 0,
"Test::More" : "0.88"
}
}
@@ -43,6 +43,6 @@
"web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo/MooseX-StrictConstructor.git;a=summary"
}
},
- "version" : "0.11"
+ "version" : "0.12"
}
Modified: trunk/libmoosex-strictconstructor-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/META.yml?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/META.yml (original)
+++ trunk/libmoosex-strictconstructor-perl/META.yml Sun Oct 31 11:08:38 2010
@@ -3,12 +3,12 @@
author:
- 'Dave Rolsky <autarch at urth.org>'
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: artistic_2
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -19,4 +19,4 @@
resources:
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-StrictConstructor
repository: git://git.moose.perl.org/MooseX-StrictConstructor.git
-version: 0.11
+version: 0.12
Modified: trunk/libmoosex-strictconstructor-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/Makefile.PL?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/Makefile.PL (original)
+++ trunk/libmoosex-strictconstructor-perl/Makefile.PL Sun Oct 31 11:08:38 2010
@@ -12,7 +12,7 @@
'ABSTRACT' => 'Make your object constructors blow up on unknown attributes',
'AUTHOR' => 'Dave Rolsky <autarch at urth.org>',
'BUILD_REQUIRES' => {
- 'Test::Exception' => '0',
+ 'Test::Fatal' => '0',
'Test::More' => '0.88'
},
'CONFIGURE_REQUIRES' => {
@@ -25,7 +25,7 @@
'PREREQ_PM' => {
'Moose' => '0.94'
},
- 'VERSION' => '0.11',
+ 'VERSION' => '0.12',
'test' => {
'TESTS' => 't/*.t'
}
Modified: trunk/libmoosex-strictconstructor-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/README?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/README (original)
+++ trunk/libmoosex-strictconstructor-perl/README Sun Oct 31 11:08:38 2010
@@ -1,7 +1,7 @@
This archive contains the distribution MooseX-StrictConstructor,
-version 0.11:
+version 0.12:
Make your object constructors blow up on unknown attributes
Modified: trunk/libmoosex-strictconstructor-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/SIGNATURE?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/SIGNATURE (original)
+++ trunk/libmoosex-strictconstructor-perl/SIGNATURE Sun Oct 31 11:08:38 2010
@@ -14,21 +14,21 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 bcd88f5b325bccaace779911c0b31f6c646b6fec Changes
-SHA1 2209111d63837f5981fd58c67bfacef90015096b INSTALL
+SHA1 052e7dacb57afb15f5f49618b65ddcfa89444d59 Changes
+SHA1 b09c48494e1d0630c6bd6b11fef8e0ac35d509da INSTALL
SHA1 23c628b4a8a36738405ccdacaeb912d2e727b4c0 LICENSE
SHA1 933db8871a9243326a000bda311e4feeb78b270d MANIFEST
-SHA1 3306b91b1abf69221ced2db8bbc896281698aa29 META.json
-SHA1 5033d169155ad705e900c6280f6cc4b77bca23ec META.yml
-SHA1 404439a1a50b62502729f27763f978543f8f26c2 Makefile.PL
-SHA1 4d0b2be54e6b793d020231e1d553654fd55bd52b README
-SHA1 7a05cb57382431ae16e687e7929d2ccede933b7f dist.ini
-SHA1 4cf0f8a6f0e2e70fba913c8f55333a887c2b2349 lib/MooseX/StrictConstructor.pm
-SHA1 04c3a76533981d6a17fc3585c306894e190b823a lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
-SHA1 41bc16e7c28ee9b55e3c15d095c3c28ee4432069 lib/MooseX/StrictConstructor/Role/Object.pm
-SHA1 d4aec4e090cf408f3546eac3f52b2f397ade2699 t/basic.t
+SHA1 427aca6952d2fef5e3f08b3fb56bd6cc1f802ea0 META.json
+SHA1 c695968184bd77bda69d09349a97c75414713591 META.yml
+SHA1 b068ab03bf363d382f1d35862c5d152dba50fdfc Makefile.PL
+SHA1 5aff9f7ae827474df4061d80cd9c3489ea2f19f4 README
+SHA1 7d542ad22a244ac2abe10630f6caa515ab65075e dist.ini
+SHA1 9fa15560aeb4a429580bfd052cf353a0a8f7a947 lib/MooseX/StrictConstructor.pm
+SHA1 bdc997a957e260afcc552fc5bf364fbd162e1b4e lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+SHA1 5651cbe13e1d39d8ef1458824ba748dfd65f23ec lib/MooseX/StrictConstructor/Role/Object.pm
+SHA1 25b48e3b97bb0b262c614332a95dea56e5a71aa9 t/basic.t
SHA1 08967270a332012eb2b6930bc44768d07e7cb8fa t/instance.t
-SHA1 24b525e3c18f37f8022a01ec30de757cefb679ff t/release-eol.t
+SHA1 a032c41ef6887fab1b900669c2d304fab46680e2 t/release-eol.t
SHA1 961a1e2c92d836c8cad2d34b784cbc75345dec63 t/release-kwalitee.t
SHA1 455d1dd1867212a665ad5ea4126b572411de300c t/release-no-tabs.t
SHA1 9433c240fe590bc404ab68ff63984df763e347ed t/release-pod-coverage.t
@@ -37,7 +37,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAkyI/3wACgkQIgMCsV8qvRKf3gCfaQsRqNow4N4IdEcLlXrCg7aG
-2HAAn2ZMkknfwUDy3fr91SThZDWLnYpG
-=ghj0
+iEYEARECAAYFAkzK5lQACgkQIgMCsV8qvRIWdgCfZMnusBi1e5wmce/vVEjBXLw+
+WlwAnA/+9BPRjxQkd8cFcTKM9obKQjKR
+=vk5G
-----END PGP SIGNATURE-----
Modified: trunk/libmoosex-strictconstructor-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/changelog?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/changelog (original)
+++ trunk/libmoosex-strictconstructor-perl/debian/changelog Sun Oct 31 11:08:38 2010
@@ -1,9 +1,16 @@
-libmoosex-strictconstructor-perl (0.11-1) UNRELEASED; urgency=low
+libmoosex-strictconstructor-perl (0.12-1) UNRELEASED; urgency=low
- IGNORE-VERSION: 0.11-1
- Adds build-dep on Test::Exception to Makefile.PL.
+ IGNORE-VERSION: 0.12-1
+ WAITS-FOR: libtest-fatal-perl 0.001-1
+ No upload necessary: only changes to tests.
- -- Ansgar Burchardt <ansgar at 43-1.org> Sun, 12 Sep 2010 19:48:34 +0900
+ * Build-dep on libtest-fatal-perl instead of libtest-exception-perl.
+ * debian/copyright: Refer to "Debian systems" instead of "Debian GNU/Linux
+ systems"; refer to /usr/share/common-licenses/GPL-1.
+ * Bump Standards-Version to 3.9.1.
+ * Update my email address.
+
+ -- Ansgar Burchardt <ansgar at debian.org> Sun, 31 Oct 2010 12:00:45 +0100
libmoosex-strictconstructor-perl (0.10-1) unstable; urgency=low
Modified: trunk/libmoosex-strictconstructor-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/control?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/control (original)
+++ trunk/libmoosex-strictconstructor-perl/debian/control Sun Oct 31 11:08:38 2010
@@ -2,13 +2,13 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl, libmoose-perl (>= 0.94), libtest-exception-perl,
+Build-Depends-Indep: perl, libmoose-perl (>= 0.94), 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: Antony Gelberg <antony at wayforth.co.uk>,
gregor herrmann <gregoa at debian.org>,
- Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.9.0
+ Ansgar Burchardt <ansgar at debian.org>
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/MooseX-StrictConstructor/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmoosex-strictconstructor-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/
Modified: trunk/libmoosex-strictconstructor-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/debian/copyright?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/debian/copyright (original)
+++ trunk/libmoosex-strictconstructor-perl/debian/copyright Sun Oct 31 11:08:38 2010
@@ -9,7 +9,7 @@
Files: debian/*
Copyright:
2008, Antony Gelberg <antony at wayforth.co.uk>
- 2008-2010, Ansgar Burchardt <ansgar at 43-1.org>
+ 2008-2010, Ansgar Burchardt <ansgar at debian.org>
License: Artistic or Artistic-2.0 or GPL-1+
License: Artistic-2.0
@@ -204,15 +204,17 @@
IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, which comes with Perl.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'.
License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'.
Modified: trunk/libmoosex-strictconstructor-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/dist.ini?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/dist.ini (original)
+++ trunk/libmoosex-strictconstructor-perl/dist.ini Sun Oct 31 11:08:38 2010
@@ -2,7 +2,7 @@
author = Dave Rolsky <autarch at urth.org>
copyright_year = 2010
-version = 0.11
+version = 0.12
[@Basic]
@@ -32,7 +32,7 @@
Moose = 0.94
[Prereqs / TestRequires]
-Test::Exception = 0
-Test::More = 0.88
+Test::Fatal = 0
+Test::More = 0.88
[@Git]
Modified: trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm (original)
+++ trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor.pm Sun Oct 31 11:08:38 2010
@@ -1,6 +1,6 @@
package MooseX::StrictConstructor;
BEGIN {
- $MooseX::StrictConstructor::VERSION = '0.11';
+ $MooseX::StrictConstructor::VERSION = '0.12';
}
use strict;
@@ -34,7 +34,7 @@
=head1 VERSION
-version 0.11
+version 0.12
=head1 SYNOPSIS
@@ -87,7 +87,7 @@
=head1 AUTHOR
- Dave Rolsky <autarch at urth.org>
+Dave Rolsky <autarch at urth.org>
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm (original)
+++ trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm Sun Oct 31 11:08:38 2010
@@ -1,6 +1,6 @@
package MooseX::StrictConstructor::Role::Meta::Method::Constructor;
BEGIN {
- $MooseX::StrictConstructor::Role::Meta::Method::Constructor::VERSION = '0.11';
+ $MooseX::StrictConstructor::Role::Meta::Method::Constructor::VERSION = '0.12';
}
use strict;
@@ -19,7 +19,7 @@
$source .= ";\n" if $source;
my @attrs = (
- "__INSTANCE__ => 1,",
+ '__INSTANCE__ => 1,',
map { B::perlstring($_) . ' => 1,' }
grep {defined}
map { $_->init_arg() } @{ $self->_attributes() }
@@ -54,7 +54,7 @@
=head1 VERSION
-version 0.11
+version 0.12
=head1 SYNOPSIS
@@ -74,7 +74,7 @@
=head1 AUTHOR
- Dave Rolsky <autarch at urth.org>
+Dave Rolsky <autarch at urth.org>
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Object.pm?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Object.pm (original)
+++ trunk/libmoosex-strictconstructor-perl/lib/MooseX/StrictConstructor/Role/Object.pm Sun Oct 31 11:08:38 2010
@@ -1,6 +1,6 @@
package MooseX::StrictConstructor::Role::Object;
BEGIN {
- $MooseX::StrictConstructor::Role::Object::VERSION = '0.11';
+ $MooseX::StrictConstructor::Role::Object::VERSION = '0.12';
}
use strict;
@@ -45,7 +45,7 @@
=head1 VERSION
-version 0.11
+version 0.12
=head1 SYNOPSIS
@@ -64,7 +64,7 @@
=head1 AUTHOR
- Dave Rolsky <autarch at urth.org>
+Dave Rolsky <autarch at urth.org>
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libmoosex-strictconstructor-perl/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/t/basic.t?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/t/basic.t (original)
+++ trunk/libmoosex-strictconstructor-perl/t/basic.t Sun Oct 31 11:08:38 2010
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use Test::Exception;
+use Test::Fatal;
use Test::Moose qw( with_immutable );
use Test::More;
@@ -62,41 +62,62 @@
my @classes = qw( Standard Stricter Subclass Tricky InitArg );
with_immutable {
- lives_ok { Standard->new( thing => 1, bad => 99 ) }
- 'standard Moose class ignores unknown params';
+ is(
+ exception { Standard->new( thing => 1, bad => 99 ) }, undef,
+ 'standard Moose class ignores unknown params'
+ );
- throws_ok { Stricter->new( thing => 1, bad => 99 ) }
- qr/unknown attribute.+: bad/,
- 'strict constructor blows up on unknown params';
+ like(
+ exception { Stricter->new( thing => 1, bad => 99 ) },
+ qr/unknown attribute.+: bad/,
+ 'strict constructor blows up on unknown params'
+ );
- lives_ok { Subclass->new( thing => 1, size => 'large' ) }
- 'subclass constructor handles known attributes correctly';
+ is(
+ exception { Subclass->new( thing => 1, size => 'large' ) }, undef,
+ 'subclass constructor handles known attributes correctly'
+ );
- throws_ok { Subclass->new( thing => 1, bad => 99 ) }
- qr/unknown attribute.+: bad/,
- 'subclass correctly recognizes bad attribute';
+ like(
+ exception { Subclass->new( thing => 1, bad => 99 ) },
+ qr/unknown attribute.+: bad/,
+ 'subclass correctly recognizes bad attribute'
+ );
- lives_ok { Tricky->new( thing => 1, spy => 99 ) }
- 'can work around strict constructor by deleting params in BUILD()';
+ is(
+ exception { Tricky->new( thing => 1, spy => 99 ) }, undef,
+ 'can work around strict constructor by deleting params in BUILD()'
+ );
- throws_ok { Tricky->new( thing => 1, agent => 99 ) }
- qr/unknown attribute.+: agent/,
- 'Tricky still blows up on unknown params other than spy';
+ like(
+ exception { Tricky->new( thing => 1, agent => 99 ) },
+ qr/unknown attribute.+: agent/,
+ 'Tricky still blows up on unknown params other than spy'
+ );
- throws_ok { Subclass->new( thing => 1, bad => 99 ) }
- qr/unknown attribute.+: bad/,
- 'subclass constructor blows up on unknown params';
+ like(
+ exception { Subclass->new( thing => 1, bad => 99 ) },
+ qr/unknown attribute.+: bad/,
+ 'subclass constructor blows up on unknown params'
+ );
- throws_ok { InitArg->new( thing => 1 ) }
- qr/unknown attribute.+: thing/,
- 'InitArg blows up with attribute name';
+ like(
+ exception { InitArg->new( thing => 1 ) },
+ qr/unknown attribute.+: thing/,
+ 'InitArg blows up with attribute name'
+ );
- throws_ok { InitArg->new( size => 1 ) }
- qr/unknown attribute.+: size/,
- 'InitArg blows up when given attribute with undef init_arg';
+ like(
+ exception { InitArg->new( size => 1 ) },
+ qr/unknown attribute.+: size/,
+ 'InitArg blows up when given attribute with undef init_arg'
+ );
- lives_ok { InitArg->new( other => 1 ) }
- 'InitArg works when given proper init_arg';
-} @classes;
+ is(
+ exception { InitArg->new( other => 1 ) }, undef,
+ 'InitArg works when given proper init_arg'
+ );
+}
+ at classes;
done_testing();
Modified: trunk/libmoosex-strictconstructor-perl/t/release-eol.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoosex-strictconstructor-perl/t/release-eol.t?rev=64458&op=diff
==============================================================================
--- trunk/libmoosex-strictconstructor-perl/t/release-eol.t (original)
+++ trunk/libmoosex-strictconstructor-perl/t/release-eol.t Sun Oct 31 11:08:38 2010
@@ -13,4 +13,4 @@
eval 'use Test::EOL';
plan skip_all => 'Test::EOL required' if $@;
-all_perl_files_ok();
+all_perl_files_ok({ trailing_whitespace => 1 });
More information about the Pkg-perl-cvs-commits
mailing list