Группа :: Разработка/Perl
Пакет: perl-Test-Number-Delta
навигация по пакетам
Главная Изменения Спек Патчи Исходники Загрузить Gear Bugs and FR Repocop
pax_global_header 0000666 0000000 0000000 00000000064 10635362601 0014514 g ustar 00root root 0000000 0000000 52 comment=6435f103857252f8993a99370a0b2c94f4bc699d
Test-Number-Delta-1.03/ 0000755 0000000 0000000 00000000000 10635362601 0014631 5 ustar 00root root 0000000 0000000 Test-Number-Delta-1.03/.gear-rules 0000644 0000000 0000000 00000000050 10635362601 0016673 0 ustar 00root root 0000000 0000000 tar: . name=Test-Number-Delta-@version@
Test-Number-Delta-1.03/Build.PL 0000644 0000000 0000000 00000001012 10635362601 0016117 0 ustar 00root root 0000000 0000000 use Module::Build;
# See perldoc Module::Build for details of how this works
Module::Build->new(
module_name => 'Test::Number::Delta',
dist_author => 'David A. Golden <dagolden@cpan.org>',
create_makefile_pl => 'traditional',
create_readme => 1,
license => 'perl',
requires => {
perl => 5.004,
Test::Builder => 0.32,
# build requires here
Test::Builder::Tester => 1.02,
Test::More => 0.45,
},
)->create_build_script;
Test-Number-Delta-1.03/Changes 0000644 0000000 0000000 00000004175 10635362601 0016133 0 ustar 00root root 0000000 0000000 Revision history for Perl module Test::Number::Delta
1.03 Sun Sep 3 03:21:59 EDT 2006
- fixed logic errors for delta_not_*
- changed epsilon restriction to just non-zero; negative epsilons are
the same as positive
1.02 Tue Aug 29 05:37:53 EDT 2006
- added error checking to ensure that values of epsilon are always positive
- added delta_not_within() and delta_not_ok() for inequality checking
1.01 Thu Jul 27 11:34:29 EDT 2006
- changed comparison to less than epsilon, as checking "equal to"
epsilon is, of course, not robust for floating point numbers
1.00 Tue Jul 25 18:19:51 EDT 2006
- bumped version to 1.00 to indicate "release" status
- added support for comparing arrays or matrices
- bumped Test::Builder dependency to match my installed version
0.18 Sun Feb 5 06:48:15 EST 2006
- removed Test::Exception as dependency
- restored pod/pod-coverage tests as optional (skipped by default)
- edited Pod for bugs/license tests
- removed 5.006 syntax (warnings!) from test files
0.17 Mon Aug 1 10:55:13 EDT 2005
- build_requires moved to requires to workaround CPANPLUS bug
0.16 Thu Jun 9 15:55:03 EDT 2005
- removed pod/podcoverage testing to minimize dependencies
0.15 Tue Jun 7 17:46:36 EDT 2005
- updated Build.PL for dependencies and traditional makefiles
0.14 Tue Mar 8 22:43:31 EST 2005
- added pod and pod coverage testing
0.13 Wed Feb 2 22:06:56 EST 2005
- added ability to pass through a test plan
- added a parameter to specify that the default epsilon for delta_ok
should be relative to the size of the arguments
- updated pod in several areas for clarity and consistency
0.12 Mon Jan 24 23:45:21 EST 2005
- pod fix
- Build.PL cleanup
0.11 Tue Jan 4 00:01:20 EST 2005
- renamed to Test::Number::Delta
- renamed cmp_float() to delta_ok()
- added delta_within()
- added extra decimal place to numbers under comparison when printing
diagnostics
0.10 Sun Dec 26 14:18:36 EST 2004
- initial release as Test::Float
0.01 Sun Dec 26 13:12:10 2004
- original version; created by ExtUtils::ModuleMaker::TT
Test-Number-Delta-1.03/INSTALL 0000644 0000000 0000000 00000000466 10635362601 0015670 0 ustar 00root root 0000000 0000000 INSTALLATION
If Module::Build is installed (preferred):
perl Build.PL
perl Build
perl Build test
perl Build install
Otherwise, using a Makefile:
perl Makefile.PL
make
make test
make install
If you are on a windows box you should use 'dmake' or 'nmake' rather than
'make'.
Test-Number-Delta-1.03/LICENSE 0000644 0000000 0000000 00000050101 10635362601 0015633 0 ustar 00root root 0000000 0000000 Terms of Perl itself
a) the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any
later version, or
b) the "Artistic License"
---------------------------------------------------------------------------
The General Public License (GPL)
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave,
Cambridge, MA 02139, USA. Everyone is permitted to copy and distribute
verbatim copies of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your freedom to share
and change it. By contrast, the GNU General Public License is intended to
guarantee your freedom to share and change free software--to make sure the
software is free for all its users. This General Public License applies to most of
the Free Software Foundation's software and to any other program whose
authors commit to using it. (Some other Free Software Foundation software is
covered by the GNU Library General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not price. Our
General Public Licenses are designed to make sure that you have the freedom
to distribute copies of free software (and charge for this service if you wish), that
you receive source code or can get it if you want it, that you can change the
software or use pieces of it in new free programs; and that you know you can do
these things.
To protect your rights, we need to make restrictions that forbid anyone to deny
you these rights or to ask you to surrender the rights. These restrictions
translate to certain responsibilities for you if you distribute copies of the
software, or if you modify it.
For example, if you distribute copies of such a program, whether gratis or for a
fee, you must give the recipients all the rights that you have. You must make
sure that they, too, receive or can get the source code. And you must show
them these terms so they know their rights.
We protect your rights with two steps: (1) copyright the software, and (2) offer
you this license which gives you legal permission to copy, distribute and/or
modify the software.
Also, for each author's protection and ours, we want to make certain that
everyone understands that there is no warranty for this free software. If the
software is modified by someone else and passed on, we want its recipients to
know that what they have is not the original, so that any problems introduced by
others will not reflect on the original authors' reputations.
Finally, any free program is threatened constantly by software patents. We wish
to avoid the danger that redistributors of a free program will individually obtain
patent licenses, in effect making the program proprietary. To prevent this, we
have made it clear that any patent must be licensed for everyone's free use or
not licensed at all.
The precise terms and conditions for copying, distribution and modification
follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND
MODIFICATION
0. This License applies to any program or other work which contains a notice
placed by the copyright holder saying it may be distributed under the terms of
this General Public License. The "Program", below, refers to any such program
or work, and a "work based on the Program" means either the Program or any
derivative work under copyright law: that is to say, a work containing the
Program or a portion of it, either verbatim or with modifications and/or translated
into another language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not covered by
this License; they are outside its scope. The act of running the Program is not
restricted, and the output from the Program is covered only if its contents
constitute a work based on the Program (independent of having been made by
running the Program). Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's source code as
you receive it, in any medium, provided that you conspicuously and appropriately
publish on each copy an appropriate copyright notice and disclaimer of warranty;
keep intact all the notices that refer to this License and to the absence of any
warranty; and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and you may at
your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion of it, thus
forming a work based on the Program, and copy and distribute such
modifications or work under the terms of Section 1 above, provided that you also
meet all of these conditions:
a) You must cause the modified files to carry prominent notices stating that you
changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in whole or in
part contains or is derived from the Program or any part thereof, to be licensed
as a whole at no charge to all third parties under the terms of this License.
c) If the modified program normally reads commands interactively when run, you
must cause it, when started running for such interactive use in the most ordinary
way, to print or display an announcement including an appropriate copyright
notice and a notice that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these conditions,
and telling the user how to view a copy of this License. (Exception: if the
Program itself is interactive but does not normally print such an announcement,
your work based on the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If identifiable
sections of that work are not derived from the Program, and can be reasonably
considered independent and separate works in themselves, then this License,
and its terms, do not apply to those sections when you distribute them as
separate works. But when you distribute the same sections as part of a whole
which is a work based on the Program, the distribution of the whole must be on
the terms of this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest your rights to
work written entirely by you; rather, the intent is to exercise the right to control
the distribution of derivative or collective works based on the Program.
In addition, mere aggregation of another work not based on the Program with the
Program (or with a work based on the Program) on a volume of a storage or
distribution medium does not bring the other work under the scope of this
License.
3. You may copy and distribute the Program (or a work based on it, under
Section 2) in object code or executable form under the terms of Sections 1 and 2
above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable source
code, which must be distributed under the terms of Sections 1 and 2 above on a
medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three years, to give any
third party, for a charge no more than your cost of physically performing source
distribution, a complete machine-readable copy of the corresponding source
code, to be distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer to distribute
corresponding source code. (This alternative is allowed only for noncommercial
distribution and only if you received the program in object code or executable
form with such an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for making
modifications to it. For an executable work, complete source code means all the
source code for all modules it contains, plus any associated interface definition
files, plus the scripts used to control compilation and installation of the
executable. However, as a special exception, the source code distributed need
not include anything that is normally distributed (in either source or binary form)
with the major components (compiler, kernel, and so on) of the operating system
on which the executable runs, unless that component itself accompanies the
executable.
If distribution of executable or object code is made by offering access to copy
from a designated place, then offering equivalent access to copy the source
code from the same place counts as distribution of the source code, even though
third parties are not compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program except as
expressly provided under this License. Any attempt otherwise to copy, modify,
sublicense or distribute the Program is void, and will automatically terminate
your rights under this License. However, parties who have received copies, or
rights, from you under this License will not have their licenses terminated so long
as such parties remain in full compliance.
5. You are not required to accept this License, since you have not signed it.
However, nothing else grants you permission to modify or distribute the Program
or its derivative works. These actions are prohibited by law if you do not accept
this License. Therefore, by modifying or distributing the Program (or any work
based on the Program), you indicate your acceptance of this License to do so,
and all its terms and conditions for copying, distributing or modifying the
Program or works based on it.
6. Each time you redistribute the Program (or any work based on the Program),
the recipient automatically receives a license from the original licensor to copy,
distribute or modify the Program subject to these terms and conditions. You
may not impose any further restrictions on the recipients' exercise of the rights
granted herein. You are not responsible for enforcing compliance by third parties
to this License.
7. If, as a consequence of a court judgment or allegation of patent infringement
or for any other reason (not limited to patent issues), conditions are imposed on
you (whether by court order, agreement or otherwise) that contradict the
conditions of this License, they do not excuse you from the conditions of this
License. If you cannot distribute so as to satisfy simultaneously your obligations
under this License and any other pertinent obligations, then as a consequence
you may not distribute the Program at all. For example, if a patent license would
not permit royalty-free redistribution of the Program by all those who receive
copies directly or indirectly through you, then the only way you could satisfy
both it and this License would be to refrain entirely from distribution of the
Program.
If any portion of this section is held invalid or unenforceable under any particular
circumstance, the balance of the section is intended to apply and the section as
a whole is intended to apply in other circumstances.
It is not the purpose of this section to induce you to infringe any patents or other
property right claims or to contest validity of any such claims; this section has
the sole purpose of protecting the integrity of the free software distribution
system, which is implemented by public license practices. Many people have
made generous contributions to the wide range of software distributed through
that system in reliance on consistent application of that system; it is up to the
author/donor to decide if he or she is willing to distribute software through any
other system and a licensee cannot impose that choice.
This section is intended to make thoroughly clear what is believed to be a
consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in certain countries
either by patents or by copyrighted interfaces, the original copyright holder who
places the Program under this License may add an explicit geographical
distribution limitation excluding those countries, so that distribution is permitted
only in or among countries not thus excluded. In such case, this License
incorporates the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions of the
General Public License from time to time. Such new versions will be similar in
spirit to the present version, but may differ in detail to address new problems or
concerns.
Each version is given a distinguishing version number. If the Program specifies a
version number of this License which applies to it and "any later version", you
have the option of following the terms and conditions either of that version or of
any later version published by the Free Software Foundation. If the Program does
not specify a version number of this License, you may choose any version ever
published by the Free Software Foundation.
10. If you wish to incorporate parts of the Program into other free programs
whose distribution conditions are different, write to the author to ask for
permission. For software which is copyrighted by the Free Software Foundation,
write to the Free Software Foundation; we sometimes make exceptions for this.
Our decision will be guided by the two goals of preserving the free status of all
derivatives of our free software and of promoting the sharing and reuse of
software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS
NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE
COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM
"AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR
IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE,
YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED
TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY
WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS
PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES
ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM
(INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY
OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS
BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
---------------------------------------------------------------------------
The Artistic License
Preamble
The intent of this document is to state the conditions under which a Package
may be copied, such that the Copyright Holder maintains some semblance of
artistic control over the development of the package, while giving the users of the
package the right to use and distribute the Package in a more-or-less customary
fashion, plus the right to make reasonable modifications.
Definitions:
- "Package" refers to the collection of files distributed by the Copyright
Holder, and derivatives of that collection of files created through textual
modification.
- "Standard Version" refers to such a Package if it has not been modified,
or has been modified in accordance with the wishes of the Copyright
Holder.
- "Copyright Holder" is whoever is named in the copyright or copyrights for
the package.
- "You" is you, if you're thinking about copying or distributing this Package.
- "Reasonable copying fee" is whatever you can justify on the basis of
media cost, duplication charges, time of people involved, and so on. (You
will not be required to justify it to the Copyright Holder, but only to the
computing community at large as a market that must bear the fee.)
- "Freely Available" means that no fee is charged for the item itself, though
there may be fees involved in handling the item. It also means that
recipients of the item may redistribute it under the same conditions they
received it.
1. You may make and give away verbatim copies of the source form of the
Standard Version of this Package without restriction, provided that you duplicate
all of the original copyright notices and associated disclaimers.
2. You may apply bug fixes, portability fixes and other modifications derived from
the Public Domain or from the Copyright Holder. A Package modified in such a
way shall still be considered the Standard Version.
3. You may otherwise modify your copy of this Package in any way, provided
that you insert a prominent notice in each changed file stating how and when
you changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise
make them Freely Available, such as by posting said modifications
to Usenet or an equivalent medium, or placing the modifications on
a major archive site such as ftp.uu.net, or by allowing the
Copyright Holder to include your modifications in the Standard
Version of the Package.
b) use the modified Package only within your corporation or
organization.
c) rename any non-standard executables so the names do not
conflict with standard executables, which must also be provided,
and provide a separate manual page for each non-standard
executable that clearly documents how it differs from the Standard
Version.
d) make other distribution arrangements with the Copyright Holder.
4. You may distribute the programs of this Package in object code or executable
form, provided that you do at least ONE of the following:
a) distribute a Standard Version of the executables and library
files, together with instructions (in the manual page or equivalent)
on where to get the Standard Version.
b) accompany the distribution with the machine-readable source of
the Package with your modifications.
c) accompany any non-standard executables with their
corresponding Standard Version executables, giving the
non-standard executables non-standard names, and clearly
documenting the differences in manual pages (or equivalent),
together with instructions on where to get the Standard Version.
d) make other distribution arrangements with the Copyright Holder.
5. You may charge a reasonable copying fee for any distribution of this Package.
You may charge any fee you choose for support of this Package. You may not
charge a fee for this Package itself. However, you may distribute this Package in
aggregate with other (possibly commercial) programs as part of a larger
(possibly commercial) software distribution provided that you do not advertise
this Package as a product of your own.
6. The scripts and library files supplied as input to or produced as output from
the programs of this Package do not automatically fall under the copyright of this
Package, but belong to whomever generated them, and may be sold
commercially, and may be aggregated with this Package.
7. C or perl subroutines supplied by you and linked into this Package shall not
be considered part of this Package.
8. Aggregation of this Package with a commercial distribution is always permitted
provided that the use of this Package is embedded; that is, when no overt attempt
is made to make this Package's interfaces visible to the end user of the
commercial distribution. Such use shall not be construed as a distribution of
this Package.
9. The name of the Copyright Holder may not be used to endorse or promote
products derived from this software without specific prior written permission.
10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
PURPOSE.
The End
Test-Number-Delta-1.03/MANIFEST 0000644 0000000 0000000 00000000661 10635362601 0015765 0 ustar 00root root 0000000 0000000 Build.PL
Changes
INSTALL
lib/Test/Number/Delta.pm
LICENSE
Makefile.PL
MANIFEST This list of files
META.yml
README
t/01-module-basics.t
t/02-delta.t
t/03-specify_epsilon.t
t/04-specify_relative.t
t/05-check_bad_param.t
t/06-plan_passthrough.t
t/07-noplan_passthrough.t
t/08-param_and_plan_passthrough.t
t/09-bad_param_plan_order.t
t/10-specify_negative_epsilon.t
t/11-specify_negative_relative.t
t/98-pod.t
t/99-pod_coverage.t
Todo
Test-Number-Delta-1.03/META.yml 0000644 0000000 0000000 00000001042 10635362601 0016077 0 ustar 00root root 0000000 0000000 ---
name: Test-Number-Delta
version: 1.03
author:
- 'David A. Golden <dagolden@cpan.org>'
abstract: Compare the difference between numbers against a given tolerance
license: perl
resources:
license: http://dev.perl.org/licenses/
requires:
Test::Builder: 0.32
Test::Builder::Tester: 1.02
Test::More: 0.45
perl: 5.004
provides:
Test::Number::Delta:
file: lib/Test/Number/Delta.pm
version: 1.03
generated_by: Module::Build version 0.2805
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Test-Number-Delta-1.03/Makefile.PL 0000644 0000000 0000000 00000001033 10635362601 0016600 0 ustar 00root root 0000000 0000000 # Note: this file was auto-generated by Module::Build::Compat version 0.03
use ExtUtils::MakeMaker;
WriteMakefile
(
'PL_FILES' => {},
'INSTALLDIRS' => 'site',
'NAME' => 'Test::Number::Delta',
'EXE_FILES' => [],
'VERSION_FROM' => 'lib/Test/Number/Delta.pm',
'PREREQ_PM' => {
'Test::More' => '0.45',
'Test::Builder' => '0.32',
'Test::Builder::Tester' => '1.02'
}
)
;
Test-Number-Delta-1.03/README 0000644 0000000 0000000 00000020421 10635362601 0015510 0 ustar 00root root 0000000 0000000 NAME
Test::Number::Delta - Compare the difference between numbers against a
given tolerance
SYNOPSIS
# Import test functions
use Test::Number::Delta;
# Equality test with default tolerance
delta_ok( 1e-5, 2e-5, 'values within 1e-6');
# Inequality test with default tolerance
delta_not_ok( 1e-5, 2e-5, 'values not within 1e-6');
# Provide specific tolerance
delta_within( 1e-3, 2e-3, 1e-4, 'values within 1e-4');
delta_not_within( 1e-3, 2e-3, 1e-4, 'values not within 1e-4');
# Compare arrays or matrices
@a = ( 3.14, 1.41 );
@b = ( 3.15, 1.41 );
delta_ok( \@a, \@b, 'compare @a and @b' );
# Set a different default tolerance
use Test::Number::Delta within => 1e-5;
delta_ok( 1.1e-5, 2e-5, 'values within 1e-5'); # ok
# Set a relative tolerance
use Test::Number::Delta relative => 1e-3;
delta_ok( 1.01, 1.0099, 'values within 1.01e-3');
DESCRIPTION
At some point or another, most programmers find they need to compare
floating-point numbers for equality. The typical idiom is to test if the
absolute value of the difference of the numbers is within a desired
tolerance, usually called epsilon. This module provides such a function
for use with Test::Harness. Usage is similar to other test functions
described in Test::More. Semantically, the "delta_within" function
replaces this kind of construct:
ok ( abs($p - $q) < $epsilon, '$p is equal to $q' ) or
diag "$p is not equal to $q to within $epsilon";
While there's nothing wrong with that construct, it's painful to type it
repeatedly in a test script. This module does the same thing with a
single function call. The "delta_ok" function is similar, but either
uses a global default value for epsilon or else calculates a 'relative'
epsilon on the fly so that epsilon is scaled automatically to the size
of the arguments to "delta_ok". Both functions are exported
automatically.
Because checking floating-point equality is not always reliable, it is
not possible to check the 'equal to' boundary of 'less than or equal to
epsilon'. Therefore, Test::Number::Delta only compares if the absolute
value of the difference is less than epsilon (for equality tests) or
greater than epsilon (for inequality tests).
USAGE
use Test::Number::Delta;
With no arguments, epsilon defaults to 1e-6. (An arbitrary choice on the
author's part.)
use Test::Number::Delta within => 1e-9;
To specify a different default value for epsilon, provide a "within"
parameter when importing the module. The value must be non-zero.
use Test::Number::Delta relative => 1e-3;
As an alternative to using a fixed value for epsilon, provide a
"relative" parameter when importing the module. This signals that
"delta_ok" should test equality with an epsilon that is scaled to the
size of the arguments. Epsilon is calculated as the relative value times
the absolute value of the argument with the greatest magnitude.
Mathematically, for arguments 'x' and 'y':
epsilon = relative * max( abs(x), abs(y) )
For example, a relative value of "0.01" would mean that the arguments
are equal if they differ by less than 1% of the larger of the two
values. A relative value of 1e-6 means that the arguments must differ by
less than 1 millionth of the larger value. The relative value must be
non-zero.
Combining with a test plan
use Test::Number::Delta 'no_plan';
# or
use Test::Number::Delta within => 1e-9, tests => 1;
If a test plan has not already been specified, the optional parameter
for Test::Number::Delta may be followed with a test plan (see Test::More
for details). If a parameter for Test::Number::Delta is given, it must
come first.
FUNCTIONS
delta_within
delta_within( $p, $q, $epsilon, '$p and $q are equal within $epsilon' );
delta_within( \@p, \@q, $epsilon, '@p and @q are equal within $epsilon' );
This function tests for equality within a given value of epsilon. The
test is true if the absolute value of the difference between $p and $q
is less than epsilon. If the test is true, it prints an "OK" statement
for use in testing. If the test is not true, this function prints a
failure report and diagnostic. Epsilon must be non-zero.
The values to compare may be scalars or references to arrays. If the
values are references to arrays, the comparison is done pairwise for
each index value of the array. The pairwise comparison is recursive, so
matrices may be compared as well.
For example, this code sample compares two matrices:
my @a = ( [ 3.14, 6.28 ],
[ 1.41, 2.84 ] );
my @b = ( [ 3.14, 6.28 ],
[ 1.42, 2.84 ] );
delta_within( \@a, \@b, 1e-6, 'compare @a and @b' );
The sample prints the following:
not ok 1 - compare @a and @b
# At [1][0]: 1.4100000 and 1.4200000 are not equal to within 0.000001
delta_ok
delta_ok( $p, $q, '$p and $q are close enough to equal' );
delta_ok( \@p, \@q, '@p and @q are close enough to equal' );
This function tests for equality within a default epsilon value. See
"USAGE" for details on changing the default. Otherwise, this function
works the same as "delta_within".
delta_not_within
delta_not_within( $p, $q, '$p and $q are different' );
delta_not_within( \@p, \@q, $epsilon, '@p and @q are different' );
This test compares inequality in excess of a given value of epsilon. The
test is true if the absolute value of the difference between $p and $q
is greater than epsilon. For array or matrix comparisons, the test is
true if *any* pair of values differs by more than epsilon. Otherwise,
this function works the same as "delta_within".
delta_not_ok
delta_not_ok( $p, $q, '$p and $q are different' );
delta_not_ok( \@p, \@q, '@p and @q are different' );
This function tests for inequality in excess of a default epsilon value.
See "USAGE" for details on changing the default. Otherwise, this
function works the same as "delta_not_within".
SEE ALSO
Test::More, Test::Harness, Test::Builder
BUGS
Please report any bugs or feature using the CPAN Request Tracker. Bugs
can be submitted by email to "bug-Test-Number-Delta@rt.cpan.org" or
through the web interface at
<http://rt.cpan.org/Dist/Display.html?Queue=Test-Number-Delta>
When submitting a bug or request, please include a test-file or a patch
to an existing test-file that illustrates the bug or desired feature.
AUTHOR
David A Golden (DAGOLDEN)
dagolden@cpan.org
<http://dagolden.com/>
COPYRIGHT
Copyright (c) 2005, 2006 by David A. Golden
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included
with this module.
DISCLAIMER OF WARRANTY
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
NECESSARY SERVICING, REPAIR, OR CORRECTION.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE LIABLE
TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR
CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
DAMAGES.
Test-Number-Delta-1.03/Todo 0000644 0000000 0000000 00000000240 10635362601 0015455 0 ustar 00root root 0000000 0000000 TODO list for Perl module Test::Number::Delta
- better export handling (use Sub::Exporter)?
- rename everything to be Test::Number::Equality (e.g equal_ok)?
Test-Number-Delta-1.03/lib/ 0000755 0000000 0000000 00000000000 10635362601 0015377 5 ustar 00root root 0000000 0000000 Test-Number-Delta-1.03/lib/Test/ 0000755 0000000 0000000 00000000000 10635362601 0016316 5 ustar 00root root 0000000 0000000 Test-Number-Delta-1.03/lib/Test/Number/ 0000755 0000000 0000000 00000000000 10635362601 0017546 5 ustar 00root root 0000000 0000000 Test-Number-Delta-1.03/lib/Test/Number/Delta.pm 0000644 0000000 0000000 00000031720 10635362601 0021140 0 ustar 00root root 0000000 0000000 package Test::Number::Delta;
use strict;
#use warnings; bah -- not supported before 5.006
use vars qw ($VERSION @EXPORT @ISA);
$VERSION = "1.03";
# Required modules
use Carp;
use Test::Builder;
use Exporter;
@ISA = qw( Exporter );
@EXPORT = qw( delta_not_ok delta_ok delta_within delta_not_within );
=head1 NAME
Test::Number::Delta - Compare the difference between numbers against a given tolerance
=head1 SYNOPSIS
# Import test functions
use Test::Number::Delta;
# Equality test with default tolerance
delta_ok( 1e-5, 2e-5, 'values within 1e-6');
# Inequality test with default tolerance
delta_not_ok( 1e-5, 2e-5, 'values not within 1e-6');
# Provide specific tolerance
delta_within( 1e-3, 2e-3, 1e-4, 'values within 1e-4');
delta_not_within( 1e-3, 2e-3, 1e-4, 'values not within 1e-4');
# Compare arrays or matrices
@a = ( 3.14, 1.41 );
@b = ( 3.15, 1.41 );
delta_ok( \@a, \@b, 'compare @a and @b' );
# Set a different default tolerance
use Test::Number::Delta within => 1e-5;
delta_ok( 1.1e-5, 2e-5, 'values within 1e-5'); # ok
# Set a relative tolerance
use Test::Number::Delta relative => 1e-3;
delta_ok( 1.01, 1.0099, 'values within 1.01e-3');
=head1 DESCRIPTION
At some point or another, most programmers find they need to compare
floating-point numbers for equality. The typical idiom is to test
if the absolute value of the difference of the numbers is within a desired
tolerance, usually called epsilon. This module provides such a function for use
with L<Test::Harness>. Usage is similar to other test functions described in
L<Test::More>. Semantically, the C<delta_within> function replaces this kind
of construct:
ok ( abs($p - $q) < $epsilon, '$p is equal to $q' ) or
diag "$p is not equal to $q to within $epsilon";
While there's nothing wrong with that construct, it's painful to type it
repeatedly in a test script. This module does the same thing with a single
function call. The C<delta_ok> function is similar, but either uses a global
default value for epsilon or else calculates a 'relative' epsilon on
the fly so that epsilon is scaled automatically to the size of the arguments to
C<delta_ok>. Both functions are exported automatically.
Because checking floating-point equality is not always reliable, it is not
possible to check the 'equal to' boundary of 'less than or equal to
epsilon'. Therefore, Test::Number::Delta only compares if the absolute value
of the difference is B<less than> epsilon (for equality tests) or
B<greater than> epsilon (for inequality tests).
=head1 USAGE
=head2 use Test::Number::Delta;
With no arguments, epsilon defaults to 1e-6. (An arbitrary choice on the
author's part.)
=head2 use Test::Number::Delta within => 1e-9;
To specify a different default value for epsilon, provide a C<within> parameter
when importing the module. The value must be non-zero.
=head2 use Test::Number::Delta relative => 1e-3;
As an alternative to using a fixed value for epsilon, provide a C<relative>
parameter when importing the module. This signals that C<delta_ok> should
test equality with an epsilon that is scaled to the size of the arguments.
Epsilon is calculated as the relative value times the absolute value
of the argument with the greatest magnitude. Mathematically, for arguments
'x' and 'y':
epsilon = relative * max( abs(x), abs(y) )
For example, a relative value of "0.01" would mean that the arguments are equal
if they differ by less than 1% of the larger of the two values. A relative
value of 1e-6 means that the arguments must differ by less than 1 millionth
of the larger value. The relative value must be non-zero.
=head2 Combining with a test plan
use Test::Number::Delta 'no_plan';
# or
use Test::Number::Delta within => 1e-9, tests => 1;
If a test plan has not already been specified, the optional
parameter for Test::Number::Delta may be followed with a test plan (see
L<Test::More> for details). If a parameter for Test::Number::Delta is
given, it must come first.
=cut
my $Test = Test::Builder->new;
my $Epsilon = 1e-6;
my $Relative = undef;
sub import {
my $self = shift;
my $pack = caller;
my $found = grep /within|relative/, @_;
croak "Can't specify more than one of 'within' or 'relative'"
if $found > 1;
if ($found) {
my ($param,$value) = splice @_, 0, 2;
croak "'$param' parameter must be non-zero"
if $value == 0;
if ($param eq 'within') {
$Epsilon = abs($value);
}
elsif ($param eq 'relative') {
$Relative = abs($value);
}
else {
croak "Test::Number::Delta parameters must come first";
}
}
$Test->exported_to($pack);
$Test->plan(@_);
$self->export_to_level(1, $self, $_) for @EXPORT;
}
#--------------------------------------------------------------------------#
# _check -- recursive function to perform comparison
#--------------------------------------------------------------------------#
sub _check {
my ($p, $q, $epsilon, $name, @indices) = @_;
my ($ok, $diag) = ( 1, q{} ); # assume true
if ( ref $p eq 'ARRAY' || ref $q eq 'ARRAY' ) {
if ( @$p == @$q ) {
for my $i ( 0 .. $#{$p} ) {
my @new_indices;
($ok, $diag, @new_indices) = _check(
$p->[$i],
$q->[$i],
$epsilon,
$name,
scalar @indices ? @indices : (),
$i,
);
if ( not $ok ) {
@indices = @new_indices;
last;
}
}
}
else {
$ok = 0;
$diag = "Got an array of length " . scalar(@$p) .
", but expected an array of length " . scalar(@$q);
}
}
else {
$ok = abs($p - $q) < $epsilon;
if ( ! $ok ) {
my ($ep, $dp) = _ep_dp( $epsilon );
$diag = sprintf("%.${dp}f and %.${dp}f are not equal" .
" to within %.${ep}f", $p, $q, $epsilon
);
}
}
return ( $ok, $diag, scalar(@indices) ? @indices : () );
}
sub _ep_dp {
my $epsilon = shift;
my ($exp) = sprintf("%e",$epsilon) =~ m/e(.+)/;
my $ep = $exp < 0 ? -$exp : 1;
my $dp = $ep + 1;
return ($ep, $dp);
}
=head1 FUNCTIONS
=cut
#--------------------------------------------------------------------------#
# delta_within()
#--------------------------------------------------------------------------#
=head2 delta_within
delta_within( $p, $q, $epsilon, '$p and $q are equal within $epsilon' );
delta_within( \@p, \@q, $epsilon, '@p and @q are equal within $epsilon' );
This function tests for equality within a given value of epsilon. The test is
true if the absolute value of the difference between $p and $q is B<less than>
epsilon. If the test is true, it prints an "OK" statement for use in testing.
If the test is not true, this function prints a failure report and diagnostic.
Epsilon must be non-zero.
The values to compare may be scalars or references to arrays. If the values
are references to arrays, the comparison is done pairwise for each index value
of the array. The pairwise comparison is recursive, so matrices may
be compared as well.
For example, this code sample compares two matrices:
my @a = ( [ 3.14, 6.28 ],
[ 1.41, 2.84 ] );
my @b = ( [ 3.14, 6.28 ],
[ 1.42, 2.84 ] );
delta_within( \@a, \@b, 1e-6, 'compare @a and @b' );
The sample prints the following:
not ok 1 - compare @a and @b
# At [1][0]: 1.4100000 and 1.4200000 are not equal to within 0.000001
=cut
sub delta_within($$$;$) {
my ($p, $q, $epsilon, $name) = @_;
croak "Value of epsilon to delta_within must be non-zero"
if $epsilon == 0;
$epsilon = abs($epsilon);
my ($ok, $diag, @indices) = _check( $p, $q, $epsilon, $name );
if ( @indices ) {
$diag = "At [" . join( "][", @indices ) . "]: $diag";
}
return $Test->ok($ok,$name) || $Test->diag( $diag );
}
#--------------------------------------------------------------------------#
# delta_ok()
#--------------------------------------------------------------------------#
=head2 delta_ok
delta_ok( $p, $q, '$p and $q are close enough to equal' );
delta_ok( \@p, \@q, '@p and @q are close enough to equal' );
This function tests for equality within a default epsilon value. See L</USAGE>
for details on changing the default. Otherwise, this function works the same
as C<delta_within>.
=cut
sub delta_ok($$;$) {
my ($p, $q, $name) = @_;
{
local $Test::Builder::Level = $Test::Builder::Level + 1;
my $e = $Relative
? $Relative * (abs($p) > abs($q) ? abs($p) : abs($q))
: $Epsilon;
delta_within( $p, $q, $e, $name );
}
}
#--------------------------------------------------------------------------#
# delta_not_ok()
#--------------------------------------------------------------------------#
=head2 delta_not_within
delta_not_within( $p, $q, '$p and $q are different' );
delta_not_within( \@p, \@q, $epsilon, '@p and @q are different' );
This test compares inequality in excess of a given value of epsilon. The test
is true if the absolute value of the difference between $p and $q is B<greater
than> epsilon. For array or matrix comparisons, the test is true if I<any>
pair of values differs by more than epsilon. Otherwise, this function works
the same as C<delta_within>.
=cut
sub delta_not_within($$$;$) {
my ($p, $q, $epsilon, $name) = @_;
croak "Value of epsilon to delta_not_within must be non-zero"
if $epsilon == 0;
$epsilon = abs($epsilon);
my ($ok, undef, @indices) = _check( $p, $q, $epsilon, $name );
$ok = !$ok;
my ($ep, $dp) = _ep_dp( $epsilon );
my $diag = sprintf("Arguments are equal to within %.${ep}f", $epsilon);
return $Test->ok($ok,$name) || $Test->diag( $diag );
}
=head2 delta_not_ok
delta_not_ok( $p, $q, '$p and $q are different' );
delta_not_ok( \@p, \@q, '@p and @q are different' );
This function tests for inequality in excess of a default epsilon value. See
L</USAGE> for details on changing the default. Otherwise, this function works
the same as C<delta_not_within>.
=cut
sub delta_not_ok($$;$) {
my ($p, $q, $name) = @_;
{
local $Test::Builder::Level = $Test::Builder::Level + 1;
my $e = $Relative
? $Relative * (abs($p) > abs($q) ? abs($p) : abs($q))
: $Epsilon;
delta_not_within( $p, $q, $e, $name );
}
}
1; #this line is important and will help the module return a true value
__END__
=head1 SEE ALSO
L<Test::More>, L<Test::Harness>, L<Test::Builder>
=head1 BUGS
Please report any bugs or feature using the CPAN Request Tracker.
Bugs can be submitted by email to C<bug-Test-Number-Delta@rt.cpan.org> or
through the web interface at
L<http://rt.cpan.org/Dist/Display.html?Queue=Test-Number-Delta>
When submitting a bug or request, please include a test-file or a patch to an
existing test-file that illustrates the bug or desired feature.
=head1 AUTHOR
David A Golden (DAGOLDEN)
dagolden@cpan.org
L<http://dagolden.com/>
=head1 COPYRIGHT
Copyright (c) 2005, 2006 by David A. Golden
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with this module.
=head1 DISCLAIMER OF WARRANTY
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
NECESSARY SERVICING, REPAIR, OR CORRECTION.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
=cut
Test-Number-Delta-1.03/perl-Test-Number-Delta.spec 0000644 0000000 0000000 00000002012 10635362601 0021634 0 ustar 00root root 0000000 0000000 %define dist Test-Number-Delta
Name: perl-%dist
Version: 1.03
Release: alt1
Summary: Compare the difference between numbers against a given tolerance
License: GPL or Artistic
Group: Development/Perl
URL: %CPAN %dist
Source: %dist-%version.tar
BuildArch: noarch
# Automatically added by buildreq on Mon Jun 18 2007
BuildRequires: perl-devel
%description
At some point or another, most programmers find they need to compare
floating-point numbers for equality. The typical idiom is to test if
the absolute value of the difference of the numbers is within a
desired tolerance, usually called epsilon. This module provides such
functions (delta_within and delta_ok) for use with Test::Harness.
Usage is similar to other test functions described in Test::More.
%prep
%setup -q -n %dist-%version
rm Build.PL
%build
%perl_vendor_build
%install
%perl_vendor_install
%files
%doc Changes
%perl_vendor_privlib/Test/
%changelog
* Mon Jun 18 2007 Alexey Tourbin <at@altlinux.ru> 1.03-alt1
- initial revision (for perl-Cairo test suite)
Test-Number-Delta-1.03/t/ 0000755 0000000 0000000 00000000000 10635362601 0015074 5 ustar 00root root 0000000 0000000 Test-Number-Delta-1.03/t/01-module-basics.t 0000644 0000000 0000000 00000000341 10635362601 0020224 0 ustar 00root root 0000000 0000000 use strict;
use Test::More tests => 3;
BEGIN { use_ok( 'Test::Number::Delta'); }
my @funcs = qw/ delta_ok delta_within delta_not_ok delta_not_within /;
can_ok( 'Test::Number::Delta', @funcs );
can_ok( 'main', @funcs );
Test-Number-Delta-1.03/t/02-delta.t 0000644 0000000 0000000 00000014621 10635362601 0016575 0 ustar 00root root 0000000 0000000 use strict;
use Test::Builder::Tester tests => 25;
use Test::Number::Delta;
select(STDERR); $|++;
select(STDOUT); $|++;
#--------------------------------------------------------------------------#
# scalar - delta_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.0000100 and 0.0000200 are not equal to within 0.000001");
delta_ok(1e-5, 2e-5, "foo");
test_test("delta_ok(\$a,\$b) fail works");
test_out("ok 1 - foo");
delta_ok(1.1e-6, 2e-6, "foo");
test_test("delta_ok(\$a,\$b) pass works");
#--------------------------------------------------------------------------#
# scalar - delta_not_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.000001");
delta_not_ok(1e-7, 2e-7, "foo");
test_test("delta_not_ok(\$a,\$b) fail works");
test_out("ok 1 - foo");
delta_not_ok(1.2e-5, 1e-5, "foo");
test_test("delta_not_ok(\$a,\$b) pass works");
#--------------------------------------------------------------------------#
# scalar -- delta_within
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.00100 and 0.00200 are not equal to within 0.0001");
delta_within(1e-3, 2e-3, 1e-4, "foo");
test_test("delta_within(\$a,\$b,\$e) fail works");
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.00100 and 0.00200 are not equal to within 0.0001");
delta_within(1e-3, 2e-3, -1e-4, "foo");
test_test("delta_within(\$a,\$b,-\$e) fail works");
test_out("ok 1 - foo");
delta_within(1.1e-4, 2e-4, 1e-4, "foo");
test_test("delta_within(\$a,\$b,\$e) pass works");
test_out("ok 1 - foo");
delta_within(1.1e-4, 2e-4, -1e-4, "foo");
test_test("delta_within(\$a,\$b,-\$e) pass works");
#--------------------------------------------------------------------------#
# scalar -- delta_not_within
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.01");
delta_not_within(1e-3, 2e-3, 1e-2, "foo");
test_test("delta_not_within(\$a,\$b,\$e) fail works");
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.01");
delta_not_within(1e-3, 2e-3, -1e-2, "foo");
test_test("delta_not_within(\$a,\$b,-\$e) fail works");
test_out("ok 1 - foo");
delta_not_within(1.1e-4, 2e-4, 1e-5, "foo");
test_test("delta_not_within(\$a,\$b,\$e) pass works");
test_out("ok 1 - foo");
delta_not_within(1.1e-4, 2e-4, -1e-5, "foo");
test_test("delta_not_within(\$a,\$b,-\$e) pass works");
#--------------------------------------------------------------------------#
# list - length
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Got an array of length 2, but expected an array of length 1");
delta_ok( [1e-5, 2e-5], [1e-5], "foo");
test_test("delta_ok(\\\@a,\\\@b) unequal length fail works");
#--------------------------------------------------------------------------#
# list -- delta_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("At [1]: 0.0000200 and 0.0000300 are not equal to within 0.000001");
delta_ok( [1e-5, 2e-5], [1e-5, 3e-5], "foo");
test_test("delta_ok(\\\@a,\\\@b) pairwise fail works");
test_out("ok 1 - foo");
delta_ok( [1e-5, 2e-5], [1e-5, 2e-5], "foo");
test_test("delta_ok(\\\@a,\\\@b) pairwise pass works");
#--------------------------------------------------------------------------#
# list -- delta_not_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.000001");
delta_not_ok( [1e-7, 2e-7], [1e-7, 2e-7], "foo");
test_test("delta_not_ok(\\\@a,\\\@b) pairwise fail at [0] works");
test_out("ok 1 - foo");
delta_not_ok( [1e-5, 2e-5], [1e-5, 3e-5], "foo");
test_test("delta_not_ok(\\\@a,\\\@b) pairwise pass works");
#--------------------------------------------------------------------------#
# matrix -- delta_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("At [1][0]: 0.0000300 and 0.0000100 are not equal to within 0.000001");
delta_ok( [[1e-5, 2e-5], [3e-5, 4e-5]], [[1e-5, 2e-5], [1e-5, 4e-5]], "foo");
test_test("delta_ok(\\\@a,\\\@b) matrix fail works");
test_out("ok 1 - foo");
delta_ok( [[1e-5, 2e-5], [3e-5, 4e-5]], [[1e-5, 2e-5], [3e-5, 4e-5]], "foo");
test_test("delta_ok(\\\@a,\\\@b) matrix pass works");
#--------------------------------------------------------------------------#
# matrix -- delta_not_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.000001");
delta_not_ok( [[1e-7, 2e-7], [3e-7, 4e-7]], [[2e-7, 3e-7], [4e-7, 5e-7]], "foo");
test_test("delta_not_ok(\\\@a,\\\@b) matrix fail works");
test_out("ok 1 - foo");
delta_not_ok( [[1e-7, 2e-7], [3e-7, 4e-5]], [[5e-7, 6e-7], [7e-7, 8e-5]], "foo");
test_test("delta_not_ok(\\\@a,\\\@b) matrix pass works");
#--------------------------------------------------------------------------#
# matrix -- delta_within
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("At [1][0]: 0.00300 and 0.00100 are not equal to within 0.0001");
delta_within( [[1e-3, 2e-3], [3e-3, 4e-3]], [[1e-3, 2e-3], [1e-3, 4e-3]], 1e-4, "foo");
test_test("delta_within(\\\@a,\\\@b,\$e) matrix fail works");
test_out("ok 1 - foo");
delta_within( [[1e-3, 2e-3], [3e-3, 4e-3]], [[1e-3, 2e-3], [3e-3, 4e-3]], 1e-4, "foo");
test_test("delta_within(\\\@a,\\\@b,\$e) matrix pass works");
#--------------------------------------------------------------------------#
# matrix -- delta_not_within
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.0001");
delta_not_within( [[1e-5, 2e-5], [3e-5, 4e-5]], [[5e-5, 6e-5], [7e-5, 8e-5]], 1e-4, "foo");
test_test("delta_not_within(\\\@a,\\\@b,\$e) matrix fail works");
test_out("ok 1 - foo");
delta_not_within( [[1e-3, 2e-3], [3e-3, 4e-3]], [[5e-3, 6e-3], [7e-3, 8e-3]], 1e-4, "foo");
test_test("delta_not_within(\\\@a,\\\@b,\$e) matrix pass works");
Test-Number-Delta-1.03/t/03-specify_epsilon.t 0000644 0000000 0000000 00000000516 10635362601 0020676 0 ustar 00root root 0000000 0000000 use strict;
use Test::Builder::Tester tests => 2;
use Test::Number::Delta within => 1e-4;
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.00100 and 0.00200 are not equal to within 0.0001");
delta_ok(1e-3, 2e-3, "foo");
test_test("fail works");
test_out("ok 1 - foo");
delta_ok(1.1e-4, 2e-4, "foo");
test_test("ok works");
Test-Number-Delta-1.03/t/04-specify_relative.t 0000644 0000000 0000000 00000003444 10635362601 0021044 0 ustar 00root root 0000000 0000000 use strict;
use Test::Builder::Tester tests => 12;
use Test::Number::Delta relative => 1e-2;
#--------------------------------------------------------------------------#
# delta_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.001000 and 0.000980 are not equal to within 0.00001");
delta_ok(1e-3, 9.8e-4, "foo");
test_test("delta_ok fail works");
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("-50.00 and -49.40 are not equal to within 0.5");
delta_ok(-50, -49.4, "foo");
test_test("delta_ok fail works");
test_out("ok 1 - foo");
delta_ok(10e-5, 9.91e-5, "foo");
test_test("delta_ok works");
test_out("ok 1 - foo");
delta_ok(-9.91e-5, -10e-5, "foo");
test_test("delta_ok works");
test_out("ok 1 - foo");
delta_ok(1.01, 1.0099, "foo");
test_test("delta_ok works");
test_out("ok 1 - foo");
delta_ok(-100, -99.1, "foo");
test_test("delta_ok works");
#--------------------------------------------------------------------------#
# delta_not_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.00001");
delta_not_ok(1e-3, 9.91e-4, "foo");
test_test("delta_not_ok fail works");
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.5");
delta_not_ok(-50, -49.6, "foo");
test_test("delta_no_ok fail works");
test_out("ok 1 - foo");
delta_not_ok(10e-5, 9.89e-5, "foo");
test_test("delta_not_ok works");
test_out("ok 1 - foo");
delta_not_ok(-9.89e-5, -10e-5, "foo");
test_test("delta_not_ok works");
test_out("ok 1 - foo");
delta_not_ok(1.01, 0.99, "foo");
test_test("delta_not_ok works");
test_out("ok 1 - foo");
delta_not_ok(-100, -98.1, "foo");
test_test("delta_not_ok works");
Test-Number-Delta-1.03/t/05-check_bad_param.t 0000644 0000000 0000000 00000001472 10635362601 0020552 0 ustar 00root root 0000000 0000000 use strict;
use Test::More tests => 6;
require_ok( "Test::Number::Delta" );
eval { Test::Number::Delta->import( within => 0.1, relative => 0.01 ) };
like( $@, "/Can't specify more than one of 'within' or 'relative'/",
"Import dies with both parameters"
);
for my $p ( qw/within relative/ ) {
eval { Test::Number::Delta->import( $p => 0 ) };
like( $@, "/'$p' parameter must be non-zero/",
"Import dies if '$p' parameter is zero"
);
}
eval { Test::Number::Delta::delta_within(0.1, 0.3, 0, "foo") };
like( $@, "/Value of epsilon to delta_within must be non-zero/",
"delta_within dies if epsilon is zero"
);
eval { Test::Number::Delta::delta_not_within(0.1, 0.3, 0, "foo") };
like( $@, "/Value of epsilon to delta_not_within must be non-zero/",
"delta_not_within dies if epsilon is zero"
);
Test-Number-Delta-1.03/t/06-plan_passthrough.t 0000644 0000000 0000000 00000000121 10635362601 0021057 0 ustar 00root root 0000000 0000000 use strict;
use Test::Number::Delta tests => 1;
delta_ok(1.1e-6, 2e-6, "foo");
Test-Number-Delta-1.03/t/07-noplan_passthrough.t 0000644 0000000 0000000 00000000103 10635362601 0021415 0 ustar 00root root 0000000 0000000 use Test::Number::Delta 'no_plan';
delta_ok(1.1e-6, 2e-6, "foo");
Test-Number-Delta-1.03/t/08-param_and_plan_passthrough.t 0000644 0000000 0000000 00000000141 10635362601 0023065 0 ustar 00root root 0000000 0000000 use strict;
use Test::Number::Delta within => 1e-4, tests => 1;
delta_ok(1.1e-4, 2e-4, "foo");
Test-Number-Delta-1.03/t/09-bad_param_plan_order.t 0000644 0000000 0000000 00000000311 10635362601 0021615 0 ustar 00root root 0000000 0000000 use strict;
use Test::More tests => 2;
require_ok( "Test::Number::Delta" );
eval { Test::Number::Delta->import(tests => 1, within => 1e-4) };
ok( $@, "dies if parameter is given after test plan" );
Test-Number-Delta-1.03/t/10-specify_negative_epsilon.t 0000644 0000000 0000000 00000000517 10635362601 0022557 0 ustar 00root root 0000000 0000000 use strict;
use Test::Builder::Tester tests => 2;
use Test::Number::Delta within => -1e-4;
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.00100 and 0.00200 are not equal to within 0.0001");
delta_ok(1e-3, 2e-3, "foo");
test_test("fail works");
test_out("ok 1 - foo");
delta_ok(1.1e-4, 2e-4, "foo");
test_test("ok works");
Test-Number-Delta-1.03/t/11-specify_negative_relative.t 0000644 0000000 0000000 00000003445 10635362601 0022725 0 ustar 00root root 0000000 0000000 use strict;
use Test::Builder::Tester tests => 12;
use Test::Number::Delta relative => -1e-2;
#--------------------------------------------------------------------------#
# delta_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.001000 and 0.000980 are not equal to within 0.00001");
delta_ok(1e-3, 9.8e-4, "foo");
test_test("delta_ok fail works");
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("-50.00 and -49.40 are not equal to within 0.5");
delta_ok(-50, -49.4, "foo");
test_test("delta_ok fail works");
test_out("ok 1 - foo");
delta_ok(10e-5, 9.91e-5, "foo");
test_test("delta_ok works");
test_out("ok 1 - foo");
delta_ok(-9.91e-5, -10e-5, "foo");
test_test("delta_ok works");
test_out("ok 1 - foo");
delta_ok(1.01, 1.0099, "foo");
test_test("delta_ok works");
test_out("ok 1 - foo");
delta_ok(-100, -99.1, "foo");
test_test("delta_ok works");
#--------------------------------------------------------------------------#
# delta_not_ok
#--------------------------------------------------------------------------#
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.00001");
delta_not_ok(1e-3, 9.91e-4, "foo");
test_test("delta_not_ok fail works");
test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.5");
delta_not_ok(-50, -49.6, "foo");
test_test("delta_no_ok fail works");
test_out("ok 1 - foo");
delta_not_ok(10e-5, 9.89e-5, "foo");
test_test("delta_not_ok works");
test_out("ok 1 - foo");
delta_not_ok(-9.89e-5, -10e-5, "foo");
test_test("delta_not_ok works");
test_out("ok 1 - foo");
delta_not_ok(1.01, 0.99, "foo");
test_test("delta_not_ok works");
test_out("ok 1 - foo");
delta_not_ok(-100, -98.1, "foo");
test_test("delta_not_ok works");
Test-Number-Delta-1.03/t/98-pod.t 0000644 0000000 0000000 00000000342 10635362601 0016300 0 ustar 00root root 0000000 0000000 use Test::More;
plan skip_all => "Skipping author tests" if not $ENV{AUTHOR_TESTING};
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
all_pod_files_ok();
Test-Number-Delta-1.03/t/99-pod_coverage.t 0000644 0000000 0000000 00000000625 10635362601 0020160 0 ustar 00root root 0000000 0000000 use Test::More;
plan skip_all => "Skipping author tests" if not $ENV{AUTHOR_TESTING};
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
my $min_pc = 0.17;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
all_pod_coverage_ok();