r820 - in packages/libcarp-assert-more-perl/trunk: . debian t
Gunnar Wolf
gwolf@costa.debian.org
Sat, 26 Mar 2005 18:33:06 +0000
Author: gwolf
Date: 2005-03-26 18:33:05 +0000 (Sat, 26 Mar 2005)
New Revision: 820
Modified:
packages/libcarp-assert-more-perl/trunk/Changes
packages/libcarp-assert-more-perl/trunk/META.yml
packages/libcarp-assert-more-perl/trunk/Makefile.PL
packages/libcarp-assert-more-perl/trunk/More.pm
packages/libcarp-assert-more-perl/trunk/debian/changelog
packages/libcarp-assert-more-perl/trunk/t/assert_integer.t
packages/libcarp-assert-more-perl/trunk/t/assert_negative.t
packages/libcarp-assert-more-perl/trunk/t/assert_negative_integer.t
packages/libcarp-assert-more-perl/trunk/t/assert_nonzero.t
packages/libcarp-assert-more-perl/trunk/t/assert_nonzero_integer.t
packages/libcarp-assert-more-perl/trunk/t/assert_positive.t
packages/libcarp-assert-more-perl/trunk/t/assert_positive_integer.t
Log:
New upstream version 1.10
Modified: packages/libcarp-assert-more-perl/trunk/Changes
===================================================================
--- packages/libcarp-assert-more-perl/trunk/Changes 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/Changes 2005-03-26 18:33:05 UTC (rev 820)
@@ -1,15 +1,19 @@
Revision history for Perl extension Carp::Assert::More.
-1.08 Wed Nov 24 11:44:34 CST 2004
- [ENHANCEMENTS]
- * Added assert_is() and assert_isnt()
- * Organized the functions into logical groupings.
+1.10
+ [FIXES]
+ * Fixed assert_positive_integer() to not pass "14.".
- [INTERNALS]
- * Now requires Test::Exception.
- * Added t/pod.t and t/pod-coverage.t
+1.08 Wed Nov 24 11:44:34 CST 2004
+ [ENHANCEMENTS]
+ * Added assert_is() and assert_isnt()
+ * Organized the functions into logical groupings.
+ [INTERNALS]
+ * Now requires Test::Exception.
+ * Added t/pod.t and t/pod-coverage.t
+
1.06 Sat Oct 30 23:50:45 CDT 2004
* No functionality changes. Just added a Copyright notice to
so we can put it in Debian.
Modified: packages/libcarp-assert-more-perl/trunk/META.yml
===================================================================
--- packages/libcarp-assert-more-perl/trunk/META.yml 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/META.yml 2005-03-26 18:33:05 UTC (rev 820)
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Carp-Assert-More
-version: 1.08
+version: 1.10
version_from: More.pm
installdirs: site
requires:
@@ -12,4 +12,4 @@
Test::More: 0.18
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.24
Modified: packages/libcarp-assert-more-perl/trunk/Makefile.PL
===================================================================
--- packages/libcarp-assert-more-perl/trunk/Makefile.PL 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/Makefile.PL 2005-03-26 18:33:05 UTC (rev 820)
@@ -9,11 +9,11 @@
},
PREREQ_PM => {
- Carp => 0,
- 'Carp::Assert' => 0,
- 'Test::More' => 0.18,
- 'Scalar::Util' => 0,
- 'Test::Exception' => 0,
+ Carp => 0,
+ 'Carp::Assert' => 0,
+ 'Test::More' => 0.18,
+ 'Scalar::Util' => 0,
+ 'Test::Exception' => 0,
},
dist => {
Modified: packages/libcarp-assert-more-perl/trunk/More.pm
===================================================================
--- packages/libcarp-assert-more-perl/trunk/More.pm 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/More.pm 2005-03-26 18:33:05 UTC (rev 820)
@@ -16,12 +16,12 @@
=head1 VERSION
-Version 1.08
+Version 1.10
=cut
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.10';
@ISA = qw(Exporter);
@EXPORT = qw(
assert_defined
@@ -98,7 +98,7 @@
return if !defined($string) && !defined($match);
assert_defined( $string, $name );
assert_defined( $match, $name );
-
+
return if $string eq $match;
require Carp;
@@ -286,9 +286,10 @@
Asserts that the numeric value of I<$this> is greater than zero, and
that I<$this> is an integer.
- assert_positive_integer( 0 ); # FAIL
- assert_positive_integer( -14 ); # FAIL
- assert_positive_integer( '14.' ); # pass
+ assert_positive_integer( 0 ); # FAIL
+ assert_positive_integer( -14 ); # FAIL
+ assert_positive_integer( '14.' ); # FAIL
+ assert_positive_integer( '14' ); # pass
=cut
@@ -517,7 +518,7 @@
=head1 COPYRIGHT
-Copyright (c) 2004 Andy Lester. All rights reserved. This program is
+Copyright (c) 2005 Andy Lester. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.
@@ -532,4 +533,4 @@
=cut
-return 1; # happiness
+"I stood on the porch in a tie."
Modified: packages/libcarp-assert-more-perl/trunk/debian/changelog
===================================================================
--- packages/libcarp-assert-more-perl/trunk/debian/changelog 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/debian/changelog 2005-03-26 18:33:05 UTC (rev 820)
@@ -1,3 +1,10 @@
+libcarp-assert-more-perl (1.10-1) unstable; urgency=low
+
+ * New upstream release
+ * Added a debian/watch file
+
+ -- Gunnar Wolf <gwolf@debian.org> Sat, 26 Mar 2005 12:31:21 -0600
+
libcarp-assert-more-perl (1.08-1) unstable; urgency=low
* New upstream release
Modified: packages/libcarp-assert-more-perl/trunk/t/assert_integer.t
===================================================================
--- packages/libcarp-assert-more-perl/trunk/t/assert_integer.t 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/t/assert_integer.t 2005-03-26 18:33:05 UTC (rev 820)
@@ -3,7 +3,7 @@
use warnings;
use strict;
-use Test::More tests=>6;
+use Test::More tests=>7;
BEGIN { use_ok( 'Carp::Assert::More' ); }
@@ -16,6 +16,7 @@
[ 0.4, FAIL ],
[ -10, PASS ],
[ "dog", FAIL ],
+ [ "14.", FAIL ],
);
for my $case ( @cases ) {
Modified: packages/libcarp-assert-more-perl/trunk/t/assert_negative.t
===================================================================
--- packages/libcarp-assert-more-perl/trunk/t/assert_negative.t 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/t/assert_negative.t 2005-03-26 18:33:05 UTC (rev 820)
@@ -3,7 +3,7 @@
use warnings;
use strict;
-use Test::More tests=>6;
+use Test::More tests=>7;
BEGIN { use_ok( 'Carp::Assert::More' ); }
@@ -16,6 +16,7 @@
[ 0.4, FAIL ],
[ -10, PASS ],
[ "dog", FAIL ],
+ [ "14.", FAIL ],
);
for my $case ( @cases ) {
Modified: packages/libcarp-assert-more-perl/trunk/t/assert_negative_integer.t
===================================================================
--- packages/libcarp-assert-more-perl/trunk/t/assert_negative_integer.t 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/t/assert_negative_integer.t 2005-03-26 18:33:05 UTC (rev 820)
@@ -3,7 +3,7 @@
use warnings;
use strict;
-use Test::More tests=>7;
+use Test::More tests=>8;
BEGIN { use_ok( 'Carp::Assert::More' ); }
@@ -17,6 +17,7 @@
[ -10, PASS ],
[ -97.9, FAIL ],
[ "dog", FAIL ],
+ [ "14.", FAIL ],
);
for my $case ( @cases ) {
Modified: packages/libcarp-assert-more-perl/trunk/t/assert_nonzero.t
===================================================================
--- packages/libcarp-assert-more-perl/trunk/t/assert_nonzero.t 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/t/assert_nonzero.t 2005-03-26 18:33:05 UTC (rev 820)
@@ -3,7 +3,7 @@
use warnings;
use strict;
-use Test::More tests=>6;
+use Test::More tests=>7;
BEGIN { use_ok( 'Carp::Assert::More' ); }
@@ -16,6 +16,7 @@
[ 0.4, PASS ],
[ -10, PASS ],
[ "dog", FAIL ],
+ [ "14.", PASS ],
);
for my $case ( @cases ) {
Modified: packages/libcarp-assert-more-perl/trunk/t/assert_nonzero_integer.t
===================================================================
--- packages/libcarp-assert-more-perl/trunk/t/assert_nonzero_integer.t 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/t/assert_nonzero_integer.t 2005-03-26 18:33:05 UTC (rev 820)
@@ -3,7 +3,7 @@
use warnings;
use strict;
-use Test::More tests=>6;
+use Test::More tests=>7;
BEGIN { use_ok( 'Carp::Assert::More' ); }
@@ -16,6 +16,7 @@
[ 0.4, FAIL ],
[ -10, PASS ],
[ "dog", FAIL ],
+ [ "14.", FAIL ],
);
for my $case ( @cases ) {
Modified: packages/libcarp-assert-more-perl/trunk/t/assert_positive.t
===================================================================
--- packages/libcarp-assert-more-perl/trunk/t/assert_positive.t 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/t/assert_positive.t 2005-03-26 18:33:05 UTC (rev 820)
@@ -3,7 +3,7 @@
use warnings;
use strict;
-use Test::More tests=>6;
+use Test::More tests=>7;
BEGIN { use_ok( 'Carp::Assert::More' ); }
@@ -16,6 +16,7 @@
[ 0.4, PASS ],
[ -10, FAIL ],
[ "dog", FAIL ],
+ [ "14.", PASS ],
);
for my $case ( @cases ) {
Modified: packages/libcarp-assert-more-perl/trunk/t/assert_positive_integer.t
===================================================================
--- packages/libcarp-assert-more-perl/trunk/t/assert_positive_integer.t 2005-03-26 18:29:46 UTC (rev 819)
+++ packages/libcarp-assert-more-perl/trunk/t/assert_positive_integer.t 2005-03-26 18:33:05 UTC (rev 820)
@@ -3,7 +3,7 @@
use warnings;
use strict;
-use Test::More tests=>6;
+use Test::More tests=>8;
BEGIN { use_ok( 'Carp::Assert::More' ); }
@@ -16,6 +16,8 @@
[ 0.4, FAIL ],
[ -10, FAIL ],
[ "dog", FAIL ],
+ [ "14.", FAIL ],
+ [ "14", PASS ],
);
for my $case ( @cases ) {