From 4b184208354e9f291f10a7722384ec7f3b83822a Mon Sep 17 00:00:00 2001 From: Adam Kennedy Date: Tue, 7 Apr 2009 13:36:38 +0000 Subject: [PATCH] Updating version to a production release --- Changes | 3 +- lib/DBD/SQLite.pm | 2 +- t/lib/Test.pm | 90 +++++++++++++++++++++++------------------------ 3 files changed, 48 insertions(+), 47 deletions(-) diff --git a/Changes b/Changes index a368838..8b9c9f8 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,7 @@ Changes for Perl extension DBD-SQLite. -1.19_11 to be released +1.20 to be released + - Moving to the first production release of the new era. - Check DBI version in Makefile.PL (CHORNY) - Bundling Test::NoWarings into /inc to remove a dependency (ADAMK) - Correcting use 5.00503 to 5.006 in SQLite.pm (ADAMK) diff --git a/lib/DBD/SQLite.pm b/lib/DBD/SQLite.pm index 689dc53..3a8fb62 100644 --- a/lib/DBD/SQLite.pm +++ b/lib/DBD/SQLite.pm @@ -8,7 +8,7 @@ use DynaLoader (); use vars qw($VERSION @ISA); use vars qw{$err $errstr $drh $sqlite_version}; BEGIN { - $VERSION = '1.19_11'; + $VERSION = '1.20'; @ISA = ('DynaLoader'); # Driver singleton diff --git a/t/lib/Test.pm b/t/lib/Test.pm index 203bf22..c9661da 100644 --- a/t/lib/Test.pm +++ b/t/lib/Test.pm @@ -1,45 +1,45 @@ -package t::lib::Test; - -# Support code for DBD::SQLite tests - -use strict; -use Exporter (); -use File::Spec (); -use Test::More (); - -use vars qw{$VERSION @ISA @EXPORT}; -BEGIN { - $VERSION = '1.19_11'; - @ISA = qw{ Exporter }; - @EXPORT = qw{ connect_ok }; - - # Allow tests to load modules bundled in /inc - unshift @INC, 'inc'; -} - -# Always load the DBI module -use DBI (); - -# Delete temporary files -sub clean { - unlink( 'foo' ); - unlink( 'foo-journal' ); -} - -# Clean up temporary test files both at the beginning and end of the -# test script. -BEGIN { clean() } -END { clean() } - -# A simplified connect function for the most common case -sub connect_ok { - my @params = ( 'dbi:SQLite:dbname=foo', '', '' ); - if ( @_ ) { - push @params, { @_ }; - } - my $dbh = DBI->connect( @params ); - Test::More::isa_ok( $dbh, 'DBI::db' ); - return $dbh; -} - -1; +package t::lib::Test; + +# Support code for DBD::SQLite tests + +use strict; +use Exporter (); +use File::Spec (); +use Test::More (); + +use vars qw{$VERSION @ISA @EXPORT}; +BEGIN { + $VERSION = '1.20'; + @ISA = qw{ Exporter }; + @EXPORT = qw{ connect_ok }; + + # Allow tests to load modules bundled in /inc + unshift @INC, 'inc'; +} + +# Always load the DBI module +use DBI (); + +# Delete temporary files +sub clean { + unlink( 'foo' ); + unlink( 'foo-journal' ); +} + +# Clean up temporary test files both at the beginning and end of the +# test script. +BEGIN { clean() } +END { clean() } + +# A simplified connect function for the most common case +sub connect_ok { + my @params = ( 'dbi:SQLite:dbname=foo', '', '' ); + if ( @_ ) { + push @params, { @_ }; + } + my $dbh = DBI->connect( @params ); + Test::More::isa_ok( $dbh, 'DBI::db' ); + return $dbh; +} + +1;