1#!perl -w 2 3BEGIN { eval { require bytes; }; } 4use strict; 5no strict "vars"; 6 7BEGIN { $Date::Calc::XS_DISABLE = $Date::Calc::XS_DISABLE = 1; } 8 9# ====================================================================== 10# $version = $Carp::Clan::VERSION; 11# $version = $Date::Calc::VERSION; 12# $version = &Date::Calc::Version(); 13# $version = $Date::Calc::Object::VERSION; 14# $version = $Date::Calendar::Profiles::VERSION; 15# $version = $Date::Calendar::Year::VERSION; 16# $version = $Date::Calendar::VERSION; 17# ====================================================================== 18 19$Carp::Clan::VERSION = $Carp::Clan::VERSION = 0; 20$Date::Calc::XS_OK = $Date::Calc::XS_OK = 0; 21$Date::Calc::VERSION = $Date::Calc::VERSION = 0; 22$Date::Calc::PP::VERSION = $Date::Calc::PP::VERSION = 0; 23$Date::Calc::XS::VERSION = $Date::Calc::XS::VERSION = 0; 24$Date::Calc::Object::VERSION = $Date::Calc::Object::VERSION = 0; 25$Date::Calendar::Profiles::VERSION = $Date::Calendar::Profiles::VERSION = 0; 26$Date::Calendar::Year::VERSION = $Date::Calendar::Year::VERSION = 0; 27$Date::Calendar::VERSION = $Date::Calendar::VERSION = 0; 28$Bit::Vector::VERSION = $Bit::Vector::VERSION = 0; 29 30$tests = 12; 31 32eval { require Bit::Vector; }; 33 34unless ($@) { $tests += 6; } 35 36print "1..$tests\n"; 37 38$n = 1; 39 40eval 41{ 42 require Carp::Clan; 43 Carp::Clan->import( qw(^Date::) ); 44}; 45unless ($@) 46{print "ok $n\n";} else {print "not ok $n\n";} 47$n++; 48 49if ($Carp::Clan::VERSION >= 5.3) 50{print "ok $n\n";} else {print "not ok $n\n";} 51$n++; 52 53eval 54{ 55 require Date::Calc; 56 Date::Calc->import( qw(:all) ); 57}; 58unless ($@) 59{print "ok $n\n";} else {print "not ok $n\n";} 60$n++; 61 62if ($Date::Calc::VERSION eq '6.4') 63{print "ok $n\n";} else {print "not ok $n\n";} 64$n++; 65 66if (&Date::Calc::Version() eq '6.4') 67{print "ok $n\n";} else {print "not ok $n\n";} 68$n++; 69 70unless ($Date::Calc::XS_OK || 0) 71{print "ok $n\n";} else {print "not ok $n\n";} 72$n++; 73 74if ($Date::Calc::XS_OK || 0) 75{ 76 if ($Date::Calc::XS::VERSION >= '6.4') 77 {print "ok $n\n";} else {print "not ok $n\n";} 78 $n++; 79 if (&Date::Calc::XS::Version() >= '6.4') 80 {print "ok $n\n";} else {print "not ok $n\n";} 81 $n++; 82} 83else 84{ 85 if ($Date::Calc::PP::VERSION eq '6.4') 86 {print "ok $n\n";} else {print "not ok $n\n";} 87 $n++; 88 if (&Date::Calc::PP::Version() eq '6.4') 89 {print "ok $n\n";} else {print "not ok $n\n";} 90 $n++; 91} 92 93eval 94{ 95 require Date::Calc::Object; 96 Date::Calc::Object->import( qw(:all) ); 97}; 98unless ($@) 99{print "ok $n\n";} else {print "not ok $n\n";} 100$n++; 101 102if ($Date::Calc::Object::VERSION eq '6.4') 103{print "ok $n\n";} else {print "not ok $n\n";} 104$n++; 105 106eval 107{ 108 require Date::Calendar::Profiles; 109 Date::Calendar::Profiles->import( qw( $Profiles ) ); 110}; 111unless ($@) 112{print "ok $n\n";} else {print "not ok $n\n";} 113$n++; 114 115if ($Date::Calendar::Profiles::VERSION eq '6.4') 116{print "ok $n\n";} else {print "not ok $n\n";} 117$n++; 118 119exit 0 if $n > $tests; 120 121if ($Bit::Vector::VERSION >= '7.1') 122{print "ok $n\n";} else {print "not ok $n\n";} 123$n++; 124 125if (&Bit::Vector::Version() >= '7.1') 126{print "ok $n\n";} else {print "not ok $n\n";} 127$n++; 128 129eval 130{ 131 require Date::Calendar::Year; 132 Date::Calendar::Year->import( qw(:all) ); 133}; 134unless ($@) 135{print "ok $n\n";} else {print "not ok $n\n";} 136$n++; 137 138if ($Date::Calendar::Year::VERSION eq '6.4') 139{print "ok $n\n";} else {print "not ok $n\n";} 140$n++; 141 142eval 143{ 144 require Date::Calendar; 145 Date::Calendar::Year->import( qw() ); 146}; 147unless ($@) 148{print "ok $n\n";} else {print "not ok $n\n";} 149$n++; 150 151if ($Date::Calendar::VERSION eq '6.4') 152{print "ok $n\n";} else {print "not ok $n\n";} 153$n++; 154 155__END__ 156 157