r60828 - in /trunk/libdata-float-perl: ./ debian/ debian/source/ lib/Data/ t/
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Thu Jul 29 09:22:03 UTC 2010
Author: angelabad-guest
Date: Thu Jul 29 09:21:56 2010
New Revision: 60828
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60828
Log:
New upstream release 0.010
Added:
trunk/libdata-float-perl/debian/source/
trunk/libdata-float-perl/debian/source/format
Removed:
trunk/libdata-float-perl/debian/libdata-float-perl.docs
Modified:
trunk/libdata-float-perl/.cvsignore
trunk/libdata-float-perl/Build.PL
trunk/libdata-float-perl/Changes
trunk/libdata-float-perl/META.yml
trunk/libdata-float-perl/Makefile.PL
trunk/libdata-float-perl/README
trunk/libdata-float-perl/SIGNATURE
trunk/libdata-float-perl/debian/changelog
trunk/libdata-float-perl/debian/control
trunk/libdata-float-perl/debian/copyright
trunk/libdata-float-perl/lib/Data/Float.pm
trunk/libdata-float-perl/t/class.t
trunk/libdata-float-perl/t/const.t
trunk/libdata-float-perl/t/copysign.t
trunk/libdata-float-perl/t/hex.t
trunk/libdata-float-perl/t/id_cmp.t
trunk/libdata-float-perl/t/nextafter.t
trunk/libdata-float-perl/t/parts.t
trunk/libdata-float-perl/t/pod_cvg.t
trunk/libdata-float-perl/t/pod_syn.t
trunk/libdata-float-perl/t/pow2.t
Modified: trunk/libdata-float-perl/.cvsignore
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/.cvsignore?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/.cvsignore (original)
+++ trunk/libdata-float-perl/.cvsignore Thu Jul 29 09:21:56 2010
@@ -1,4 +1,4 @@
Build Makefile
_build blib
-META.yml Makefile.PL SIGNATURE
+META.yml MYMETA.yml Makefile.PL SIGNATURE
Data-Float-*
Modified: trunk/libdata-float-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/Build.PL?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/Build.PL (original)
+++ trunk/libdata-float-perl/Build.PL Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/Changes?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/Changes (original)
+++ trunk/libdata-float-perl/Changes Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/META.yml?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/META.yml (original)
+++ trunk/libdata-float-perl/META.yml Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/Makefile.PL?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/Makefile.PL (original)
+++ trunk/libdata-float-perl/Makefile.PL Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/README?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/README (original)
+++ trunk/libdata-float-perl/README Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/SIGNATURE?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/SIGNATURE (original)
+++ trunk/libdata-float-perl/SIGNATURE Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/changelog?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/debian/changelog (original)
+++ trunk/libdata-float-perl/debian/changelog Thu Jul 29 09:21:56 2010
@@ -1,3 +1,19 @@
+libdata-float-perl (0.010-1) unstable; urgency=low
+
+ * New upstream release
+ * Add myself to uploaders
+ * debian/control:
+ - Add libtest-pod-coverage-perl, libtest-pod-perl and
+ perl (>= 5.10.1) | libparent-perl to B-D
+ - Add perl (>= 5.10.1) | libparent-perl to Depends
+ * Standards-Version 3.9.1
+ * debian/libdata-float-perl.docs: Remove file, it has only
+ install instructions
+ * Update copyright file
+ * Switch to dpkg-source format 3.0 (quilt)
+
+ -- Angel Abad <angelabad at gmail.com> Thu, 29 Jul 2010 11:16:23 +0200
+
libdata-float-perl (0.009-2) unstable; urgency=low
* Take over for the Debian Perl Group
Modified: trunk/libdata-float-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/control?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/debian/control (original)
+++ trunk/libdata-float-perl/debian/control Thu Jul 29 09:21:56 2010
@@ -2,17 +2,19 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.17)
-Build-Depends-Indep: perl (>= 5.8.8-7), perl (>= 5.10.0) | libmodule-build-perl
+Build-Depends-Indep: perl, perl (>= 5.10.0) | libmodule-build-perl,
+ perl (>= 5.10.1) | libparent-perl, libtest-pod-coverage-perl,
+ libtest-pod-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Ivan Kohler <ivan-debian at 420.am>
-Standards-Version: 3.8.4
+Uploaders: Ivan Kohler <ivan-debian at 420.am>, Angel Abad <angelabad at gmail.com>
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/Data-Float/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdata-float-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdata-float-perl/
Package: libdata-float-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}
+Depends: ${misc:Depends}, ${perl:Depends}, perl (>= 5.10.1) | libparent-perl
Description: Perl module encapsulating the floating point data type
This module is about the native floating point numerical data type.
A floating point number is one of the types of datum that can appear
Modified: trunk/libdata-float-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/copyright?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/debian/copyright (original)
+++ trunk/libdata-float-perl/debian/copyright Thu Jul 29 09:21:56 2010
@@ -1,28 +1,29 @@
-Format-Specification:
- http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Andrew Main (Zefram) <zefram at fysh.org>
-Upstream-Source: http://search.cpan.org/dist/Data-Float/
-Upstream-Name: Data-Float
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: Andrew Main (Zefram) <zefram at fysh.org>
+Source: http://search.cpan.org/dist/Data-Float/
+Name: Data-Float
Files: *
-Copyright: Andrew Main (Zefram) <zefram at fysh.org>
-License-Alias: Perl
-License: Artistic | GPL-1+
+Copyright: 2006-2008, 2010, Andrew Main (Zefram) <zefram at fysh.org>
+License: Artistic or GPL-1+
Files: debian/*
-Copyright: 2009, Ivan Kohler <ivan-debian at 420.am>
-License: Artistic | GPL-1+
+Copyright: 2007-2010, Ivan Kohler <ivan-debian at 420.am>
+ 2010, Angel Abad <angelabad at gmail.com>
+License: Artistic or GPL-1+
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 GNU/Linux 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 GNU/Linux systems, the complete text of version 1 of the
+ General Public License can be found in `/usr/share/common-licenses/GPL-1'.
Added: trunk/libdata-float-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/debian/source/format?rev=60828&op=file
==============================================================================
--- trunk/libdata-float-perl/debian/source/format (added)
+++ trunk/libdata-float-perl/debian/source/format Thu Jul 29 09:21:56 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libdata-float-perl/lib/Data/Float.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/lib/Data/Float.pm?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/lib/Data/Float.pm (original)
+++ trunk/libdata-float-perl/lib/Data/Float.pm Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/class.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/class.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/class.t (original)
+++ trunk/libdata-float-perl/t/class.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/const.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/const.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/const.t (original)
+++ trunk/libdata-float-perl/t/const.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/copysign.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/copysign.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/copysign.t (original)
+++ trunk/libdata-float-perl/t/copysign.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/hex.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/hex.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/hex.t (original)
+++ trunk/libdata-float-perl/t/hex.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/id_cmp.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/id_cmp.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/id_cmp.t (original)
+++ trunk/libdata-float-perl/t/id_cmp.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/nextafter.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/nextafter.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/nextafter.t (original)
+++ trunk/libdata-float-perl/t/nextafter.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/parts.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/parts.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/parts.t (original)
+++ trunk/libdata-float-perl/t/parts.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/pod_cvg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/pod_cvg.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/pod_cvg.t (original)
+++ trunk/libdata-float-perl/t/pod_cvg.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/pod_syn.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/pod_syn.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/pod_syn.t (original)
+++ trunk/libdata-float-perl/t/pod_syn.t Thu Jul 29 09:21:56 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: trunk/libdata-float-perl/t/pow2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-float-perl/t/pow2.t?rev=60828&op=diff
==============================================================================
--- trunk/libdata-float-perl/t/pow2.t (original)
+++ trunk/libdata-float-perl/t/pow2.t Thu Jul 29 09:21:56 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