r25346 - in /branches/upstream/libcoat-persistent-perl/current: Makefile.PL lib/Coat/Persistent.pm t/007_unique.t t/008_syntax.t t/009_cache.t

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Fri Sep 19 11:28:45 2008
New Revision: 25346

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25346
Log:
[svn-upgrade] Integrating new upstream version, libcoat-persistent-perl (0.101)

Modified:
    branches/upstream/libcoat-persistent-perl/current/Makefile.PL
    branches/upstream/libcoat-persistent-perl/current/lib/Coat/Persistent.pm
    branches/upstream/libcoat-persistent-perl/current/t/007_unique.t
    branches/upstream/libcoat-persistent-perl/current/t/008_syntax.t
    branches/upstream/libcoat-persistent-perl/current/t/009_cache.t

Modified: branches/upstream/libcoat-persistent-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoat-persistent-perl/current/Makefile.PL?rev=25346&op=diff
==============================================================================
--- branches/upstream/libcoat-persistent-perl/current/Makefile.PL (original)
+++ branches/upstream/libcoat-persistent-perl/current/Makefile.PL Fri Sep 19 11:28:45 2008
@@ -7,6 +7,7 @@
         'Coat' => '0.1_0.6',
         'DBI'  => '0',
         'DBIx::Sequence' => 0,
+	'DBD::CSV' => 0, # needed for the test suite
         'SQL::Abstract' => 0,
         'List::Compare' => 0,
     },

Modified: branches/upstream/libcoat-persistent-perl/current/lib/Coat/Persistent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoat-persistent-perl/current/lib/Coat/Persistent.pm?rev=25346&op=diff
==============================================================================
--- branches/upstream/libcoat-persistent-perl/current/lib/Coat/Persistent.pm (original)
+++ branches/upstream/libcoat-persistent-perl/current/lib/Coat/Persistent.pm Fri Sep 19 11:28:45 2008
@@ -20,7 +20,7 @@
 use vars qw($VERSION @EXPORT $AUTHORITY);
 use base qw(Exporter);
 
-$VERSION   = '0.100';
+$VERSION   = '0.101';
 $AUTHORITY = 'cpan:SUKRIA';
 @EXPORT    = qw(has_p has_one has_many);
 

Modified: branches/upstream/libcoat-persistent-perl/current/t/007_unique.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoat-persistent-perl/current/t/007_unique.t?rev=25346&op=diff
==============================================================================
--- branches/upstream/libcoat-persistent-perl/current/t/007_unique.t (original)
+++ branches/upstream/libcoat-persistent-perl/current/t/007_unique.t Fri Sep 19 11:28:45 2008
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More 'no_plan';
-use Test::Exception;
 
 BEGIN { use_ok 'Coat::Persistent' }
 {
@@ -23,11 +22,12 @@
 }
 
 # tests
-throws_ok {
-    my $p = new Person name => 'Joe'; 
+my $p;
+eval {
+    $p = new Person name => 'Joe'; 
     $p->save;
-} qr/Value Joe violates unique constraint for attribute name \(class Person\)/, 
-'unable to save a person with name "Joe" : unique value already taken';
+};
+ok( $@, "Value Joe violates unique constraint for attribute name");
 
 # clean
 $dbh->do("DROP TABLE person");

Modified: branches/upstream/libcoat-persistent-perl/current/t/008_syntax.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoat-persistent-perl/current/t/008_syntax.t?rev=25346&op=diff
==============================================================================
--- branches/upstream/libcoat-persistent-perl/current/t/008_syntax.t (original)
+++ branches/upstream/libcoat-persistent-perl/current/t/008_syntax.t Fri Sep 19 11:28:45 2008
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More 'no_plan';
-use Test::Exception;
 
 BEGIN { use_ok 'Coat::Persistent' }
 {
@@ -18,12 +17,13 @@
 my $dbh = Person->dbh;
 $dbh->do("CREATE TABLE person (id INTEGER, name CHAR(64), age INTEGER)");
 
-# tests
-throws_ok {
-    my $p = new Person name => '213'; 
+
+my $p;
+eval {
+    $p = new Person name => '213'; 
     $p->save;
-} qr/Value "213" for attribute "name" is not valid/, 
-'Unable to set a name only with numbers';
+};
+ok($@, '"213" for attribute "name" is not valid');
 
 my $p2 = new Person name => 'jo213'; 
 ok( $p2->save, 'possible to save with name with letters and numbers');

Modified: branches/upstream/libcoat-persistent-perl/current/t/009_cache.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcoat-persistent-perl/current/t/009_cache.t?rev=25346&op=diff
==============================================================================
--- branches/upstream/libcoat-persistent-perl/current/t/009_cache.t (original)
+++ branches/upstream/libcoat-persistent-perl/current/t/009_cache.t Fri Sep 19 11:28:45 2008
@@ -1,9 +1,15 @@
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More 'no_plan';
 
 BEGIN { use_ok 'Coat::Persistent' }
 
+# must have Cache::FastMmap isntalled
+eval "use Cache::FastMmap";
+my $have_cache_fastmmap = ($@ ? 0 : 1);
+
+SKIP: {
+     skip "Cache::FastMmap not installed", 10 unless $have_cache_fastmmap;
 {
     package Person;
     use Coat;
@@ -43,3 +49,8 @@
 $dbh->do("DROP TABLE person");
 $dbh->do("DROP TABLE dbix_sequence_state");
 $dbh->do("DROP TABLE dbix_sequence_release");
+};
+
+
+
+