Re: Announce: DBD::ADO 2.7

[Steffen Goeldner]

Steffen Goeldner wrote:
> 
[...]
> 
> I'm not sure if we need "use_ok('DBD::ADO')" in all cases.
> Thus, the BEGIN {} block could be dropped.

Now I'm sure ;-)


Steffen
diff -u t-orig/09null.t t/09null.t
--- t-orig/09null.t     Fri Aug 22 00:37:46 2003
+++ t/09null.t  Fri Aug 22 11:24:32 2003
@@ -14,8 +14,6 @@
        plan skip_all => 'Cannot test without DB info';
 }
 
-BEGIN { use_ok('DBD::ADO') }
-
 my $dbh = DBI->connect or die "Connect failed: $DBI::errstr\n";
 ok ( defined $dbh, 'Connection');
 
diff -u t-orig/11curs.t t/11curs.t
--- t-orig/11curs.t     Fri Aug 22 04:21:06 2003
+++ t/11curs.t  Fri Aug 22 11:25:03 2003
@@ -16,9 +16,6 @@
        plan skip_all => 'Cannot test without DB info';
 }
 
-
-BEGIN { use_ok( 'DBD::ADO' ); }
-
 my $non_supported = '-2146825037';
 
 my ($longstr) = qq{THIS IS A STRING LONGER THAN 80 CHARS.  THIS SHOULD BE CHECKED FOR 
TRUNCATION AND COMPARED WITH ITSELF.};
diff -u t-orig/15func.t t/15func.t
--- t-orig/15func.t     Thu Aug 21 06:09:54 2003
+++ t/15func.t  Fri Aug 22 11:32:24 2003
@@ -12,13 +12,12 @@
 my ($pf, $sf);
 
 use Test::More;
+
 if (defined $ENV{DBI_DSN}) {
-       plan tests => 49;
+       plan tests => 48;
 } else {
        plan skip_all => 'Cannot test without DB info';
 }
-
-BEGIN { use_ok( 'DBD::ADO' ); }
 
 my $non_supported = '-2146825037';
 
diff -u t-orig/17ddtbl.t t/17ddtbl.t
--- t-orig/17ddtbl.t    Fri Aug 22 04:56:44 2003
+++ t/17ddtbl.t Fri Aug 22 11:25:22 2003
@@ -14,8 +14,6 @@
        plan skip_all => 'Cannot test without DB info';
 }
 
-BEGIN { use_ok('DBD::ADO') }
-
 my $dbh = DBI->connect or die "Connect failed: $DBI::errstr\n";
 ok ( defined $dbh, 'Connection');
 
diff -u t-orig/19ddpk.t t/19ddpk.t
--- t-orig/19ddpk.t     Fri Aug 22 04:48:56 2003
+++ t/19ddpk.t  Fri Aug 22 11:25:32 2003
@@ -13,8 +13,6 @@
        plan skip_all => 'Cannot test without DB info';
 }
 
-BEGIN { use_ok('DBD::ADO') }
-
 my $dbh = DBI->connect or die "Connect failed: $DBI::errstr\n";
 ok ( defined $dbh, 'Connection');
 
diff -u t-orig/23ddcol.t t/23ddcol.t
--- t-orig/23ddcol.t    Fri Aug 22 04:50:20 2003
+++ t/23ddcol.t Fri Aug 22 11:25:42 2003
@@ -14,8 +14,6 @@
        plan skip_all => 'Cannot test without DB info';
 }
 
-BEGIN { use_ok('DBD::ADO') }
-
 my $dbh = DBI->connect or die "Connect failed: $DBI::errstr\n";
 ok ( defined $dbh, 'Connection');