r60826 - in /branches/upstream/libdata-float-perl/current: .cvsignore Build.PL Changes META.yml Makefile.PL README SIGNATURE lib/Data/Float.pm t/class.t t/const.t t/copysign.t t/hex.t t/id_cmp.t t/nextafter.t t/parts.t t/pod_cvg.t t/pod_syn.t t/pow2.t
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Thu Jul 29 08:55:56 UTC 2010
Author: angelabad-guest
Date: Thu Jul 29 08:55:49 2010
New Revision: 60826
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60826
Log:
[svn-upgrade] new version libdata-float-perl (0.010)
Modified:
branches/upstream/libdata-float-perl/current/.cvsignore
branches/upstream/libdata-float-perl/current/Build.PL
branches/upstream/libdata-float-perl/current/Changes
branches/upstream/libdata-float-perl/current/META.yml
branches/upstream/libdata-float-perl/current/Makefile.PL
branches/upstream/libdata-float-perl/current/README
branches/upstream/libdata-float-perl/current/SIGNATURE
branches/upstream/libdata-float-perl/current/lib/Data/Float.pm
branches/upstream/libdata-float-perl/current/t/class.t
branches/upstream/libdata-float-perl/current/t/const.t
branches/upstream/libdata-float-perl/current/t/copysign.t
branches/upstream/libdata-float-perl/current/t/hex.t
branches/upstream/libdata-float-perl/current/t/id_cmp.t
branches/upstream/libdata-float-perl/current/t/nextafter.t
branches/upstream/libdata-float-perl/current/t/parts.t
branches/upstream/libdata-float-perl/current/t/pod_cvg.t
branches/upstream/libdata-float-perl/current/t/pod_syn.t
branches/upstream/libdata-float-perl/current/t/pow2.t
Modified: branches/upstream/libdata-float-perl/current/.cvsignore
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/.cvsignore?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/.cvsignore (original)
+++ branches/upstream/libdata-float-perl/current/.cvsignore Thu Jul 29 08:55:49 2010
@@ -1,4 +1,4 @@
Build Makefile
_build blib
-META.yml Makefile.PL SIGNATURE
+META.yml MYMETA.yml Makefile.PL SIGNATURE
Data-Float-*
Modified: branches/upstream/libdata-float-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/Build.PL?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/Build.PL (original)
+++ branches/upstream/libdata-float-perl/current/Build.PL Thu Jul 29 08:55:49 2010
@@ -1,28 +1,34 @@
+{ use 5.006; }
use warnings;
use strict;
-no strict "subs";
use Module::Build;
Module::Build->new(
module_name => "Data::Float",
license => "perl",
+ configure_requires => {
+ "Module::Build" => 0,
+ "perl" => "5.006",
+ "strict" => 0,
+ "warnings" => 0,
+ },
build_requires => {
- Module::Build => 0,
- Test::More => 0,
- perl => "5.006",
- strict => 0,
- warnings => 0,
+ "Module::Build" => 0,
+ "Test::More" => 0,
+ "perl" => "5.006",
+ "strict" => 0,
+ "warnings" => 0,
},
requires => {
- Carp => 0,
- Exporter => 0,
- base => 0,
- constant => 0,
- integer => 0,
- perl => "5.006",
- strict => 0,
- warnings => 0,
+ "Carp" => 0,
+ "Exporter" => 0,
+ "constant" => 0,
+ "integer" => 0,
+ "parent" => 0,
+ "perl" => "5.006",
+ "strict" => 0,
+ "warnings" => 0,
},
dynamic_config => 0,
meta_add => { distribution_type => "module" },
@@ -30,4 +36,4 @@
sign => 1,
)->create_build_script;
-exit 0;
+1;
Modified: branches/upstream/libdata-float-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/Changes?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/Changes (original)
+++ branches/upstream/libdata-float-perl/current/Changes Thu Jul 29 08:55:49 2010
@@ -1,3 +1,22 @@
+version 0.010; 2010-07-26
+
+ * use simpler "parent" pragma in place of "base"
+
+ * in documentation, use the term "truth value" instead of the less
+ precise "boolean"
+
+ * check for required Perl version at runtime
+
+ * use full stricture in test suite
+
+ * use full stricture in Build.PL
+
+ * in Build.PL, explicitly declare configure-time requirements
+
+ * remove bogus "exit 0" from Build.PL
+
+ * add MYMETA.yml to .cvsignore
+
version 0.009; 2008-04-06
* refer to optional constants more carefully in the code, to avoid
Modified: branches/upstream/libdata-float-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/META.yml?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/META.yml (original)
+++ branches/upstream/libdata-float-perl/current/META.yml Thu Jul 29 08:55:49 2010
@@ -1,34 +1,39 @@
---
-name: Data-Float
-version: 0.009
+abstract: 'details of the floating point data type'
author:
- 'Andrew Main (Zefram) <zefram at fysh.org>'
-abstract: details of the floating point data type
-license: perl
-resources:
- license: http://dev.perl.org/licenses/
-requires:
- Carp: 0
- Exporter: 0
- base: 0
- constant: 0
- integer: 0
- perl: 5.006
- strict: 0
- warnings: 0
build_requires:
Module::Build: 0
Test::More: 0
perl: 5.006
strict: 0
warnings: 0
+configure_requires:
+ Module::Build: 0
+ perl: 5.006
+ strict: 0
+ warnings: 0
+distribution_type: module
dynamic_config: 0
+generated_by: 'Module::Build version 0.3607'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Data-Float
provides:
Data::Float:
file: lib/Data/Float.pm
- version: 0.009
-generated_by: Module::Build version 0.2808
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-distribution_type: module
+ version: 0.010
+requires:
+ Carp: 0
+ Exporter: 0
+ constant: 0
+ integer: 0
+ parent: 0
+ perl: 5.006
+ strict: 0
+ warnings: 0
+resources:
+ license: http://dev.perl.org/licenses/
+version: 0.010
Modified: branches/upstream/libdata-float-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/Makefile.PL?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/Makefile.PL (original)
+++ branches/upstream/libdata-float-perl/current/Makefile.PL Thu Jul 29 08:55:49 2010
@@ -1,31 +1,35 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
-
+# Note: this file was auto-generated by Module::Build::Compat version 0.3607
+require 5.006;
+
unless (eval "use Module::Build::Compat 0.02; 1" ) {
print "This module requires Module::Build to install itself.\n";
-
+
require ExtUtils::MakeMaker;
my $yn = ExtUtils::MakeMaker::prompt
(' Install Module::Build now from CPAN?', 'y');
-
+
unless ($yn =~ /^y/i) {
die " *** Cannot install without Module::Build. Exiting ...\n";
}
-
+
require Cwd;
require File::Spec;
require CPAN;
-
+
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
-
+
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
-
+
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
Module::Build::Compat->run_build_pl(args => \@ARGV);
+ my $build_script = 'Build';
+ $build_script .= '.com' if $^O eq 'VMS';
+ exit(0) unless(-e $build_script); # cpantesters convention
require Module::Build;
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
Modified: branches/upstream/libdata-float-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/README?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/README (original)
+++ branches/upstream/libdata-float-perl/current/README Thu Jul 29 08:55:49 2010
@@ -23,7 +23,8 @@
COPYRIGHT
-Copyright (C) 2006, 2007, 2008 Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2006, 2007, 2008, 2010
+Andrew Main (Zefram) <zefram at fysh.org>
LICENSE
Modified: branches/upstream/libdata-float-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/SIGNATURE?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/SIGNATURE (original)
+++ branches/upstream/libdata-float-perl/current/SIGNATURE Thu Jul 29 08:55:49 2010
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
+signed via the Module::Signature module, version 0.64.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,28 +14,28 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 2589479b52d4b3ee12dc56f9d2e5bbbaba9dcfea .cvsignore
-SHA1 ae59fe1fdfa95409921c9cdcbaa2623f3076ef15 Build.PL
-SHA1 ae2928d43e84f3cf0e84fc8e8cd7cf3c1cbce4e4 Changes
+SHA1 a647ee7a0b367a12ea5f5b76ebb149ce25ba0390 .cvsignore
+SHA1 22c0b8256338e7f077f6311527c006ca9acfc75b Build.PL
+SHA1 6765395ee1e984c27ba75f40e6a165df88a55c16 Changes
SHA1 a0baf8aa5977fabc6ba24e0004ecfb9d1d4b6849 MANIFEST
-SHA1 936faa1c8bd34c737b4c33047135a71aa68b22f7 META.yml
-SHA1 cd14ada78fb37a0d926edd86eddcdf7f939de582 Makefile.PL
-SHA1 80756a39812970c7fca4da2d32bc5e3d8ad543ba README
-SHA1 63f9fc46d89c8d1e62f0fed91359fd0362c4dbb3 lib/Data/Float.pm
-SHA1 ce2a2e8e6dac572ffd33843c13dcbff4017f9c62 t/class.t
-SHA1 f6d46c7ebefd8032fdf5d8f2faf9a48d540f83dc t/const.t
-SHA1 e487720128f517f751aa91cf1488a50f5f522be0 t/copysign.t
-SHA1 d984b62d9d370cc4620c5fab73c53b0ed5de2ae9 t/hex.t
-SHA1 fcdc3be4e40ebe31efe14a8265f6d8d82792264b t/id_cmp.t
-SHA1 b6d6f699081e003c45e0255a079f1ff95db64b34 t/nextafter.t
-SHA1 27522de85b9db97181e0f8d8dc6596c283817717 t/parts.t
-SHA1 0e141eecf3ca4903ef38d9413b5403a9ddb0392f t/pod_cvg.t
-SHA1 74a957cd8b93f25672ecc6aa578a671d084dd343 t/pod_syn.t
-SHA1 2f15e822481c093f8f7a23b9b40073934b590492 t/pow2.t
+SHA1 27c8fc9c18ece0d13e2d89948c72e33e46cdb822 META.yml
+SHA1 caae608231ffe78390c76451ade51a7cfc87a9f9 Makefile.PL
+SHA1 754fa448a4bc61e5eedd11119b00abaf18caf906 README
+SHA1 838a0af84b5054cd4046145f0893ecfaec9741c9 lib/Data/Float.pm
+SHA1 46a701139af33ceb60bdcd6bdd098bba93c9da89 t/class.t
+SHA1 8ff388995f49bfa234eb7667943930db20d71d5d t/const.t
+SHA1 356d01d2baf86af1890e9acc29129361bf62cbe1 t/copysign.t
+SHA1 e9b6488e8989b4816cc9c44c9e62da415c4ada2c t/hex.t
+SHA1 71efb1ee1aac4f1c252b9f3886148a6adc3e3b32 t/id_cmp.t
+SHA1 c9d4a7d0d6156649ec6a9ac6281a84999e3b4ba7 t/nextafter.t
+SHA1 e00cf1571fee7e4f0bc753b05366e043abf0d4aa t/parts.t
+SHA1 904d9a4f76525e2303e4b0c168c68230f223c8de t/pod_cvg.t
+SHA1 65c75abdef6f01a5d1588a307f2ddfe2333dc961 t/pod_syn.t
+SHA1 8181874d707c8c1d591df349ab200f99e6613446 t/pow2.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
+Version: GnuPG v1.4.9 (GNU/Linux)
-iD8DBQFH+QqoOV9mt2VyAVERArqDAJ4gA5y6SK/JjfUc/NlVVSTrX2ZIHQCggaTj
-IdUjRlb+xd9WSF9/l463LGg=
-=yRQp
+iEYEARECAAYFAkxN7XoACgkQOV9mt2VyAVFmaACbBZ/ectD8JVhCG+BxiDyNzmH/
+jG4AoIet52EsEvFx5LP3lLwVIV3v0s1O
+=4G5m
-----END PGP SIGNATURE-----
Modified: branches/upstream/libdata-float-perl/current/lib/Data/Float.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/lib/Data/Float.pm?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/lib/Data/Float.pm (original)
+++ branches/upstream/libdata-float-perl/current/lib/Data/Float.pm Thu Jul 29 08:55:49 2010
@@ -172,14 +172,15 @@
package Data::Float;
+{ use 5.006; }
use warnings;
use strict;
use Carp qw(croak);
-our $VERSION = "0.009";
-
-use base "Exporter";
+our $VERSION = "0.010";
+
+use parent "Exporter";
our @EXPORT_OK = qw(
float_class float_is_normal float_is_subnormal float_is_nzfinite
float_is_zero float_is_finite float_is_infinite float_is_nan
@@ -198,22 +199,22 @@
=item have_signed_zero
-Boolean indicating whether floating point zeroes carry a sign. If yes,
+Truth value indicating whether floating point zeroes carry a sign. If yes,
then there are two floating point zero values: +0.0 and -0.0. (Perl
scalars can nevertheless also hold an integer zero, which is unsigned.)
If no, then there is only one zero value, which is unsigned.
=item have_subnormal
-Boolean indicating whether there are subnormal floating point values.
+Truth value indicating whether there are subnormal floating point values.
=item have_infinite
-Boolean indicating whether there are infinite floating point values.
+Truth value indicating whether there are infinite floating point values.
=item have_nan
-Boolean indicating whether there are NaN floating point values.
+Truth value indicating whether there are NaN floating point values.
It is difficult to reliably generate a NaN in Perl, so in some unlikely
circumstances it is possible that there might be NaNs that this module
@@ -590,7 +591,7 @@
=head2 Classification
-Each "float_is_" function returns a simple boolean result.
+Each "float_is_" function returns a simple truth value result.
=over
@@ -1191,7 +1192,7 @@
=item totalorder(A, B)
This is a comparison function supplying a total ordering of floating point
-values. A and B must both be floating point values. Returns a boolean
+values. A and B must both be floating point values. Returns a truth value
indicating whether A is to be sorted before-or-the-same-as B. That is,
it is a <= predicate on the total ordering. The ordering is the same as
that provided by C<float_id_cmp>: NaNs come first, followed by negative
@@ -1383,7 +1384,8 @@
=head1 COPYRIGHT
-Copyright (C) 2006, 2007, 2008 Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2006, 2007, 2008, 2010
+Andrew Main (Zefram) <zefram at fysh.org>
=head1 LICENSE
Modified: branches/upstream/libdata-float-perl/current/t/class.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/class.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/class.t (original)
+++ branches/upstream/libdata-float-perl/current/t/class.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 8*11 + 3*8;
BEGIN { use_ok "Data::Float", qw(
@@ -7,6 +10,7 @@
float_is_infinite float_is_nan
); }
+no strict "refs";
my %values = (
NORMAL => [
-1000.0,
@@ -60,3 +64,5 @@
is zpat($tz), $pat;
}
}
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/const.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/const.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/const.t (original)
+++ branches/upstream/libdata-float-perl/current/t/const.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 29;
BEGIN { use_ok "Data::Float", qw(
@@ -47,6 +50,7 @@
ok +(min_finite * 0.5) * 2.0 != min_finite;
if(have_signed_zero) {
+ no strict "refs";
is sprintf("%+.f%+.f%+.f", 0.0, -0.0, - -0.0), "+0-0+0";
my $pos_zero = &{"Data::Float::pos_zero"};
my $neg_zero = &{"Data::Float::neg_zero"};
@@ -67,6 +71,7 @@
}
if(have_infinite) {
+ no strict "refs";
ok &{"Data::Float::pos_infinity"} > max_finite;
ok &{"Data::Float::neg_infinity"} < -max_finite();
ok max_number == &{"Data::Float::pos_infinity"};
@@ -78,6 +83,9 @@
SKIP: {
skip "no NaNs", 1 unless have_nan;
+ no strict "refs";
my $nan = &{"Data::Float::nan"};
ok $nan != $nan;
}
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/copysign.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/copysign.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/copysign.t (original)
+++ branches/upstream/libdata-float-perl/current/t/copysign.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 46;
BEGIN { use_ok "Data::Float", qw(
@@ -41,6 +44,7 @@
SKIP: {
skip "infinities not available", 8 unless have_infinite;
+ no strict "refs";
my $pinf = &{"Data::Float::pos_infinity"};
my $ninf = &{"Data::Float::neg_infinity"};
ok copysign($pinf, +5) == $pinf;
@@ -55,8 +59,11 @@
SKIP: {
skip "NaN not available", 3 unless have_nan;
+ no strict "refs";
my $nan = &{"Data::Float::nan"};
ok float_is_nan(copysign($nan, +5));
ok float_is_nan(copysign($nan, $nan));
ok abs(copysign(+1.2, $nan)) == 1.2;
}
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/hex.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/hex.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/hex.t (original)
+++ branches/upstream/libdata-float-perl/current/t/hex.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 102;
BEGIN { use_ok "Data::Float", qw(
@@ -15,6 +18,7 @@
SKIP: {
skip "no infinities", 22 unless have_infinite;
+ no strict "refs";
my $pinf = &{"Data::Float::pos_infinity"};
my $ninf = &{"Data::Float::neg_infinity"};
is float_hex($pinf), "+inf";
@@ -43,6 +47,7 @@
SKIP: {
skip "no NaN", 20 unless have_nan;
+ no strict "refs";
is float_hex(&{"Data::Float::nan"}), "nan";
is float_hex(&{"Data::Float::nan"}, \%str_opt), "(NAN)";
ok float_is_nan(hex_float("nan"));
@@ -142,3 +147,5 @@
like float_hex(1, { exp_digits_range_mod => "ATLEAST" }),
qr/\A\+0x1\.0+p\+00+\z/;
like float_hex(1, { exp_digits => 5 }), qr/\A\+0x1\.0+p\+00000\z/;
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/id_cmp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/id_cmp.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/id_cmp.t (original)
+++ branches/upstream/libdata-float-perl/current/t/id_cmp.t Thu Jul 29 08:55:49 2010
@@ -1,9 +1,13 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 2*9*9 + 8*9;
BEGIN { use_ok "Data::Float", qw(
have_infinite have_signed_zero have_nan float_id_cmp totalorder
); }
+no strict "refs";
my @values = (
sub { have_nan ? &{"Data::Float::nan"} : undef },
sub { have_infinite ? &{"Data::Float::neg_infinity"} : undef },
@@ -41,3 +45,5 @@
}
}
}
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/nextafter.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/nextafter.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/nextafter.t (original)
+++ branches/upstream/libdata-float-perl/current/t/nextafter.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 65;
BEGIN { use_ok "Data::Float", qw(
@@ -69,6 +72,7 @@
SKIP: {
skip "infinities not available", 8 unless have_infinite;
+ no strict "refs";
my $pinf = &{"Data::Float::pos_infinity"};
my $ninf = &{"Data::Float::neg_infinity"};
ok nextup( +max_finite()) == $pinf;
@@ -83,6 +87,7 @@
SKIP: {
skip "NaN not available", 5 unless have_nan;
+ no strict "refs";
my $nan = &{"Data::Float::nan"};
ok float_is_nan(nextup($nan));
ok float_is_nan(nextdown($nan));
@@ -90,3 +95,5 @@
ok float_is_nan(nextafter(+1.2, $nan));
ok float_is_nan(nextafter($nan, $nan));
}
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/parts.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/parts.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/parts.t (original)
+++ branches/upstream/libdata-float-perl/current/t/parts.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 1 + 4*3 + 2*2 + 5*17;
BEGIN { use_ok "Data::Float", qw(
@@ -24,6 +27,7 @@
}
SKIP: {
skip "infinities not available", 4 unless have_infinite;
+ no strict "refs";
test_sign(&{"Data::Float::pos_infinity"}, "+", 0);
test_sign(&{"Data::Float::neg_infinity"}, "-", 0);
}
@@ -59,7 +63,9 @@
SKIP: {
skip "subnormals not available", 5 unless have_subnormal;
+ no strict "refs";
test_parts(+3.0*&{"Data::Float::min_finite"},
"+", min_normal_exp, mult_pow2(3.0, -significand_bits()));
}
+1;
Modified: branches/upstream/libdata-float-perl/current/t/pod_cvg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/pod_cvg.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/pod_cvg.t (original)
+++ branches/upstream/libdata-float-perl/current/t/pod_cvg.t Thu Jul 29 08:55:49 2010
@@ -1,4 +1,9 @@
+use warnings;
+use strict;
+
use Test::More;
plan skip_all => "Test::Pod::Coverage not available"
unless eval "use Test::Pod::Coverage; 1";
Test::Pod::Coverage::all_pod_coverage_ok();
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/pod_syn.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/pod_syn.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/pod_syn.t (original)
+++ branches/upstream/libdata-float-perl/current/t/pod_syn.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,8 @@
+use warnings;
+use strict;
+
use Test::More;
plan skip_all => "Test::Pod not available" unless eval "use Test::Pod 1.00; 1";
Test::Pod::all_pod_files_ok();
+
+1;
Modified: branches/upstream/libdata-float-perl/current/t/pow2.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-float-perl/current/t/pow2.t?rev=60826&op=diff
==============================================================================
--- branches/upstream/libdata-float-perl/current/t/pow2.t (original)
+++ branches/upstream/libdata-float-perl/current/t/pow2.t Thu Jul 29 08:55:49 2010
@@ -1,3 +1,6 @@
+use warnings;
+use strict;
+
use Test::More tests => 25;
BEGIN { use_ok "Data::Float", qw(
@@ -30,3 +33,5 @@
ok mult_pow2(1.0009765625, 10) == 1025.0;
ok mult_pow2(0.5, max_finite_exp+1) == pow2(max_finite_exp);
ok mult_pow2(2.0, min_finite_exp-1) == pow2(min_finite_exp);
+
+1;
More information about the Pkg-perl-cvs-commits
mailing list