r75243 - in /branches/upstream/liborlite-perl/current: ./ inc/Module/ inc/Module/Install/ lib/ t/ t/lib/ xt/
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Tue Jun 7 13:33:21 UTC 2011
Author: angelabad-guest
Date: Tue Jun 7 13:32:57 2011
New Revision: 75243
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75243
Log:
[svn-upgrade] new version liborlite-perl (1.50)
Added:
branches/upstream/liborlite-perl/current/t/21_normalize.sql
branches/upstream/liborlite-perl/current/t/21_normalize.t
Modified:
branches/upstream/liborlite-perl/current/Changes
branches/upstream/liborlite-perl/current/MANIFEST
branches/upstream/liborlite-perl/current/META.yml
branches/upstream/liborlite-perl/current/Makefile.PL
branches/upstream/liborlite-perl/current/inc/Module/Install.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm
branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm
branches/upstream/liborlite-perl/current/lib/ORLite.pm
branches/upstream/liborlite-perl/current/t/08_prune.pl
branches/upstream/liborlite-perl/current/t/17_cache.t
branches/upstream/liborlite-perl/current/t/lib/Test.pm
branches/upstream/liborlite-perl/current/xt/pmv.t
Modified: branches/upstream/liborlite-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/Changes?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/Changes (original)
+++ branches/upstream/liborlite-perl/current/Changes Tue Jun 7 13:32:57 2011
@@ -1,4 +1,13 @@
Changes for Perl extension ORLite
+
+1.50 Tue 7 Jun 2011
+ - Removed normalize as a supported parameter, normalizing columns turns
+ out not to work in practice. However, we always normalize tables to
+ get the class name for the table as that seems to result in class
+ names that make much more sense.
+
+1.49 Wed 1 Jun 2011
+ - Adding normalize support to turn columnName into column_name
1.48 Fri 21 Jan 2011
- Initial support for shim => 1 to simplify customisation (ADAMK)
Modified: branches/upstream/liborlite-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/MANIFEST?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/MANIFEST (original)
+++ branches/upstream/liborlite-perl/current/MANIFEST Tue Jun 7 13:32:57 2011
@@ -43,6 +43,8 @@
t/19_view.sql
t/19_view.t
t/20_shim.t
+t/21_normalize.sql
+t/21_normalize.t
t/lib/Test.pm
xt/meta.t
xt/pmv.t
Modified: branches/upstream/liborlite-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/META.yml?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/META.yml (original)
+++ branches/upstream/liborlite-perl/current/META.yml Tue Jun 7 13:32:57 2011
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -35,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.48
+version: 1.50
Modified: branches/upstream/liborlite-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/Makefile.PL?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/Makefile.PL (original)
+++ branches/upstream/liborlite-perl/current/Makefile.PL Tue Jun 7 13:32:57 2011
@@ -1,4 +1,4 @@
-use inc::Module::Install::DSL 1.00;
+use inc::Module::Install::DSL 1.01;
all_from lib/ORLite.pm
requires_from lib/ORLite.pm
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install.pm Tue Jun 7 13:32:57 2011
@@ -31,7 +31,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 = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Base.pm Tue Jun 7 13:32:57 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Can.pm Tue Jun 7 13:32:57 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/DSL.pm Tue Jun 7 13:32:57 2011
@@ -4,7 +4,7 @@
use strict;
use vars qw{$VERSION $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
$ISCORE = 1;
*inc::Module::Install::DSL::VERSION = *VERSION;
@inc::Module::Install::DSL::ISA = __PACKAGE__;
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Fetch.pm Tue Jun 7 13:32:57 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Makefile.pm Tue Jun 7 13:32:57 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Metadata.pm Tue Jun 7 13:32:57 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/Win32.pm Tue Jun 7 13:32:57 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/With.pm Tue Jun 7 13:32:57 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/liborlite-perl/current/inc/Module/Install/WriteAll.pm Tue Jun 7 13:32:57 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: branches/upstream/liborlite-perl/current/lib/ORLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/lib/ORLite.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/lib/ORLite.pm (original)
+++ branches/upstream/liborlite-perl/current/lib/ORLite.pm Tue Jun 7 13:32:57 2011
@@ -14,7 +14,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.48';
+ $VERSION = '1.50';
}
# Support for the 'prune' option
@@ -351,7 +351,12 @@
$table->{qname} = '"' . $table->{name} . '"';
# What will be the class for this table
- $table->{class} = ucfirst lc $table->{name};
+ $table->{class} = $table->{name};
+ if ( $table->{class} ne lc $table->{class} ) {
+ $table->{class} =~ s/([a-z])([A-Z])/${1}_${2}/g;
+ $table->{class} =~ s/_+/_/g;
+ }
+ $table->{class} = ucfirst lc $table->{class};
$table->{class} =~ s/_([a-z])/uc($1)/ge;
$table->{class} = "${pkg}::$table->{class}";
@@ -362,7 +367,9 @@
);
# Convenience escaping for the column names
- $_->{qname} = "\"$_->{name}\"" foreach @$columns;
+ foreach my $c ( @$columns ) {
+ $c->{qname} = "\"$c->{name}\"";
+ }
# Track array vs hash implementation on a per-table
# basis so that we can force views to always be done
Modified: branches/upstream/liborlite-perl/current/t/08_prune.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/08_prune.pl?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/08_prune.pl (original)
+++ branches/upstream/liborlite-perl/current/t/08_prune.pl Tue Jun 7 13:32:57 2011
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '1.48';
+our $VERSION = '1.50';
unless ( $ORLite::VERSION eq $VERSION ) {
die('Failed to load correct ORLite version');
Modified: branches/upstream/liborlite-perl/current/t/17_cache.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/17_cache.t?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/17_cache.t (original)
+++ branches/upstream/liborlite-perl/current/t/17_cache.t Tue Jun 7 13:32:57 2011
@@ -14,7 +14,7 @@
use t::lib::Test;
# Where will the cache file be written to
-my $cached = catfile( qw{ t Foo-Bar-1-23-ORLite-1-48-user_version-2.pm } );
+my $cached = catfile( qw{ t Foo-Bar-1-23-ORLite-1-50-user_version-2.pm } );
clear($cached);
ok( ! -e $cached, 'Cache file does not initially exist' );
Added: branches/upstream/liborlite-perl/current/t/21_normalize.sql
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/21_normalize.sql?rev=75243&op=file
==============================================================================
--- branches/upstream/liborlite-perl/current/t/21_normalize.sql (added)
+++ branches/upstream/liborlite-perl/current/t/21_normalize.sql Tue Jun 7 13:32:57 2011
@@ -1,0 +1,4 @@
+create table tableOne (
+ columnID integer not null primary key,
+ ColumnTwo string
+)
Added: branches/upstream/liborlite-perl/current/t/21_normalize.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/21_normalize.t?rev=75243&op=file
==============================================================================
--- branches/upstream/liborlite-perl/current/t/21_normalize.t (added)
+++ branches/upstream/liborlite-perl/current/t/21_normalize.t Tue Jun 7 13:32:57 2011
@@ -1,0 +1,207 @@
+#!/usr/bin/perl
+
+# Tests mixed casing
+
+use strict;
+
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+use Test::More tests => 74;
+use File::Spec::Functions ':ALL';
+use t::lib::Test;
+
+SCOPE: {
+ # Test file
+ my $file = test_db();
+
+ # Connect
+ my $dbh = connect_ok("dbi:SQLite:$file");
+ $dbh->begin_work;
+ $dbh->rollback;
+ ok( $dbh->disconnect, 'disconnect' );
+}
+
+# Set up again
+my $file = test_db();
+my $dbh = create_ok(
+ file => catfile(qw{ t 21_normalize.sql }),
+ connect => [ "dbi:SQLite:$file" ],
+);
+
+# Create the test package
+eval <<"END_PERL"; die $@ if $@;
+package Foo::Bar;
+
+use strict;
+use ORLite {
+ file => '$file',
+};
+
+1;
+END_PERL
+
+# Simple null transaction to stimulate any errors
+Foo::Bar->begin;
+Foo::Bar->rollback;
+
+# Check the file name
+$file = rel2abs($file);
+is( Foo::Bar->sqlite, $file, '->sqlite ok' );
+is( Foo::Bar->dsn, "dbi:SQLite:$file", '->dsn ok' );
+
+# Check the schema version
+is( Foo::Bar->pragma('user_version'), 0, '->user_version ok' );
+
+# Check metadata methods in the test table
+is( Foo::Bar::TableOne->base, 'Foo::Bar', '->base ok' );
+is( Foo::Bar::TableOne->table, 'tableOne', '->table ok' );
+my $columns = Foo::Bar::TableOne->table_info;
+is_deeply( $columns, [
+ {
+ cid => 0,
+ dflt_value => undef,
+ name => 'columnID',
+ notnull => 1,
+ pk => 1,
+ type => 'integer',
+ },
+ {
+ cid => 1,
+ dflt_value => undef,
+ name => 'ColumnTwo',
+ notnull => 0,
+ pk => 0,
+ type => 'string',
+ },
+], '->table_info ok' );
+
+# Populate the test table
+ok(
+ Foo::Bar::TableOne->create( columnID => 1, ColumnTwo => 'foo' ),
+ 'Created row 1',
+);
+isa_ok( Foo::Bar::TableOne->load(1), 'Foo::Bar::TableOne' );
+my $new = Foo::Bar::TableOne->create( ColumnTwo => 'bar' );
+isa_ok( $new, 'Foo::Bar::TableOne' );
+is( $new->columnID, 2, '->columnID ok' );
+is( $new->ColumnTwo, 'bar', '->ColumnTwo ok' );
+ok(
+ Foo::Bar::TableOne->create( ColumnTwo => 'bar' ),
+ 'Created row 3',
+);
+
+# Check the ->count method
+is( Foo::Bar::TableOne->count, 3, 'Found 3 rows' );
+is( Foo::Bar::TableOne->count('where ColumnTwo = ?', 'bar'), 2, 'Condition count works' );
+
+sub test_ones {
+ my $ones = shift;
+ is( scalar(@$ones), 3, 'Got 3 objects' );
+ isa_ok( $ones->[0], 'Foo::Bar::TableOne' );
+ is( $ones->[0]->columnID, 1, '->columnID ok' );
+ is( $ones->[0]->ColumnTwo, 'foo', '->ColumnTwo ok' );
+ isa_ok( $ones->[1], 'Foo::Bar::TableOne' );
+ is( $ones->[1]->columnID, 2, '->columnID ok' );
+ is( $ones->[1]->ColumnTwo, 'bar', '->ColumnTwo ok' );
+ isa_ok( $ones->[2], 'Foo::Bar::TableOne' );
+ is( $ones->[2]->columnID, 3, '->columnID ok' );
+ is( $ones->[2]->ColumnTwo, 'bar', '->ColumnTwo ok' );
+}
+
+# Fetch the rows (list context)
+test_ones(
+ [ Foo::Bar::TableOne->select('order by columnID') ]
+);
+
+# Fetch the rows (scalar context)
+test_ones(
+ scalar Foo::Bar::TableOne->select('order by columnID')
+);
+
+SCOPE: {
+ # Emulate select via iterate
+ my $ones = [];
+ Foo::Bar::TableOne->iterate( 'order by columnID', sub {
+ push @$ones, $_;
+ } );
+ test_ones( $ones );
+
+ # Partial fetch
+ my $short = [];
+ Foo::Bar::TableOne->iterate( 'order by columnID', sub {
+ push @$short, $_;
+ return 0;
+ } );
+ is( scalar(@$short), 1, 'Found only one record' );
+ is_deeply( $short->[0], $ones->[0], 'Found the same first record' );
+
+ # Lower level equivalent
+ my $short2 = [];
+ Foo::Bar->iterate( 'select * from tableOne order by columnID', sub {
+ push @$short2, $_;
+ return 0;
+ } );
+ is( scalar(@$short2), 1, 'Found only one record' );
+ is_deeply( $short2->[0], [ 1, 'foo' ], 'Found correct alternative' );
+
+ # Delete one of the objects via the class delete method
+ my $rv1 = Foo::Bar::TableOne->delete('where ColumnTwo = ?', 'bar');
+ is( $rv1, 2, 'Deleted 2 rows' );
+ is( Foo::Bar::TableOne->count, 1, 'Confirm 2 rows were deleted' );
+
+ # Delete one of the objects via the instance delete method
+ ok( $ones->[0]->delete, 'Deleted object' );
+ is( Foo::Bar::TableOne->count, 0, 'Confirm 1 row was deleted' );
+}
+
+# Database should now be empty
+SCOPE: {
+ my @none = Foo::Bar::TableOne->select;
+ is_deeply( \@none, [ ], '->select ok with nothing' );
+
+ my $none = Foo::Bar::TableOne->select;
+ is_deeply( $none, [ ], '->select ok with nothing' );
+}
+
+# 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' );
+ isa_ok( Foo::Bar::TableOne->create, 'Foo::Bar::TableOne' );
+ is( Foo::Bar::TableOne->count, 1, 'One row created' );
+ ok( Foo::Bar->commit, '->commit' );
+ is( Foo::Bar::TableOne->count, 1, 'Commit ok' );
+}
+
+# Truncate
+SCOPE: {
+ ok( Foo::Bar::TableOne->truncate, '->truncate ok' );
+ is( Foo::Bar::TableOne->count, 0, 'Commit ok' );
+}
+
+
+
+
+
+######################################################################
+# Exceptions
+
+# Load an object that does not exist
+SCOPE: {
+ my @rv = eval {
+ Foo::Bar::TableOne->load(undef);
+ };
+ is( scalar(@rv), 0, 'Exception returns nothing' );
+ like( $@, qr/Foo::Bar::TableOne row does not exist/, 'Foo::Bar::TableOne row does not exist' );
+}
Modified: branches/upstream/liborlite-perl/current/t/lib/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/t/lib/Test.pm?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/t/lib/Test.pm (original)
+++ branches/upstream/liborlite-perl/current/t/lib/Test.pm Tue Jun 7 13:32:57 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA @EXPORT};
BEGIN {
- $VERSION = '1.48';
+ $VERSION = '1.50';
@ISA = 'Exporter';
@EXPORT = qw{ test_db connect_ok create_ok };
}
Modified: branches/upstream/liborlite-perl/current/xt/pmv.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liborlite-perl/current/xt/pmv.t?rev=75243&op=diff
==============================================================================
--- branches/upstream/liborlite-perl/current/xt/pmv.t (original)
+++ branches/upstream/liborlite-perl/current/xt/pmv.t Tue Jun 7 13:32:57 2011
@@ -9,7 +9,7 @@
}
my @MODULES = (
- 'Perl::MinimumVersion 1.25',
+ 'Perl::MinimumVersion 1.27',
'Test::MinimumVersion 0.101080',
);
More information about the Pkg-perl-cvs-commits
mailing list