r54024 - in /trunk/liborlite-perl: ./ debian/ debian/patches/ inc/Module/ inc/Module/Install/ lib/ t/ t/lib/ xt/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Wed Mar 10 01:37:30 UTC 2010


Author: jawnsy-guest
Date: Wed Mar 10 01:37:24 2010
New Revision: 54024

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54024
Log:
* New upstream release
* Use new 3.0 (quilt) source format

Added:
    trunk/liborlite-perl/xt/
      - copied from r54018, branches/upstream/liborlite-perl/current/xt/
Removed:
    trunk/liborlite-perl/debian/README.source
    trunk/liborlite-perl/t/97_meta.t
    trunk/liborlite-perl/t/98_pod.t
    trunk/liborlite-perl/t/99_pmv.t
Modified:
    trunk/liborlite-perl/Changes
    trunk/liborlite-perl/MANIFEST
    trunk/liborlite-perl/META.yml
    trunk/liborlite-perl/Makefile.PL
    trunk/liborlite-perl/README
    trunk/liborlite-perl/debian/changelog
    trunk/liborlite-perl/debian/control
    trunk/liborlite-perl/debian/copyright
    trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch
    trunk/liborlite-perl/debian/rules
    trunk/liborlite-perl/inc/Module/Install.pm
    trunk/liborlite-perl/inc/Module/Install/Base.pm
    trunk/liborlite-perl/inc/Module/Install/Can.pm
    trunk/liborlite-perl/inc/Module/Install/DSL.pm
    trunk/liborlite-perl/inc/Module/Install/Fetch.pm
    trunk/liborlite-perl/inc/Module/Install/Makefile.pm
    trunk/liborlite-perl/inc/Module/Install/Metadata.pm
    trunk/liborlite-perl/inc/Module/Install/Win32.pm
    trunk/liborlite-perl/inc/Module/Install/With.pm
    trunk/liborlite-perl/inc/Module/Install/WriteAll.pm
    trunk/liborlite-perl/lib/ORLite.pm
    trunk/liborlite-perl/t/02_basics.t
    trunk/liborlite-perl/t/08_prune.pl
    trunk/liborlite-perl/t/lib/Test.pm

Modified: trunk/liborlite-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/Changes?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/Changes (original)
+++ trunk/liborlite-perl/Changes Wed Mar 10 01:37:24 2010
@@ -1,4 +1,12 @@
 Changes for Perl extension ORLite
