r10149 - in /branches/upstream/libdate-leapyear-perl: ./ current/ current/lib/ current/lib/Date/ current/t/
vdanjean at users.alioth.debian.org
vdanjean at users.alioth.debian.org
Sat Dec 1 11:54:59 UTC 2007
Author: vdanjean
Date: Sat Dec 1 11:54:59 2007
New Revision: 10149
URL: http://svn.debian.org/wsvn/?sc=1&rev=10149
Log:
[svn-inject] Installing original source of libdate-leapyear-perl
Added:
branches/upstream/libdate-leapyear-perl/
branches/upstream/libdate-leapyear-perl/current/
branches/upstream/libdate-leapyear-perl/current/ChangeLog
branches/upstream/libdate-leapyear-perl/current/LICENSE
branches/upstream/libdate-leapyear-perl/current/MANIFEST
branches/upstream/libdate-leapyear-perl/current/Makefile.PL
branches/upstream/libdate-leapyear-perl/current/README
branches/upstream/libdate-leapyear-perl/current/lib/
branches/upstream/libdate-leapyear-perl/current/lib/Date/
branches/upstream/libdate-leapyear-perl/current/lib/Date/Leapyear.pm
branches/upstream/libdate-leapyear-perl/current/t/
branches/upstream/libdate-leapyear-perl/current/t/00load.t
branches/upstream/libdate-leapyear-perl/current/t/01isleap.t
branches/upstream/libdate-leapyear-perl/current/t/02testmore.t
Added: branches/upstream/libdate-leapyear-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/ChangeLog?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/ChangeLog (added)
+++ branches/upstream/libdate-leapyear-perl/current/ChangeLog Sat Dec 1 11:54:59 2007
@@ -1,0 +1,78 @@
+2002-08-29 20:00 rbowen
+
+ * lib/Date/Leapyear.pm (1.71): Force version number to keep CPAN
+ happy, as I foolishly uploaded 1.7
+
+2002-08-29 19:59 rbowen
+
+ * t/01isleap.t (1.3): Move to is() rather than ok() to get more
+ meaningful error messages
+
+2001-12-30 23:03 rbowen
+
+ * lib/Date/Leapyear.pm (1.7): Removed CVS history. Update version
+ number for new release.
+
+2001-12-30 23:02 rbowen
+
+ * Makefile.PL (1.4): Added Test::More to dependencies list
+
+2001-11-24 23:23 rbowen
+
+ * MANIFEST (1.4): Added test
+
+2001-11-24 23:22 rbowen
+
+ * t/02testmore.t (1.1): Test all years divisible by 4 between 1 and
+ 3000.
+
+2001-08-06 20:26 rbowen
+
+ * lib/Date/Leapyear.pm (1.6): Updating version number for new
+ release
+
+2001-08-06 20:15 rbowen
+
+ * MANIFEST (1.3), Makefile.PL (1.3): Moved Date/Leapyear into lib/
+
+2001-08-03 22:03 rbowen
+
+ * Readme (1.3): Updated to latest POD
+
+2001-08-03 22:02 rbowen
+
+ * LICENSE (1.1), MANIFEST (1.2), Makefile.PL (1.2),
+ lib/Date/Leapyear.pm (1.5): Added LICENSE Removed 'warnings' from
+ Leapyear.pm so that it will run on earlier Perl 5's.
+
+2001-08-01 20:51 rbowen
+
+ * lib/Date/Leapyear.pm (1.4): There's no reason to require 5.6
+
+2001-07-24 11:59 rbowen
+
+ * lib/Date/Leapyear.pm (1.3), t/00load.t (1.2), t/01isleap.t (1.2):
+ Changed the leapyear algorithm to be a little more readable. Moved
+ tests to Test::More.
+
+2001-06-03 23:48 rbowen
+
+ * lib/Date/Leapyear.pm (1.2): The readme file was apparently copied
+ over from another project. Oops.
+
+2001-06-03 23:47 rbowen
+
+ * Readme (1.2): Updated to match POD
+
+2001-06-02 07:51 rbowen
+
+ * MANIFEST (1.1), Makefile.PL (1.1), Readme (1.1),
+ lib/Date/Leapyear.pm (1.1), t/00load.t (1.1), t/01isleap.t (1.1):
+ Initial revision
+
+2001-06-02 07:51 rbowen
+
+ * MANIFEST (1.1.1.1), Makefile.PL (1.1.1.1), Readme (1.1.1.1),
+ lib/Date/Leapyear.pm (1.1.1.1), t/00load.t (1.1.1.1), t/01isleap.t
+ (1.1.1.1) (utags: start): date-leapyear
+
Added: branches/upstream/libdate-leapyear-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/LICENSE?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/LICENSE (added)
+++ branches/upstream/libdate-leapyear-perl/current/LICENSE Sat Dec 1 11:54:59 2007
@@ -1,0 +1,108 @@
+This package is distributed under the following license:
+
+----------------------------------------------------------------------------
+
+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. The name of the Copyright Holder may not be used to endorse or promote
+products derived from this software without specific prior written permission.
+
+9. 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
+
+
Added: branches/upstream/libdate-leapyear-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/MANIFEST?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/MANIFEST (added)
+++ branches/upstream/libdate-leapyear-perl/current/MANIFEST Sat Dec 1 11:54:59 2007
@@ -1,0 +1,12 @@
+lib/Date/Leapyear.pm
+
+MANIFEST
+Makefile.PL
+README
+ChangeLog
+LICENSE
+
+t/00load.t
+t/01isleap.t
+t/02testmore.t
+
Added: branches/upstream/libdate-leapyear-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/Makefile.PL?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/Makefile.PL (added)
+++ branches/upstream/libdate-leapyear-perl/current/Makefile.PL Sat Dec 1 11:54:59 2007
@@ -1,0 +1,10 @@
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+ 'NAME' => 'Date::Leapyear',
+ 'VERSION_FROM' => 'lib/Date/Leapyear.pm', # finds $VERSION
+ 'PREREQ_PM' => {
+ 'Test::More' => 0,
+ }, # e.g., Module::Name => 1.1
+);
Added: branches/upstream/libdate-leapyear-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/README?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/README (added)
+++ branches/upstream/libdate-leapyear-perl/current/README Sat Dec 1 11:54:59 2007
@@ -1,0 +1,21 @@
+NAME
+ Date::Leapyear - Is a particular year a leap year?
+
+SYNOPSIS
+ use Date::Leapyear;
+ if ( isleap(1945) ) {
+ ...
+ }
+
+DESCRIPTION
+ Date::Leapyear exports one function - isleap - which returns 1 or 0 if a
+ year is leap, or not, respectively.
+
+isleap
+ $true = isleap( 2004 );
+
+ Returns 1 in a leap year, 0 otherwise.
+
+AUTHOR
+ Rich Bowen (rbowen at rcbowen.com)
+
Added: branches/upstream/libdate-leapyear-perl/current/lib/Date/Leapyear.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/lib/Date/Leapyear.pm?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/lib/Date/Leapyear.pm (added)
+++ branches/upstream/libdate-leapyear-perl/current/lib/Date/Leapyear.pm Sat Dec 1 11:54:59 2007
@@ -1,0 +1,51 @@
+# $Header: /home/cvs/date-leapyear/lib/Date/Leapyear.pm,v 1.71 2002/08/30 00:00:25 rbowen Exp $
+package Date::Leapyear;
+use strict;
+
+use Exporter;
+use vars qw(@ISA @EXPORT $VERSION);
+ at ISA = qw(Exporter);
+
+ at EXPORT = qw( isleap );
+$VERSION = ( qw'$Revision: 1.71 $' )[1];
+
+=head1 NAME
+
+Date::Leapyear - Is a particular year a leap year?
+
+=head1 SYNOPSIS
+
+ use Date::Leapyear;
+ if ( isleap(1945) ) {
+ ...
+ }
+
+=head1 DESCRIPTION
+
+Date::Leapyear exports one function - isleap - which returns 1 or 0 if
+a year is leap, or not, respectively.
+
+=head1 isleap
+
+ $true = isleap( 2004 );
+
+Returns 1 in a leap year, 0 otherwise.
+
+=cut
+
+sub isleap {
+ my ($year) = @_;
+ return 1 if (( $year % 400 ) == 0 ); # 400's are leap
+ return 0 if (( $year % 100 ) == 0 ); # Other centuries are not
+ return 1 if (( $year % 4 ) == 0 ); # All other 4's are leap
+ return 0; # Everything else is not
+}
+
+1;
+
+=head1 AUTHOR
+
+Rich Bowen (rbowen at rcbowen.com)
+
+=cut
+
Added: branches/upstream/libdate-leapyear-perl/current/t/00load.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/t/00load.t?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/t/00load.t (added)
+++ branches/upstream/libdate-leapyear-perl/current/t/00load.t Sat Dec 1 11:54:59 2007
@@ -1,0 +1,6 @@
+use Test::More qw(no_plan);
+
+BEGIN {
+ use_ok ('Date::Leapyear');
+}
+
Added: branches/upstream/libdate-leapyear-perl/current/t/01isleap.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/t/01isleap.t?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/t/01isleap.t (added)
+++ branches/upstream/libdate-leapyear-perl/current/t/01isleap.t Sat Dec 1 11:54:59 2007
@@ -1,0 +1,40 @@
+use Test::More qw(no_plan);
+
+BEGIN {
+ use_ok ('Date::Leapyear');
+}
+
+
+# 1900
+is( isleap(1900), 0, '1900 is not leap' );
+
+# 1901
+is( isleap(1901), 0, '1901 is not leap' );
+
+# 1902
+is( isleap(1902), 0, '1902 is not leap' );
+
+# 1903
+is( isleap(1903), 0, '1903 is not leap' );
+
+# 1904
+is( isleap(1904), 1, '1904 is leap' );
+
+# 2000
+is( isleap(2000), 1, '2000 is leap' );
+
+# 2001
+is( isleap(2001), 0, '2001 is not leap' );
+
+# 2004
+is( isleap(2004), 1, '2004 is leap' );
+
+# 1984
+is( isleap(1984), 1, '1984 is leap' );
+
+# 1985
+is( isleap(1985), 0, '1985 is not leap' );
+
+# 1972
+is( isleap(1972), 1, '1972 is leap' );
+
Added: branches/upstream/libdate-leapyear-perl/current/t/02testmore.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdate-leapyear-perl/current/t/02testmore.t?rev=10149&op=file
==============================================================================
--- branches/upstream/libdate-leapyear-perl/current/t/02testmore.t (added)
+++ branches/upstream/libdate-leapyear-perl/current/t/02testmore.t Sat Dec 1 11:54:59 2007
@@ -1,0 +1,201 @@
+use Test::More qw(no_plan);
+
+BEGIN {
+ use_ok ('Date::Leapyear');
+}
+
+ at years = (
+[4 , 1],[8 , 1],[12 , 1],[16 , 1],
+[20 , 1],[24 , 1],[28 , 1],[32 , 1],
+[36 , 1],[40 , 1],[44 , 1],[48 , 1],
+[52 , 1],[56 , 1],[60 , 1],[64 , 1],
+[68 , 1],[72 , 1],[76 , 1],[80 , 1],
+[84 , 1],[88 , 1],[92 , 1],[96 , 1],
+[100 , 0],[104 , 1],[108 , 1],[112 , 1],
+[116 , 1],[120 , 1],[124 , 1],[128 , 1],
+[132 , 1],[136 , 1],[140 , 1],[144 , 1],
+[148 , 1],[152 , 1],[156 , 1],[160 , 1],
+[164 , 1],[168 , 1],[172 , 1],[176 , 1],
+[180 , 1],[184 , 1],[188 , 1],[192 , 1],
+[196 , 1],[200 , 0],[204 , 1],[208 , 1],
+[212 , 1],[216 , 1],[220 , 1],[224 , 1],
+[228 , 1],[232 , 1],[236 , 1],[240 , 1],
+[244 , 1],[248 , 1],[252 , 1],[256 , 1],
+[260 , 1],[264 , 1],[268 , 1],[272 , 1],
+[276 , 1],[280 , 1],[284 , 1],[288 , 1],
+[292 , 1],[296 , 1],[300 , 0],[304 , 1],
+[308 , 1],[312 , 1],[316 , 1],[320 , 1],
+[324 , 1],[328 , 1],[332 , 1],[336 , 1],
+[340 , 1],[344 , 1],[348 , 1],[352 , 1],
+[356 , 1],[360 , 1],[364 , 1],[368 , 1],
+[372 , 1],[376 , 1],[380 , 1],[384 , 1],
+[388 , 1],[392 , 1],[396 , 1],[400 , 1],
+[404 , 1],[408 , 1],[412 , 1],[416 , 1],
+[420 , 1],[424 , 1],[428 , 1],[432 , 1],
+[436 , 1],[440 , 1],[444 , 1],[448 , 1],
+[452 , 1],[456 , 1],[460 , 1],[464 , 1],
+[468 , 1],[472 , 1],[476 , 1],[480 , 1],
+[484 , 1],[488 , 1],[492 , 1],[496 , 1],
+[500 , 0],[504 , 1],[508 , 1],[512 , 1],
+[516 , 1],[520 , 1],[524 , 1],[528 , 1],
+[532 , 1],[536 , 1],[540 , 1],[544 , 1],
+[548 , 1],[552 , 1],[556 , 1],[560 , 1],
+[564 , 1],[568 , 1],[572 , 1],[576 , 1],
+[580 , 1],[584 , 1],[588 , 1],[592 , 1],
+[596 , 1],[600 , 0],[604 , 1],[608 , 1],
+[612 , 1],[616 , 1],[620 , 1],[624 , 1],
+[628 , 1],[632 , 1],[636 , 1],[640 , 1],
+[644 , 1],[648 , 1],[652 , 1],[656 , 1],
+[660 , 1],[664 , 1],[668 , 1],[672 , 1],
+[676 , 1],[680 , 1],[684 , 1],[688 , 1],
+[692 , 1],[696 , 1],[700 , 0],[704 , 1],
+[708 , 1],[712 , 1],[716 , 1],[720 , 1],
+[724 , 1],[728 , 1],[732 , 1],[736 , 1],
+[740 , 1],[744 , 1],[748 , 1],[752 , 1],
+[756 , 1],[760 , 1],[764 , 1],[768 , 1],
+[772 , 1],[776 , 1],[780 , 1],[784 , 1],
+[788 , 1],[792 , 1],[796 , 1],[800 , 1],
+[804 , 1],[808 , 1],[812 , 1],[816 , 1],
+[820 , 1],[824 , 1],[828 , 1],[832 , 1],
+[836 , 1],[840 , 1],[844 , 1],[848 , 1],
+[852 , 1],[856 , 1],[860 , 1],[864 , 1],
+[868 , 1],[872 , 1],[876 , 1],[880 , 1],
+[884 , 1],[888 , 1],[892 , 1],[896 , 1],
+[900 , 0],[904 , 1],[908 , 1],[912 , 1],
+[916 , 1],[920 , 1],[924 , 1],[928 , 1],
+[932 , 1],[936 , 1],[940 , 1],[944 , 1],
+[948 , 1],[952 , 1],[956 , 1],[960 , 1],
+[964 , 1],[968 , 1],[972 , 1],[976 , 1],
+[980 , 1],[984 , 1],[988 , 1],[992 , 1],
+[996 , 1],[1000 , 0],[1004 , 1],[1008 , 1],
+[1012 , 1],[1016 , 1],[1020 , 1],[1024 , 1],
+[1028 , 1],[1032 , 1],[1036 , 1],[1040 , 1],
+[1044 , 1],[1048 , 1],[1052 , 1],[1056 , 1],
+[1060 , 1],[1064 , 1],[1068 , 1],[1072 , 1],
+[1076 , 1],[1080 , 1],[1084 , 1],[1088 , 1],
+[1092 , 1],[1096 , 1],[1100 , 0],[1104 , 1],
+[1108 , 1],[1112 , 1],[1116 , 1],[1120 , 1],
+[1124 , 1],[1128 , 1],[1132 , 1],[1136 , 1],
+[1140 , 1],[1144 , 1],[1148 , 1],[1152 , 1],
+[1156 , 1],[1160 , 1],[1164 , 1],[1168 , 1],
+[1172 , 1],[1176 , 1],[1180 , 1],[1184 , 1],
+[1188 , 1],[1192 , 1],[1196 , 1],[1200 , 1],
+[1204 , 1],[1208 , 1],[1212 , 1],[1216 , 1],
+[1220 , 1],[1224 , 1],[1228 , 1],[1232 , 1],
+[1236 , 1],[1240 , 1],[1244 , 1],[1248 , 1],
+[1252 , 1],[1256 , 1],[1260 , 1],[1264 , 1],
+[1268 , 1],[1272 , 1],[1276 , 1],[1280 , 1],
+[1284 , 1],[1288 , 1],[1292 , 1],[1296 , 1],
+[1300 , 0],[1304 , 1],[1308 , 1],[1312 , 1],
+[1316 , 1],[1320 , 1],[1324 , 1],[1328 , 1],
+[1332 , 1],[1336 , 1],[1340 , 1],[1344 , 1],
+[1348 , 1],[1352 , 1],[1356 , 1],[1360 , 1],
+[1364 , 1],[1368 , 1],[1372 , 1],[1376 , 1],
+[1380 , 1],[1384 , 1],[1388 , 1],[1392 , 1],
+[1396 , 1],[1400 , 0],[1404 , 1],[1408 , 1],
+[1412 , 1],[1416 , 1],[1420 , 1],[1424 , 1],
+[1428 , 1],[1432 , 1],[1436 , 1],[1440 , 1],
+[1444 , 1],[1448 , 1],[1452 , 1],[1456 , 1],
+[1460 , 1],[1464 , 1],[1468 , 1],[1472 , 1],
+[1476 , 1],[1480 , 1],[1484 , 1],[1488 , 1],
+[1492 , 1],[1496 , 1],[1500 , 0],[1504 , 1],
+[1508 , 1],[1512 , 1],[1516 , 1],[1520 , 1],
+[1524 , 1],[1528 , 1],[1532 , 1],[1536 , 1],
+[1540 , 1],[1544 , 1],[1548 , 1],[1552 , 1],
+[1556 , 1],[1560 , 1],[1564 , 1],[1568 , 1],
+[1572 , 1],[1576 , 1],[1580 , 1],[1584 , 1],
+[1588 , 1],[1592 , 1],[1596 , 1],[1600 , 1],
+[1604 , 1],[1608 , 1],[1612 , 1],[1616 , 1],
+[1620 , 1],[1624 , 1],[1628 , 1],[1632 , 1],
+[1636 , 1],[1640 , 1],[1644 , 1],[1648 , 1],
+[1652 , 1],[1656 , 1],[1660 , 1],[1664 , 1],
+[1668 , 1],[1672 , 1],[1676 , 1],[1680 , 1],
+[1684 , 1],[1688 , 1],[1692 , 1],[1696 , 1],
+[1700 , 0],[1704 , 1],[1708 , 1],[1712 , 1],
+[1716 , 1],[1720 , 1],[1724 , 1],[1728 , 1],
+[1732 , 1],[1736 , 1],[1740 , 1],[1744 , 1],
+[1748 , 1],[1752 , 1],[1756 , 1],[1760 , 1],
+[1764 , 1],[1768 , 1],[1772 , 1],[1776 , 1],
+[1780 , 1],[1784 , 1],[1788 , 1],[1792 , 1],
+[1796 , 1],[1800 , 0],[1804 , 1],[1808 , 1],
+[1812 , 1],[1816 , 1],[1820 , 1],[1824 , 1],
+[1828 , 1],[1832 , 1],[1836 , 1],[1840 , 1],
+[1844 , 1],[1848 , 1],[1852 , 1],[1856 , 1],
+[1860 , 1],[1864 , 1],[1868 , 1],[1872 , 1],
+[1876 , 1],[1880 , 1],[1884 , 1],[1888 , 1],
+[1892 , 1],[1896 , 1],[1900 , 0],[1904 , 1],
+[1908 , 1],[1912 , 1],[1916 , 1],[1920 , 1],
+[1924 , 1],[1928 , 1],[1932 , 1],[1936 , 1],
+[1940 , 1],[1944 , 1],[1948 , 1],[1952 , 1],
+[1956 , 1],[1960 , 1],[1964 , 1],[1968 , 1],
+[1972 , 1],[1976 , 1],[1980 , 1],[1984 , 1],
+[1988 , 1],[1992 , 1],[1996 , 1],[2000 , 1],
+[2004 , 1],[2008 , 1],[2012 , 1],[2016 , 1],
+[2020 , 1],[2024 , 1],[2028 , 1],[2032 , 1],
+[2036 , 1],[2040 , 1],[2044 , 1],[2048 , 1],
+[2052 , 1],[2056 , 1],[2060 , 1],[2064 , 1],
+[2068 , 1],[2072 , 1],[2076 , 1],[2080 , 1],
+[2084 , 1],[2088 , 1],[2092 , 1],[2096 , 1],
+[2100 , 0],[2104 , 1],[2108 , 1],[2112 , 1],
+[2116 , 1],[2120 , 1],[2124 , 1],[2128 , 1],
+[2132 , 1],[2136 , 1],[2140 , 1],[2144 , 1],
+[2148 , 1],[2152 , 1],[2156 , 1],[2160 , 1],
+[2164 , 1],[2168 , 1],[2172 , 1],[2176 , 1],
+[2180 , 1],[2184 , 1],[2188 , 1],[2192 , 1],
+[2196 , 1],[2200 , 0],[2204 , 1],[2208 , 1],
+[2212 , 1],[2216 , 1],[2220 , 1],[2224 , 1],
+[2228 , 1],[2232 , 1],[2236 , 1],[2240 , 1],
+[2244 , 1],[2248 , 1],[2252 , 1],[2256 , 1],
+[2260 , 1],[2264 , 1],[2268 , 1],[2272 , 1],
+[2276 , 1],[2280 , 1],[2284 , 1],[2288 , 1],
+[2292 , 1],[2296 , 1],[2300 , 0],[2304 , 1],
+[2308 , 1],[2312 , 1],[2316 , 1],[2320 , 1],
+[2324 , 1],[2328 , 1],[2332 , 1],[2336 , 1],
+[2340 , 1],[2344 , 1],[2348 , 1],[2352 , 1],
+[2356 , 1],[2360 , 1],[2364 , 1],[2368 , 1],
+[2372 , 1],[2376 , 1],[2380 , 1],[2384 , 1],
+[2388 , 1],[2392 , 1],[2396 , 1],[2400 , 1],
+[2404 , 1],[2408 , 1],[2412 , 1],[2416 , 1],
+[2420 , 1],[2424 , 1],[2428 , 1],[2432 , 1],
+[2436 , 1],[2440 , 1],[2444 , 1],[2448 , 1],
+[2452 , 1],[2456 , 1],[2460 , 1],[2464 , 1],
+[2468 , 1],[2472 , 1],[2476 , 1],[2480 , 1],
+[2484 , 1],[2488 , 1],[2492 , 1],[2496 , 1],
+[2500 , 0],[2504 , 1],[2508 , 1],[2512 , 1],
+[2516 , 1],[2520 , 1],[2524 , 1],[2528 , 1],
+[2532 , 1],[2536 , 1],[2540 , 1],[2544 , 1],
+[2548 , 1],[2552 , 1],[2556 , 1],[2560 , 1],
+[2564 , 1],[2568 , 1],[2572 , 1],[2576 , 1],
+[2580 , 1],[2584 , 1],[2588 , 1],[2592 , 1],
+[2596 , 1],[2600 , 0],[2604 , 1],[2608 , 1],
+[2612 , 1],[2616 , 1],[2620 , 1],[2624 , 1],
+[2628 , 1],[2632 , 1],[2636 , 1],[2640 , 1],
+[2644 , 1],[2648 , 1],[2652 , 1],[2656 , 1],
+[2660 , 1],[2664 , 1],[2668 , 1],[2672 , 1],
+[2676 , 1],[2680 , 1],[2684 , 1],[2688 , 1],
+[2692 , 1],[2696 , 1],[2700 , 0],[2704 , 1],
+[2708 , 1],[2712 , 1],[2716 , 1],[2720 , 1],
+[2724 , 1],[2728 , 1],[2732 , 1],[2736 , 1],
+[2740 , 1],[2744 , 1],[2748 , 1],[2752 , 1],
+[2756 , 1],[2760 , 1],[2764 , 1],[2768 , 1],
+[2772 , 1],[2776 , 1],[2780 , 1],[2784 , 1],
+[2788 , 1],[2792 , 1],[2796 , 1],[2800 , 1],
+[2804 , 1],[2808 , 1],[2812 , 1],[2816 , 1],
+[2820 , 1],[2824 , 1],[2828 , 1],[2832 , 1],
+[2836 , 1],[2840 , 1],[2844 , 1],[2848 , 1],
+[2852 , 1],[2856 , 1],[2860 , 1],[2864 , 1],
+[2868 , 1],[2872 , 1],[2876 , 1],[2880 , 1],
+[2884 , 1],[2888 , 1],[2892 , 1],[2896 , 1],
+[2900 , 0],[2904 , 1],[2908 , 1],[2912 , 1],
+[2916 , 1],[2920 , 1],[2924 , 1],[2928 , 1],
+[2932 , 1],[2936 , 1],[2940 , 1],[2944 , 1],
+[2948 , 1],[2952 , 1],[2956 , 1],[2960 , 1],
+[2964 , 1],[2968 , 1],[2972 , 1],[2976 , 1],
+[2980 , 1],[2984 , 1],[2988 , 1],[2992 , 1],
+[2996 , 1],[3000 , 0],
+);
+
+foreach my $year (@years) {
+ is( isleap($year->[0]), $year->[1], "Year $year->[0]" );
+}
+
More information about the Pkg-perl-cvs-commits
mailing list