"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/f000.t" between
Date-Calc-6.3.tar.gz and Date-Calc-6.4.tar.gz

About: Date-Calc - Gregorian calendar date calculations (C library and Perl module).

f000.t  (Date-Calc-6.3):f000.t  (Date-Calc-6.4)
skipping to change at line 62 skipping to change at line 62
eval eval
{ {
require Date::Calc; require Date::Calc;
Date::Calc->import( qw(:all) ); Date::Calc->import( qw(:all) );
}; };
unless ($@) unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ($Date::Calc::VERSION eq '6.3') if ($Date::Calc::VERSION eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if (&Date::Calc::Version() eq '6.3') if (&Date::Calc::Version() eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
unless ($Date::Calc::XS_OK || 0) unless ($Date::Calc::XS_OK || 0)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ($Date::Calc::XS_OK || 0) if ($Date::Calc::XS_OK || 0)
{ {
if ($Date::Calc::XS::VERSION >= '6.2') if ($Date::Calc::XS::VERSION >= '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if (&Date::Calc::XS::Version() >= '6.2') if (&Date::Calc::XS::Version() >= '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
} }
else else
{ {
if ($Date::Calc::PP::VERSION eq '6.3') if ($Date::Calc::PP::VERSION eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if (&Date::Calc::PP::Version() eq '6.3') if (&Date::Calc::PP::Version() eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
} }
eval eval
{ {
require Date::Calc::Object; require Date::Calc::Object;
Date::Calc::Object->import( qw(:all) ); Date::Calc::Object->import( qw(:all) );
}; };
unless ($@) unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ($Date::Calc::Object::VERSION eq '6.3') if ($Date::Calc::Object::VERSION eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval eval
{ {
require Date::Calendar::Profiles; require Date::Calendar::Profiles;
Date::Calendar::Profiles->import( qw( $Profiles ) ); Date::Calendar::Profiles->import( qw( $Profiles ) );
}; };
unless ($@) unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ($Date::Calendar::Profiles::VERSION eq '6.3') if ($Date::Calendar::Profiles::VERSION eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
exit 0 if $n > $tests; exit 0 if $n > $tests;
if ($Bit::Vector::VERSION >= '7.1') if ($Bit::Vector::VERSION >= '7.1')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if (&Bit::Vector::Version() >= '7.1') if (&Bit::Vector::Version() >= '7.1')
skipping to change at line 138 skipping to change at line 138
eval eval
{ {
require Date::Calendar::Year; require Date::Calendar::Year;
Date::Calendar::Year->import( qw(:all) ); Date::Calendar::Year->import( qw(:all) );
}; };
unless ($@) unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ($Date::Calendar::Year::VERSION eq '6.3') if ($Date::Calendar::Year::VERSION eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
eval eval
{ {
require Date::Calendar; require Date::Calendar;
Date::Calendar::Year->import( qw() ); Date::Calendar::Year->import( qw() );
}; };
unless ($@) unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
if ($Date::Calendar::VERSION eq '6.3') if ($Date::Calendar::VERSION eq '6.4')
{print "ok $n\n";} else {print "not ok $n\n";} {print "ok $n\n";} else {print "not ok $n\n";}
$n++; $n++;
__END__ __END__
 End of changes. 10 change blocks. 
10 lines changed or deleted 10 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS