add test that demonstrates breakage with user deletion

diff --git a/persistence/lib/Text/Tradition/Directory.pm b/persistence/lib/Text/Tradition/Directory.pm
index dade1fe..24fe5ae 100644 (file)
--- a/persistence/lib/Text/Tradition/Directory.pm
+++ b/persistence/lib/Text/Tradition/Directory.pm
@@ -118,6 +118,7 @@ my $file = $fh->filename;
 $fh->close;
 my $dsn = "dbi:SQLite:dbname=$file";
 my $uuid;
+my $user = 'user@example.org';
 my $t = Text::Tradition->new( 
        'name'  => 'inline', 
        'input' => 'Tabular',
@@ -134,6 +135,12 @@ my $stemma_enabled = $t->can( 'add_stemma' );
        $uuid = $d->save( $t );
        ok( $uuid, "Saved test tradition" );
        
+       # Add a test user
+       my $user = $d->add_user({ username => $user, password => 'UserPass' }); 
+       $user->add_tradition( $t );
+       $d->store( $user );
+       is( $t->user, $user, "Assigned tradition to test user" );
+       
        SKIP: {
                skip "Analysis package not installed", 5 unless $stemma_enabled;
                my $s = $t->add_stemma( dotfile => 't/data/simple.dot' );
@@ -193,9 +200,7 @@ ok( $nt->$_isa('Text::Tradition'), "Made new tradition" );
        is( scalar $f->traditionlist, 1, "Object is deleted from index" );
 }
 
-TODO: {
-       todo_skip "Deletion conflicts with Analysis package", 2
-               if $t->does('Text::Tradition::HasStemma');
+{
        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" );

diff --git a/persistence/t/text_tradition_directory.t b/persistence/t/text_tradition_directory.t
index d5ed0b2..bbf8ce0 100644 (file)
--- a/persistence/t/text_tradition_directory.t
+++ b/persistence/t/text_tradition_directory.t
@@ -19,6 +19,7 @@ my $file = $fh->filename;
 $fh->close;
 my $dsn = "dbi:SQLite:dbname=$file";
 my $uuid;
+my $user = 'user@example.org';
 my $t = Text::Tradition->new( 
        'name'  => 'inline', 
        'input' => 'Tabular',
@@ -35,6 +36,12 @@ my $stemma_enabled = $t->can( 'add_stemma' );
        $uuid = $d->save( $t );
        ok( $uuid, "Saved test tradition" );
        
+       # Add a test user
+       my $user = $d->add_user({ username => $user, password => 'UserPass' }); 
+       $user->add_tradition( $t );
+       $d->store( $user );
+       is( $t->user, $user, "Assigned tradition to test user" );
+       
        SKIP: {
                skip "Analysis package not installed", 5 unless $stemma_enabled;
                my $s = $t->add_stemma( dotfile => 't/data/simple.dot' );
@@ -94,9 +101,7 @@ ok( $nt->$_isa('Text::Tradition'), "Made new tradition" );
        is( scalar $f->traditionlist, 1, "Object is deleted from index" );
 }
 
-TODO: {
-       todo_skip "Deletion conflicts with Analysis package", 2
-               if $t->does('Text::Tradition::HasStemma');
+{
        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" );