Thomas A. Lowery wrote:
>
> DBD::ADO Release 2.7 is available from http://stlowery.net/DBD-ADO-2.7.tar.gz
...
t\09null......You tried to run a test without a plan! Gotta have a plan.
t\11curs......You tried to run a test without a plan! Gotta have a plan.
t\15func......You tried to run a test without a plan! Gotta have a plan.
t\17ddtbl.....You tried to run a test without a plan! Gotta have a plan.
t\19ddpk......You tried to run a test without a plan! Gotta have a plan.
t\23ddcol.....You tried to run a test without a plan! Gotta have a plan.
...
It seems that 'plan()' is called to late.
This works for me:
BEGIN
{
if (defined $ENV{DBI_DSN}) {
plan tests => 11;
} else {
plan skip_all => 'Cannot test without DB info';
}
use_ok('DBD::ADO')
}
I'm not sure if we need "use_ok('DBD::ADO')" in all cases.
Thus, the BEGIN {} block could be dropped.
Steffen
