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