Author: timbo
Date: Wed Jan 24 15:12:38 2007
New Revision: 8696
Added:
dbi/trunk/t/65transact.t
Modified:
dbi/trunk/Changes (contents, props changed)
dbi/trunk/DBI.pm (contents, props changed)
dbi/trunk/lib/DBD/DBM.pm (props changed)
dbi/trunk/lib/DBD/ExampleP.pm (contents, props changed)
dbi/trunk/lib/DBD/File.pm (props changed)
dbi/trunk/lib/DBD/Forward.pm (contents, props changed)
dbi/trunk/lib/DBD/Forward/Transport/Base.pm (contents, props changed)
dbi/trunk/lib/DBD/Forward/Transport/null.pm (contents, props changed)
dbi/trunk/lib/DBD/Multiplex.pm (contents, props changed)
dbi/trunk/lib/DBD/Multiplex/Logic/Default.pm (props changed)
dbi/trunk/lib/DBD/NullP.pm (contents, props changed)
dbi/trunk/lib/DBD/Proxy.pm (props changed)
dbi/trunk/lib/DBD/Sponge.pm (contents, props changed)
dbi/trunk/lib/DBI/Const/GetInfo/ANSI.pm (contents, props changed)
dbi/trunk/lib/DBI/Const/GetInfo/ODBC.pm (contents, props changed)
dbi/trunk/lib/DBI/Const/GetInfoReturn.pm (contents, props changed)
dbi/trunk/lib/DBI/Const/GetInfoType.pm (contents, props changed)
dbi/trunk/lib/DBI/DBD.pm (contents, props changed)
dbi/trunk/lib/DBI/DBD/Metadata.pm (contents, props changed)
dbi/trunk/lib/DBI/FAQ.pm (contents, props changed)
dbi/trunk/lib/DBI/Forward/Execute.pm (contents, props changed)
dbi/trunk/lib/DBI/Forward/Request.pm (contents, props changed)
dbi/trunk/lib/DBI/Forward/Response.pm (contents, props changed)
dbi/trunk/lib/DBI/Forward/Transport/Base.pm (contents, props changed)
dbi/trunk/lib/DBI/Profile.pm (contents, props changed)
dbi/trunk/lib/DBI/ProfileData.pm (contents, props changed)
dbi/trunk/lib/DBI/ProfileDumper.pm (contents, props changed)
dbi/trunk/lib/DBI/ProfileDumper/Apache.pm (contents, props changed)
dbi/trunk/lib/DBI/ProfileSubs.pm (contents, props changed)
dbi/trunk/lib/DBI/ProxyServer.pm (props changed)
dbi/trunk/lib/DBI/PurePerl.pm (contents, props changed)
dbi/trunk/lib/DBI/SQL/Nano.pm (contents, props changed)
dbi/trunk/lib/DBI/W32ODBC.pm (contents, props changed)
dbi/trunk/lib/Win32/DBIODBC.pm (props changed)
dbi/trunk/test.pl (contents, props changed)
Log:
Added missing t/65transact.t
Mass update to VERSION numbers.
Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes (original)
+++ dbi/trunk/Changes Wed Jan 24 15:12:38 2007
@@ -2,6 +2,8 @@
DBI::Changes - List of significant changes to the DBI
+(As of $Date:$ $Revision$)
+
=cut
XXX document DBD::Forward
@@ -25,12 +27,13 @@
and Dean Arnold.
Added new DBD::Forward 'stateless proxy' driver and framework,
- and the DBI test suite is now also executed via DBD::Forward.
+ and the DBI test suite is now also executed via DBD::Forward,
+ and DBD::Forward+DBI::PurePerl, in addition to DBI::PurePerl.
+ Added ability for trace() to support filehandle argument,
+ including tracing into a string, thanks to Dean Arnold.
Added ability for drivers to implement func() method
so proxy drivers can proxy the func method itself.
Added SQL_BIGINT type code (resolved to the ODBC/JDBC value (-5))
- Added ability for trace() to support filehandle argument,
- including tracing into a string, thanks to Dean Arnold.
=head2 Changes in DBI 1.53 (svn rev 7995), 31st October 2006
Modified: dbi/trunk/DBI.pm
==============================================================================
--- dbi/trunk/DBI.pm (original)
+++ dbi/trunk/DBI.pm Wed Jan 24 15:12:38 2007
@@ -1,7 +1,7 @@
# $Id$
# vim: ts=8:sw=4
#
-# Copyright (c) 1994-2004 Tim Bunce Ireland
+# Copyright (c) 1994-2007 Tim Bunce Ireland
#
# See COPYRIGHT section in pod text below for usage and distribution rights.
#
@@ -9,7 +9,7 @@
require 5.006_00;
BEGIN {
-$DBI::VERSION = "1.53"; # ==> ALSO update the version in the pod text below!
+$DBI::VERSION = "1.54"; # ==> ALSO update the version in the pod text below!
}
=head1 NAME
@@ -120,7 +120,8 @@
=head2 NOTES
-This is the DBI specification that corresponds to the DBI version 1.53.
+This is the DBI specification that corresponds to the DBI version 1.54
+($Revision:$).
The DBI is evolving at a steady pace, so it's good to check that
you have the latest copy.
Modified: dbi/trunk/lib/DBD/ExampleP.pm
==============================================================================
--- dbi/trunk/lib/DBD/ExampleP.pm (original)
+++ dbi/trunk/lib/DBD/ExampleP.pm Wed Jan 24 15:12:38 2007
@@ -6,7 +6,8 @@
use DBI qw(:sql_types);
@EXPORT = qw(); # Do NOT @EXPORT anything.
- $VERSION = sprintf("%d.%02d", q$Revision: 11.12 $ =~ /(\d+)\.(\d+)/o);
+ $VERSION = sprintf("12.%06d", q$Revision$ =~ /(\d+)/o);
+
# $Id$
#
Modified: dbi/trunk/lib/DBD/Forward.pm
==============================================================================
--- dbi/trunk/lib/DBD/Forward.pm (original)
+++ dbi/trunk/lib/DBD/Forward.pm Wed Jan 24 15:12:38 2007
@@ -8,9 +8,9 @@
require DBI::Forward::Response;
require Carp;
- our $VERSION = sprintf("%d.%02d", q$Revision: 11.4 $ =~ /(\d+)\.(\d+)/o);
+ our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
-# $Id: Forward.pm 2488 2006-02-07 22:24:43Z timbo $
+# $Id$
#
# Copyright (c) 2007, Tim Bunce, Ireland
#
Modified: dbi/trunk/lib/DBD/Forward/Transport/Base.pm
==============================================================================
--- dbi/trunk/lib/DBD/Forward/Transport/Base.pm (original)
+++ dbi/trunk/lib/DBD/Forward/Transport/Base.pm Wed Jan 24 15:12:38 2007
@@ -1,5 +1,12 @@
package DBD::Forward::Transport::Base;
+# $Id$
+#
+# Copyright (c) 2007, Tim Bunce, Ireland
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+
use strict;
use warnings;
@@ -7,6 +14,8 @@
use base qw(Class::Accessor::Fast);
+our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
+
our $debug = $ENV{DBD_FORWARD_DEBUG} || 0;
Modified: dbi/trunk/lib/DBD/Forward/Transport/null.pm
==============================================================================
--- dbi/trunk/lib/DBD/Forward/Transport/null.pm (original)
+++ dbi/trunk/lib/DBD/Forward/Transport/null.pm Wed Jan 24 15:12:38 2007
@@ -1,5 +1,12 @@
package DBD::Forward::Transport::null;
+# $Id$
+#
+# Copyright (c) 2007, Tim Bunce, Ireland
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+
use strict;
use warnings;
@@ -7,6 +14,8 @@
use DBI::Forward::Execute qw(execute_request);
+our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
+
__PACKAGE__->mk_accessors(qw(
fwd_pending_response
));
Modified: dbi/trunk/lib/DBD/Multiplex.pm
==============================================================================
--- dbi/trunk/lib/DBD/Multiplex.pm (original)
+++ dbi/trunk/lib/DBD/Multiplex.pm Wed Jan 24 15:12:38 2007
@@ -60,7 +60,7 @@
use strict;
use vars qw($VERSION $drh);
-$VERSION = sprintf("%d.%03d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/o);
+$VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
$drh = undef; # Holds driver handle once it has been initialized.
Modified: dbi/trunk/lib/DBD/NullP.pm
==============================================================================
--- dbi/trunk/lib/DBD/NullP.pm (original)
+++ dbi/trunk/lib/DBD/NullP.pm Wed Jan 24 15:12:38 2007
@@ -5,11 +5,11 @@
require Carp;
@EXPORT = qw(); # Do NOT @EXPORT anything.
- $VERSION = sprintf("%d.%02d", q$Revision: 11.4 $ =~ /(\d+)\.(\d+)/o);
+ $VERSION = sprintf("12.%06d", q$Revision$ =~ /(\d+)/o);
# $Id$
#
-# Copyright (c) 1994, Tim Bunce
+# Copyright (c) 1994-2007 Tim Bunce
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
Modified: dbi/trunk/lib/DBD/Sponge.pm
==============================================================================
--- dbi/trunk/lib/DBD/Sponge.pm (original)
+++ dbi/trunk/lib/DBD/Sponge.pm Wed Jan 24 15:12:38 2007
@@ -4,8 +4,9 @@
require DBI;
require Carp;
- @EXPORT = qw(); # Do NOT @EXPORT anything.
- $VERSION = sprintf("%d.%02d", q$Revision: 11.10 $ =~ /(\d+)\.(\d+)/o);
+ our @EXPORT = qw(); # Do NOT @EXPORT anything.
+ our $VERSION = sprintf("12.%06d", q$Revision$ =~ /(\d+)/o);
+
# $Id$
#
Modified: dbi/trunk/lib/DBI/Const/GetInfo/ANSI.pm
==============================================================================
--- dbi/trunk/lib/DBI/Const/GetInfo/ANSI.pm (original)
+++ dbi/trunk/lib/DBI/Const/GetInfo/ANSI.pm Wed Jan 24 15:12:38 2007
@@ -38,7 +38,8 @@
=cut
my
-$VERSION = sprintf "%d.%02d", '$Revision: 1.3 $ ' =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
%InfoTypes =
(
Modified: dbi/trunk/lib/DBI/Const/GetInfo/ODBC.pm
==============================================================================
--- dbi/trunk/lib/DBI/Const/GetInfo/ODBC.pm (original)
+++ dbi/trunk/lib/DBI/Const/GetInfo/ODBC.pm Wed Jan 24 15:12:38 2007
@@ -35,7 +35,8 @@
=cut
my
-$VERSION = sprintf "%d.%02d", '$Revision: 1.3 $ ' =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
%InfoTypes =
(
Modified: dbi/trunk/lib/DBI/Const/GetInfoReturn.pm
==============================================================================
--- dbi/trunk/lib/DBI/Const/GetInfoReturn.pm (original)
+++ dbi/trunk/lib/DBI/Const/GetInfoReturn.pm Wed Jan 24 15:12:38 2007
@@ -19,7 +19,8 @@
@EXPORT = qw(%GetInfoReturnTypes %GetInfoReturnValues);
my
-$VERSION = sprintf "%d.%02d", '$Revision: 1.4 $ ' =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
=head1 NAME
Modified: dbi/trunk/lib/DBI/Const/GetInfoType.pm
==============================================================================
--- dbi/trunk/lib/DBI/Const/GetInfoType.pm (original)
+++ dbi/trunk/lib/DBI/Const/GetInfoType.pm Wed Jan 24 15:12:38 2007
@@ -19,7 +19,8 @@
@EXPORT = qw(%GetInfoType);
my
-$VERSION = sprintf "%d.%02d", '$Revision: 1.5 $ ' =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
=head1 NAME
Modified: dbi/trunk/lib/DBI/DBD.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD.pm (original)
+++ dbi/trunk/lib/DBI/DBD.pm Wed Jan 24 15:12:38 2007
@@ -3,7 +3,10 @@
use vars qw($VERSION); # set $VERSION early so we don't confuse PAUSE/CPAN etc
-$VERSION = sprintf("%d.%02d", q$Revision: 11.22 $ =~ /(\d+)\.(\d+)/o);
+# don't use Revision here because that's not in svn:keywords so that the
+# examples that use it below won't be messed up
+$VERSION = sprintf("12.%06d", q$Id$ =~ /(\d+)/o);
+
# $Id$
#
@@ -639,7 +642,15 @@
version number. Also consider the CPAN system, which gets confused and
considers version 1.10 to precede version 1.9, so that using a raw CVS,
RCS or SCCS version number is probably not appropriate (despite being
-very common). For RCS or CVS you can use this code:
+very common).
+
+For Subversion you could use:
+
+ $VERSION = sprintf("12.%06d", q$Revision: 12345 $ =~ /(\d+)/o);
+
+(use lots of leading zeros on the second portion so if you move the code to a
+shared repository like svn.perl.org the much larger revision numbers won't
+cause a problem, at least not for a few years). For RCS or CVS you can use:
$VERSION = sprintf "%d.%02d", '$Revision: 11.21 $ ' =~ /(\d+)\.(\d+)/;
Modified: dbi/trunk/lib/DBI/DBD/Metadata.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD/Metadata.pm (original)
+++ dbi/trunk/lib/DBI/DBD/Metadata.pm Wed Jan 24 15:12:38 2007
@@ -18,7 +18,8 @@
@ISA = qw(Exporter);
@EXPORT = qw(write_getinfo_pm write_typeinfo_pm);
-$VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
use strict;
Modified: dbi/trunk/lib/DBI/FAQ.pm
==============================================================================
--- dbi/trunk/lib/DBI/FAQ.pm (original)
+++ dbi/trunk/lib/DBI/FAQ.pm Wed Jan 24 15:12:38 2007
@@ -18,20 +18,11 @@
### commercial products, such as books, magazine articles or CD-ROMs should be
### made to Alligator Descartes
<I<http://www.symbolstone.org/descarte/contact.html>>.
###
-### $Log: FAQ.pm,v $
-# Revision 11.2 2001/08/24 22:10:44 timbo
-# *** empty log message ***
-#
-# Revision 10.8 2001/05/29 23:25:55 timbo
-# *** empty log message ***
-#
-# Revision 10.7 2001/03/28 14:52:07 timbo
-# Main checkin prior to 1.15 release
-#
package DBI::FAQ;
-$VERSION = '0.38';
+our $VERSION = sprintf("1.%06d", q$Revision$ =~ /(\d+)/o);
+
=head1 NAME
Modified: dbi/trunk/lib/DBI/Forward/Execute.pm
==============================================================================
--- dbi/trunk/lib/DBI/Forward/Execute.pm (original)
+++ dbi/trunk/lib/DBI/Forward/Execute.pm Wed Jan 24 15:12:38 2007
@@ -1,5 +1,12 @@
package DBI::Forward::Execute;
+# $Id$
+#
+# Copyright (c) 2007, Tim Bunce, Ireland
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+
use strict;
use warnings;
@@ -9,6 +16,8 @@
use base qw(Exporter);
+our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
+
our @EXPORT_OK = qw(
execute_request
execute_dbh_request
Modified: dbi/trunk/lib/DBI/Forward/Request.pm
==============================================================================
--- dbi/trunk/lib/DBI/Forward/Request.pm (original)
+++ dbi/trunk/lib/DBI/Forward/Request.pm Wed Jan 24 15:12:38 2007
@@ -1,7 +1,17 @@
package DBI::Forward::Request;
+# $Id$
+#
+# Copyright (c) 2007, Tim Bunce, Ireland
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+
use base qw(Class::Accessor::Fast);
+our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
+
+
__PACKAGE__->mk_accessors(qw(
connect_args
dbh_method_name
Modified: dbi/trunk/lib/DBI/Forward/Response.pm
==============================================================================
--- dbi/trunk/lib/DBI/Forward/Response.pm (original)
+++ dbi/trunk/lib/DBI/Forward/Response.pm Wed Jan 24 15:12:38 2007
@@ -1,7 +1,16 @@
package DBI::Forward::Response;
+# $Id$
+#
+# Copyright (c) 2007, Tim Bunce, Ireland
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+
use base qw(Class::Accessor::Fast);
+our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
+
__PACKAGE__->mk_accessors(qw(
rv
err
Modified: dbi/trunk/lib/DBI/Forward/Transport/Base.pm
==============================================================================
--- dbi/trunk/lib/DBI/Forward/Transport/Base.pm (original)
+++ dbi/trunk/lib/DBI/Forward/Transport/Base.pm Wed Jan 24 15:12:38 2007
@@ -1,5 +1,12 @@
package DBD::Forward::Transport::Base;
+# $Id$
+#
+# Copyright (c) 2007, Tim Bunce, Ireland
+#
+# You may distribute under the terms of either the GNU General Public
+# License or the Artistic License, as specified in the Perl README file.
+
use strict;
use warnings;
@@ -7,6 +14,8 @@
use base qw(Class::Accessor::Fast);
+our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
+
our $debug = $ENV{DBD_FORWARD_DEBUG} || 0;
Modified: dbi/trunk/lib/DBI/Profile.pm
==============================================================================
--- dbi/trunk/lib/DBI/Profile.pm (original)
+++ dbi/trunk/lib/DBI/Profile.pm Wed Jan 24 15:12:38 2007
@@ -574,7 +574,8 @@
use DBI qw(dbi_time dbi_profile dbi_profile_merge);
-$VERSION = sprintf "%d.%02d", '$Revision: 1.7 $ ' =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
@ISA = qw(Exporter);
@EXPORT = qw(
Modified: dbi/trunk/lib/DBI/ProfileData.pm
==============================================================================
--- dbi/trunk/lib/DBI/ProfileData.pm (original)
+++ dbi/trunk/lib/DBI/ProfileData.pm Wed Jan 24 15:12:38 2007
@@ -71,8 +71,8 @@
=cut
-use vars qw($VERSION);
-$VERSION = "1.0";
+
+our $VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
use Carp qw(croak);
use Symbol;
Modified: dbi/trunk/lib/DBI/ProfileDumper.pm
==============================================================================
--- dbi/trunk/lib/DBI/ProfileDumper.pm (original)
+++ dbi/trunk/lib/DBI/ProfileDumper.pm Wed Jan 24 15:12:38 2007
@@ -153,9 +153,10 @@
# inherit from DBI::Profile
use DBI::Profile;
-use vars qw(@ISA $VERSION);
[EMAIL PROTECTED] = ("DBI::Profile");
-$VERSION = "1.0";
+
+our $VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
+our @ISA = ("DBI::Profile");
use Carp qw(croak);
use Symbol;
Modified: dbi/trunk/lib/DBI/ProfileDumper/Apache.pm
==============================================================================
--- dbi/trunk/lib/DBI/ProfileDumper/Apache.pm (original)
+++ dbi/trunk/lib/DBI/ProfileDumper/Apache.pm Wed Jan 24 15:12:38 2007
@@ -119,9 +119,10 @@
=cut
-use vars qw($VERSION @ISA);
-$VERSION = "1.1";
[EMAIL PROTECTED] = qw(DBI::ProfileDumper);
+our $VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
+our @ISA = qw(DBI::ProfileDumper);
+
use DBI::ProfileDumper;
use File::Spec;
Modified: dbi/trunk/lib/DBI/ProfileSubs.pm
==============================================================================
--- dbi/trunk/lib/DBI/ProfileSubs.pm (original)
+++ dbi/trunk/lib/DBI/ProfileSubs.pm Wed Jan 24 15:12:38 2007
@@ -1,5 +1,7 @@
package DBI::ProfileSubs;
+our $VERSION = sprintf("0.%06d", q$Revision$ =~ /(\d+)/o);
+
=head1 NAME
DBI::ProfileSubs - Subroutines for dynamic profile Path
Modified: dbi/trunk/lib/DBI/PurePerl.pm
==============================================================================
--- dbi/trunk/lib/DBI/PurePerl.pm (original)
+++ dbi/trunk/lib/DBI/PurePerl.pm Wed Jan 24 15:12:38 2007
@@ -31,7 +31,8 @@
} unless defined &utf8::is_utf8;
$DBI::PurePerl = $ENV{DBI_PUREPERL} || 1;
-$DBI::PurePerl::VERSION = sprintf "%d.%02d", '$Revision: 1.96 $ ' =~
/(\d+)\.(\d+)/;
+$DBI::PurePerl::VERSION = sprintf("2.%06d", q$Revision$ =~ /(\d+)/o);
+
$DBI::neat_maxlen ||= 400;
$DBI::tfh = Symbol::gensym();
Modified: dbi/trunk/lib/DBI/SQL/Nano.pm
==============================================================================
--- dbi/trunk/lib/DBI/SQL/Nano.pm (original)
+++ dbi/trunk/lib/DBI/SQL/Nano.pm Wed Jan 24 15:12:38 2007
@@ -22,7 +22,8 @@
require DBI; # for looks_like_number()
use vars qw( $VERSION $versions );
BEGIN {
- $VERSION = '0.03';
+ $VERSION = sprintf("1.%06d", q$Revision$ =~ /(\d+)/o);
+
$versions->{nano_version} = $VERSION;
if ($ENV{DBI_SQL_NANO} || !eval { require "SQL/Statement.pm" }) {
@DBI::SQL::Nano::Statement::ISA = qw(DBI::SQL::Nano::Statement_);
Modified: dbi/trunk/lib/DBI/W32ODBC.pm
==============================================================================
--- dbi/trunk/lib/DBI/W32ODBC.pm (original)
+++ dbi/trunk/lib/DBI/W32ODBC.pm Wed Jan 24 15:12:38 2007
@@ -40,7 +40,8 @@
${'DBI::VERSION'} # hide version from PAUSE indexer
= "0.01";
-my $Revision = substr(q$Revision: 11.2 $, 10);
+my $Revision = sprintf("12.%06d", q$Revision$ =~ /(\d+)/o);
+
sub DBI::W32ODBC::import { } # must trick here since we're called
DBI/W32ODBC.pm
Added: dbi/trunk/t/65transact.t
==============================================================================
--- (empty file)
+++ dbi/trunk/t/65transact.t Wed Jan 24 15:12:38 2007
@@ -0,0 +1,34 @@
+#!perl -w
+
+use strict;
+
+use DBI;
+
+use Test::More;
+
+plan skip_all => 'Transactions not supported by DBD::Forward'
+ if $ENV{DBI_AUTOPROXY} && $ENV{DBI_AUTOPROXY} =~ /^dbi:Forward/i;
+
+plan tests => 10;
+
+my $dbh = DBI->connect('dbi:ExampleP(AutoCommit=>1):', undef, undef)
+ or die "Unable to connect to ExampleP driver: $DBI::errstr";
+
+print "begin_work...\n";
+ok($dbh->{AutoCommit});
+ok(!$dbh->{BegunWork});
+
+ok($dbh->begin_work);
+ok(!$dbh->{AutoCommit});
+ok($dbh->{BegunWork});
+
+$dbh->commit;
+ok($dbh->{AutoCommit});
+ok(!$dbh->{BegunWork});
+
+ok($dbh->begin_work({}));
+$dbh->rollback;
+ok($dbh->{AutoCommit});
+ok(!$dbh->{BegunWork});
+
+exit 0;
Modified: dbi/trunk/test.pl
==============================================================================
--- dbi/trunk/test.pl (original)
+++ dbi/trunk/test.pl Wed Jan 24 15:12:38 2007
@@ -14,7 +14,7 @@
BEGIN {
print "$0 @ARGV\n";
- print q{DBI test application $Revision: 11.7 $}."\n";
+ print q{DBI test application $Revision$}."\n";
$| = 1;
}
