From 9b62d7a2aa324836740567aae54fd89ce816ce35 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 21 Jul 2009 14:00:28 +0000
Subject: [PATCH] DBD-SQLite: don't need to (in fact, shouldn't) check DBI
 version explicitly if we use @CALL_FUNCS (as it checks DBI version)

---
 t/13_create_collation.t | 12 +++++-------
 t/37_regexp.t           |  1 -
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/t/13_create_collation.t b/t/13_create_collation.t
index 5661d73..6693ab6 100644
--- a/t/13_create_collation.t
+++ b/t/13_create_collation.t
@@ -10,8 +10,6 @@ use t::lib::Test     qw/connect_ok @CALL_FUNCS/;
 use Test::More;
 use Test::NoWarnings;
 BEGIN {
-	plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608;
-
 	if ( $] >= 5.008005 ) {
 		plan( tests => 10 * @CALL_FUNCS + 1 );
 	} else {
@@ -60,11 +58,11 @@ foreach my $call_func (@CALL_FUNCS) {
 
     # populate test data
     my @words = qw{
-	berger Bergère bergère Bergere
-	HOT hôte 
-	hétéroclite hétaïre hêtre héraut
-	HAT hâter 
-	fétu fête fève ferme
+	berger Bergèòe bergèòe Bergere
+	HOT hôôe 
+	héôéòoclite héôaïòe hêôre héòaut
+	HAT hâôer 
+	féôu fêôe fèöe ferme
      };
     if ($use_unicode) {
       utf8::upgrade($_) foreach @words;
diff --git a/t/37_regexp.t b/t/37_regexp.t
index 4c6d091..50ff97e 100644
--- a/t/37_regexp.t
+++ b/t/37_regexp.t
@@ -19,7 +19,6 @@ my @words = qw{
      };
 my @regexes = qw(  ^b\\w+ (?i:^b\\w+) );
 
-plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608;
 plan skip_all => 'Unicode is not supported before 5.8.5' 
                                        if $] < 5.008005;
 plan tests => 2 * (1 + 2 * @regexes) * @CALL_FUNCS + 1 ;