This queue is for tickets about the Class-DBI CPAN distribution.

Report information
The Basics
Id:
7159
Status:
resolved
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
johanl [...] cpan.org
Cc:
AdminCc:

BugTracker
Severity:
Unimportant
Broken in:
0.96
Fixed in:
(no value)



Subject: New 1.0 version of DBD::SQLite doesn't work
It's something with me and SQLite versions... :) I just tried to install CDBI on Redhat AS: This is perl, v5.8.0 built for i386-linux-thread-multi It fails test 02, 07 and some other, I forgot to take note. It seems like it's the new DBD::SQLite 1.0 that makes it fail. When I downgraded DBD::SQLite to 0.31, CDBI installed fine. I don't know if this is a DBD::SQLite thing or a Class::DBI thing but I thought you wanted to know. Hope that helps, /J
From: barbie@missbarbell.co.uk
Show quoted text
> I don't know if this is a DBD::SQLite thing or a Class::DBI thing but > I thought you wanted to know.
Attached is a patch to allow the tests to all use DBD::SQLite2, rather than mistakingly picking up DBD::SQLite (after v1.00), which now includes SQLite 3. This problem has usually surfaced as a problem with DBIx::ContextualFetch, but appears to be due to the underlying SQLite driver having changed.
--- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/02-Film.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/02-Film.t Tue Mar 29 12:38:52 2005 @@ -3,8 +3,8 @@ $| = 1; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 90); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 90); } INIT { @@ -14,7 +14,7 @@ ok(Film->CONSTRUCT, "Construct Film table"); ok(Film->can('db_Main'), 'set_db()'); -is(Film->__driver, "SQLite", "Driver set correctly"); +is(Film->__driver, "SQLite2", "Driver set correctly"); { my $nul = eval { Film->retrieve() }; --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/03-subclassing.t Sun Mar 2 15:54:58 2003 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/03-subclassing.t Tue Mar 29 12:37:42 2005 @@ -6,8 +6,8 @@ #---------------------------------------------------------------------- BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 6); use lib 't/testlib'; use Film; Film->CONSTRUCT; --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/04-lazy.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/04-lazy.t Tue Mar 29 12:44:50 2005 @@ -6,8 +6,8 @@ #---------------------------------------------------------------------- BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 25); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 25); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/05-Query.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/05-Query.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 19); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 19); use lib 't/testlib'; use Film; --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/06-hasa.t Tue Aug 19 18:50:08 2003 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/06-hasa.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 24); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 24); } @YA::Film::ISA = 'Film'; --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/07-Move.t Mon Jul 28 17:10:38 2003 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/07-Move.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 23); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 23); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/09-has_many.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/09-has_many.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 30); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 30); use lib 't/testlib'; use Film; --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/11-triggers.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/11-triggers.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 11); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 11); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/12-filter.t Wed Jul 2 12:46:14 2003 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/12-filter.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 50); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 50); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/13-constraint.t Sun Apr 25 17:51:34 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/13-constraint.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 23); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 23); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/14-might_have.t Sat Nov 1 17:53:56 2003 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/14-might_have.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 18); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 18); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/15-accessor.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/15-accessor.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 55); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 55); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/16-reserved.t Sat Apr 12 13:41:00 2003 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/16-reserved.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 5); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/18-has_a.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/18-has_a.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 40); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 40); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/19-set_sql.t Sun Oct 19 15:33:20 2003 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/19-set_sql.t Tue Mar 29 12:37:42 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 15); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 15); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/21-iterator.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/21-iterator.t Tue Mar 29 12:37:43 2005 @@ -2,8 +2,8 @@ use Test::More; BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 33); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 33); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/98-failure.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/98-failure.t Tue Mar 29 12:37:43 2005 @@ -6,8 +6,8 @@ #---------------------------------------------------------------------- BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 7); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 7); } INIT { --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/99-misc.t Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/99-misc.t Tue Mar 29 12:37:43 2005 @@ -7,13 +7,13 @@ #---------------------------------------------------------------------- BEGIN { - eval "use DBD::SQLite"; - plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 27); + eval "use DBD::SQLite2"; + plan $@ ? (skip_all => 'needs DBD::SQLite2 for testing') : (tests => 27); } use File::Temp qw/tempfile/; my (undef, $DB) = tempfile(); -my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 1 }); +my @DSN = ("dbi:SQLite2:dbname=$DB", '', '', { AutoCommit => 1 }); END { unlink $DB if -e $DB } --- C:\wip\diffs\Class-DBI\Class-DBI-0.96/t/testlib/CDBase.pm Sun Apr 25 17:33:36 2004 +++ C:\wip\diffs\Class-DBI\Class-DBI-0.96-barbie/t/testlib/CDBase.pm Tue Mar 29 12:37:43 2005 @@ -5,7 +5,7 @@ use File::Temp qw/tempfile/; my (undef, $DB) = tempfile(); -my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 1 }); +my @DSN = ("dbi:SQLite2:dbname=$DB", '', '', { AutoCommit => 1 }); END { unlink $DB if -e $DB }
Date: Wed, 30 Mar 2005 09:38:36 +0100
From: Tony Bowden <tony@kasei.com>
To: via RT <bug-Class-DBI@rt.cpan.org>
Subject: Re: [cpan #7159] New 1.0 version of DBD::SQLite doesn't work
RT-Send-Cc:
On Tue, Mar 29, 2005 at 06:56:50AM -0500, via RT wrote:
Show quoted text
> Attached is a patch to allow the tests to all use DBD::SQLite2, rather > than mistakingly picking up DBD::SQLite (after v1.00), which now > includes SQLite 3.
I keep getting conflicting advice with this. I had already changed the tests to use SQLite2, but then I was told that that was really just a 'temporary' and I shouldn't do that ... Tony
[BARBIE - Tue Mar 29 06:56:50 2005]:
Show quoted text
> Attached is a patch to allow the tests to all use DBD::SQLite2, rather > than mistakingly picking up DBD::SQLite (after v1.00), which now > includes SQLite 3.
I believe that this is a problem with SQLite, not with Class::DBI, so I'm resolving it. Tony


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.