+
+1.41 Tue  9 Mar 2010
+	- Added the root ->connected method to allow for some
+	  light introspection in unusual situations (such as
+	  knowing if it's safe to spawn an off-the-books
+	  ->connect'tion, or to detect if we are in a transaction).
+	- Added documentation for the ->connect method, with suitably
+	  strident warnings about the dangers of deadlocking.
 
 1.40 Mon  1 Fed 2010
 	- Fixed backwards test skipping logic

Modified: trunk/liborlite-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/MANIFEST?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/MANIFEST (original)
+++ trunk/liborlite-perl/MANIFEST Wed Mar 10 01:37:24 2010
@@ -36,7 +36,7 @@
 t/14_array_fk.t
 t/15_array_xs.t
 t/16_array_create.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
 t/lib/Test.pm
+xt/meta.t
+xt/pmv.t
+xt/pod.t

Modified: trunk/liborlite-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/META.yml?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/META.yml (original)
+++ trunk/liborlite-perl/META.yml Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
 configure_requires:
   ExtUtils::MakeMaker: 6.42
 distribution_type: module
-generated_by: 'Module::Install version 0.92'
+generated_by: 'Module::Install version 0.94'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,6 +20,7 @@
   directory:
     - inc
     - t
+    - xt
 requires:
   DBD::SQLite: 1.27
   DBI: 1.607
@@ -34,4 +35,4 @@
   ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/ORLite
   license: http://dev.perl.org/licenses/
   repository: http://svn.ali.as/cpan/trunk/ORLite
-version: 1.40
+version: 1.41

Modified: trunk/liborlite-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/Makefile.PL?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/Makefile.PL (original)
+++ trunk/liborlite-perl/Makefile.PL Wed Mar 10 01:37:24 2010
@@ -1,4 +1,4 @@
-use inc::Module::Install::DSL 0.92;
+use inc::Module::Install::DSL 0.94;
 
 all_from      lib/ORLite.pm
 requires_from lib/ORLite.pm

Modified: trunk/liborlite-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/README?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/README (original)
+++ trunk/liborlite-perl/README Wed Mar 10 01:37:24 2010
@@ -301,6 +301,29 @@
     The "dbh" method returns a DBI::db object, or throws an exception on
     error.
 
+  connect
+      my $dbh = Foo::Bar->connect;
+
+    The "connect" method is provided for the (extremely rare) situation in
+    which you need a raw connection to the database, evading the normal
+    tracking and management provided of the ORM.
+
+    The use of raw connections in this manner is strongly discouraged, as
+    you can create fatal deadlocks in SQLite if either the core ORM or the
+    raw connection uses a transaction at any time.
+
+    To summarise, do not use this method unless you REALLY know what you are
+    doing.
+
+    YOU HAVE BEEN WARNED!
+
+  connected
+      my $active = Foo::Bar->connected;
+
+    The "connected" method provides introspection of the connection status
+    of the library. It returns true if there is any connection or
+    transaction open to the database, or false otherwise.
+
   begin
       Foo::Bar->begin;
 

Modified: trunk/liborlite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/changelog?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/changelog (original)
+++ trunk/liborlite-perl/debian/changelog Wed Mar 10 01:37:24 2010
@@ -1,3 +1,10 @@
+liborlite-perl (1.41-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Use new 3.0 (quilt) source format
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 09 Mar 2010 21:02:39 -0500
+
 liborlite-perl (1.40-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/liborlite-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/control?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/control (original)
+++ trunk/liborlite-perl/debian/control Wed Mar 10 01:37:24 2010
@@ -1,12 +1,10 @@
 Source: liborlite-perl
 Section: perl
 Priority: optional
-Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7)
+Build-Depends: debhelper (>= 7.0.50)
 Build-Depends-Indep: perl, libdbd-sqlite3-perl (>= 1.27), libdbi-perl (>= 1.607),
  perl (>= 5.10.1) | libfile-temp-perl (>= 0.20), libparams-util-perl (>= 0.33),
- perl (>= 5.10.1) | libpod-simple-perl (>= 3.07), libtest-cpan-meta-perl,
- libtest-minimumversion-perl, libtest-pod-perl, libfile-remove-perl (>= 1.40),
- libtest-script-perl, libclass-xsaccessor-perl
+ libfile-remove-perl (>= 1.40), libtest-script-perl, libclass-xsaccessor-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Damyan Ivanov <dmn at debian.org>, Gunnar Wolf <gwolf at debian.org>,
  Brian Cassidy <brian.cassidy at gmail.com>, Rene Mayorga <rmayorga at debian.org>,

Modified: trunk/liborlite-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/copyright?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/copyright (original)
+++ trunk/liborlite-perl/debian/copyright Wed Mar 10 01:37:24 2010
@@ -15,13 +15,13 @@
 
 Files: debian/*
 Copyright: 2009-2010, Jonathan Yu <jawnsy at cpan.org>
+ 2010, gregor herrmann <gregoa at debian.org>
+ 2008-2009, Brian Cassidy <brian.cassidy at gmail.com>
  2009, Jaldhar H. Vyas <jaldhar at debian.org>
  2009, Nathan Handler <nhandler at ubuntu.com>
  2009, Rene Mayorga <rmayorga at debian.org>
- 2008-2009, Brian Cassidy <brian.cassidy at gmail.com>
  2008, Damyan Ivanov <dmn at debian.org>
  2008, Gunnar Wolf <gwolf at debian.org>
- 2010, gregor herrmann <gregoa at debian.org>
 License: Artistic or GPL-1+
 
 License: Artistic

Modified: trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch (original)
+++ trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
 Forwarded: no
 --- a/lib/ORLite.pm
 +++ b/lib/ORLite.pm
-@@ -956,7 +956,7 @@
+@@ -985,7 +985,7 @@
  While transaction support is always built for every L<ORLite>-generated
  class tree, if the database is opened C<readonly> the C<commit> method
  will not exist at all in the API, and your only way of ending the

Modified: trunk/liborlite-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/rules?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/rules (original)
+++ trunk/liborlite-perl/debian/rules Wed Mar 10 01:37:24 2010
@@ -1,7 +1,7 @@
 #!/usr/bin/make -f
 
 %:
-	dh --with quilt $@
+	dh $@
 
 override_dh_auto_test:
 	AUTOMATED_TESTING=1 dh_auto_test

Modified: trunk/liborlite-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install.pm Wed Mar 10 01:37:24 2010
@@ -28,7 +28,7 @@
 	# This is not enforced yet, but will be some time in the next few
 	# releases once we can make sure it won't clash with custom
 	# Module::Install extensions.
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 
 	# Storage for the pseudo-singleton
 	$MAIN    = undef;

Modified: trunk/liborlite-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Base.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Base.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Base.pm Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
 use strict 'vars';
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 }
 
 # Suspend handler for "redefined" warnings

Modified: trunk/liborlite-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Can.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Can.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Can.pm Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

Modified: trunk/liborlite-perl/inc/Module/Install/DSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/DSL.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/DSL.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/DSL.pm Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
 use strict;
 use vars qw{$VERSION $ISCORE};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 	$ISCORE  = 1;
 	*inc::Module::Install::DSL::VERSION = *VERSION;
 	@inc::Module::Install::DSL::ISA     = __PACKAGE__;
@@ -39,9 +39,11 @@
 	}
 
 	# Convert the basic syntax to code
-	my $code = "package main;\n\n"
+	my $code = "INIT {\n"
+	         . "package main;\n\n"
 	         . dsl2code($dsl)
-	         . "\n\nWriteAll();\n";
+	         . "\n\nWriteAll();\n"
+	         . "}\n";
 
 	# Execute the script
 	eval $code;

Modified: trunk/liborlite-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Fetch.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Fetch.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

Modified: trunk/liborlite-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Makefile.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Makefile.pm Wed Mar 10 01:37:24 2010
@@ -7,7 +7,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }
@@ -118,6 +118,9 @@
 	%test_dir = ();
 	require File::Find;
 	File::Find::find( \&_wanted_t, $dir );
+	if ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
+		File::Find::find( \&_wanted_t, 'xt' );
+	}
 	$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
 }
 
@@ -157,15 +160,23 @@
 	$args->{NAME}     = $self->module_name || $self->name;
 	$args->{VERSION}  = $self->version;
 	$args->{NAME}     =~ s/-/::/g;
+	$DB::single = 1;
 	if ( $self->tests ) {
-		$args->{test} = { TESTS => $self->tests };
+		$args->{test} = {
+			TESTS => $self->tests,
+		};
+	} elsif ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
+		$args->{test} = {
+			TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ),
+		};
 	}
 	if ( $] >= 5.005 ) {
 		$args->{ABSTRACT} = $self->abstract;
 		$args->{AUTHOR}   = $self->author;
 	}
 	if ( $self->makemaker(6.10) ) {
-		$args->{NO_META} = 1;
+		$args->{NO_META}   = 1;
+		#$args->{NO_MYMETA} = 1;
 	}
 	if ( $self->makemaker(6.17) and $self->sign ) {
 		$args->{SIGN} = 1;
@@ -224,10 +235,12 @@
 
 	$args->{INSTALLDIRS} = $self->installdirs;
 
-	my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
+	my %args = map {
+		( $_ => $args->{$_} ) } grep {defined($args->{$_} )
+	} keys %$args;
 
 	my $user_preop = delete $args{dist}->{PREOP};
-	if (my $preop = $self->admin->preop($user_preop)) {
+	if ( my $preop = $self->admin->preop($user_preop) ) {
 		foreach my $key ( keys %$preop ) {
 			$args{dist}->{$key} = $preop->{$key};
 		}
@@ -297,4 +310,4 @@
 
 __END__
 
-#line 426
+#line 439

Modified: trunk/liborlite-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Metadata.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Metadata.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }
@@ -230,7 +230,7 @@
 		die("The path '$file' does not exist, or is not a file");
 	}
 
-    $self->{values}{all_from} = $file;
+	$self->{values}{all_from} = $file;
 
 	# Some methods pull from POD instead of code.
 	# If there is a matching .pod, use that instead
@@ -451,6 +451,7 @@
 		my @phrases      = (
 			'under the same (?:terms|license) as (?:perl|the perl programming language)' => 'perl', 1,
 			'under the terms of (?:perl|the perl programming language) itself' => 'perl', 1,
+			'Artistic and GPL'                   => 'perl',        1,
 			'GNU general public license'         => 'gpl',         1,
 			'GNU public license'                 => 'gpl',         1,
 			'GNU lesser general public license'  => 'lgpl',        1,

Modified: trunk/liborlite-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Win32.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Win32.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

Modified: trunk/liborlite-perl/inc/Module/Install/With.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/With.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/With.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/With.pm Wed Mar 10 01:37:24 2010
@@ -8,7 +8,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.92';
+	$VERSION = '0.94';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

Modified: trunk/liborlite-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/WriteAll.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/WriteAll.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.92';;
+	$VERSION = '0.94';;
 	@ISA     = qw{Module::Install::Base};
 	$ISCORE  = 1;
 }

Modified: trunk/liborlite-perl/lib/ORLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/lib/ORLite.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/lib/ORLite.pm (original)
+++ trunk/liborlite-perl/lib/ORLite.pm Wed Mar 10 01:37:24 2010
@@ -15,7 +15,7 @@
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.40';
+	$VERSION = '1.41';
 }
 
 # Support for the 'prune' option
@@ -157,6 +157,10 @@
 	} );
 }
 
+sub connected {
+	defined \$DBH;
+}
+
 sub prepare {
 	shift->dbh->prepare(\@_);
 }
@@ -938,6 +942,31 @@
 The C<dbh> method returns a L<DBI::db> object, or throws an exception on
 error.
 
+=head2 connect
+
+  my $dbh = Foo::Bar->connect;
+
+The C<connect> method is provided for the (extremely rare) situation in
+which you need a raw connection to the database, evading the normal tracking
+and management provided of the ORM.
+
+The use of raw connections in this manner is strongly discouraged, as you
+can create fatal deadlocks in SQLite if either the core ORM or the raw
+connection uses a transaction at any time.
+
+To summarise, do not use this method unless you B<REALLY> know what you are
+doing.
+
+B<YOU HAVE BEEN WARNED!>
+
+=head2 connected
+
+  my $active = Foo::Bar->connected;
+
+The C<connected> method provides introspection of the connection status
+of the library. It returns true if there is any connection or transaction
+open to the database, or false otherwise.
+
 =head2 begin
 
   Foo::Bar->begin;

Modified: trunk/liborlite-perl/t/02_basics.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/t/02_basics.t?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/t/02_basics.t (original)
+++ trunk/liborlite-perl/t/02_basics.t Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
 	$^W = 1;
 }
 
-use Test::More tests => 68;
+use Test::More tests => 71;
 use File::Spec::Functions ':ALL';
 use t::lib::Test;
 
@@ -142,10 +142,13 @@
 
 # Transaction testing
 SCOPE: {
+	is( Foo::Bar->connected, !1, '->connected is false' );
 	ok( Foo::Bar->begin, '->begin' );
+	is( Foo::Bar->connected, 1,  '->connected is true' );
 	isa_ok( Foo::Bar::TableOne->create, 'Foo::Bar::TableOne' );
 	is( Foo::Bar::TableOne->count, 1, 'One row created' );
 	ok( Foo::Bar->rollback, '->rollback' );
+	is( Foo::Bar->connected, !1, '->connected is false' );
 	is( Foo::Bar::TableOne->count, 0, 'Commit ok' );
 
 	ok( Foo::Bar->begin, '->begin' );

Modified: trunk/liborlite-perl/t/08_prune.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/t/08_prune.pl?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/t/08_prune.pl (original)
+++ trunk/liborlite-perl/t/08_prune.pl Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
 
 use strict;
 
-our $VERSION = '1.40';
+our $VERSION = '1.41';
 
 unless ( $ORLite::VERSION eq $VERSION ) {
 	die('Failed to load correct ORLite version');

Modified: trunk/liborlite-perl/t/lib/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/t/lib/Test.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/t/lib/Test.pm (original)
+++ trunk/liborlite-perl/t/lib/Test.pm Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
 
 use vars qw{$VERSION @ISA @EXPORT};
 BEGIN {
-	$VERSION = '1.40';
+	$VERSION = '1.41';
 	@ISA     = 'Exporter';
 	@EXPORT  = qw{ test_db connect_ok create_ok };
 }




More information about the Pkg-perl-cvs-commits mailing list