release current version of persistence module

[scpubgit/stemmatology.git] / persistence / lib / Text / Tradition / Directory.pm

diff --git a/persistence/lib/Text/Tradition/Directory.pm b/persistence/lib/Text/Tradition/Directory.pm
index 3afc469..ec8462e 100644 (file)
--- a/persistence/lib/Text/Tradition/Directory.pm
+++ b/persistence/lib/Text/Tradition/Directory.pm
@@ -20,7 +20,7 @@ use Text::Tradition::TypeMap::Entry;
 extends 'KiokuX::Model';
 
 use vars qw/ $VERSION /;
-$VERSION = "1.1";
+$VERSION = "1.2";
 
 =head1 NAME
 
@@ -185,25 +185,35 @@ ok( $nt->$_isa('Text::Tradition'), "Made new tradition" );
                        is( $e->ident, 'database error', "Got exception trying to fetch stemma directly" );
                        like( $e->message, qr/not a Text::Tradition/, "Exception has correct message" );
                }
-               try {
-                       $f->delete( $sid );
-               } catch( Text::Tradition::Error $e ) {
-                       is( $e->ident, 'database error', "Got exception trying to delete stemma directly" );
-                       like( $e->message, qr/Cannot directly delete non-Tradition object/, 
-                               "Exception has correct message" );
+               if( $ENV{TEST_DELETION} ) {
+                       try {
+                               $f->delete( $sid );
+                       } catch( Text::Tradition::Error $e ) {
+                               is( $e->ident, 'database error', "Got exception trying to delete stemma directly" );
+                               like( $e->message, qr/Cannot directly delete non-Tradition object/, 
+                                       "Exception has correct message" );
+                       }
                }
        }
        
-       $f->delete( $uuid );
-       ok( !$f->exists( $uuid ), "Object is deleted from DB" );
-       ok( !$f->exists( $sid ), "Object stemma also deleted from DB" ) if $stemma_enabled;
-       is( scalar $f->traditionlist, 1, "Object is deleted from index" );
+       SKIP: {
+               skip "Set TEST_DELETION in env to test DB deletion functionality", 3
+                       unless $ENV{TEST_DELETION};
+               $f->delete( $uuid );
+               ok( !$f->exists( $uuid ), "Object is deleted from DB" );
+               ok( !$f->exists( $sid ), "Object stemma also deleted from DB" ) if $stemma_enabled;
+               is( scalar $f->traditionlist, 1, "Object is deleted from index" );
+       }
 }
 
 {
        my $g = Text::Tradition::Directory->new( 'dsn' => $dsn );
        my $scope = $g->new_scope;
-       is( scalar $g->traditionlist, 1, "Now one object in new directory index" );
+       SKIP: {
+               skip "Set TEST_DELETION in env to test DB deletion functionality", 1
+                       unless $ENV{TEST_DELETION};
+               is( scalar $g->traditionlist, 1, "Now one object in new directory index" );
+       }
        my $ntobj = $g->tradition( 'CX' );
        my @w1 = sort { $a->sigil cmp $b->sigil } $ntobj->witnesses;
        my @w2 = sort{ $a->sigil cmp $b->sigil } $nt->witnesses;