[svn:dbi] rev 346 - dbi/trunk/t

[stvn]

Author: stvn
Date: Sat May 15 08:41:10 2004
New Revision: 346

Modified:
   dbi/trunk/t/05thrclone.t
Log:
possibly fixing test issue

Modified: dbi/trunk/t/05thrclone.t
==============================================================================
--- dbi/trunk/t/05thrclone.t    (original)
+++ dbi/trunk/t/05thrclone.t    Sat May 15 08:41:10 2004
@@ -5,28 +5,25 @@
 use strict;
 use Config qw(%Config);
 
-use Test::More;
-
 BEGIN {
+    use Test::More;
        if (!$Config{useithreads} || $] < 5.008) {
                plan skip_all => "this $^O perl $] not configured to support iThreads";
        }
-       else {
-               plan tests => 12;
-       }
-}
-
-BEGIN {
-       use_ok('DBI');
 }
 
 use threads;
+use Test::More tests => 11;
 
 {
     package threads_sub;
     use base qw(threads);
 }
 
+BEGIN {
+       use_ok('DBI');
+}
+
 $DBI::neat_maxlen = 12345;
 cmp_ok($DBI::neat_maxlen, '==', 12345, '... assignment of neat_maxlen was 
successful');