Don't show merge option for detach

[scpubgit/stemmaweb.git] / t / lib / stemmaweb / Test / DB.pm

diff --git a/t/lib/stemmaweb/Test/DB.pm b/t/lib/stemmaweb/Test/DB.pm
index 6bad659..ebc9d07 100644 (file)
--- a/t/lib/stemmaweb/Test/DB.pm
+++ b/t/lib/stemmaweb/Test/DB.pm
@@ -6,7 +6,7 @@ use strict;
 use FindBin;
 
 sub new_db {
-    my $DBDIR = "$FindBin::Bin/db";
+    my $DBDIR = "$FindBin::Bin/../db";
     my $DBNAME = 'traditions.db';
     my $DBEXT = 'test';
 
@@ -38,13 +38,23 @@ sub new_db {
 
     # Create users
     my $user = $dir->add_user({ username => 'user@example.org', password => 'UserPass' });
+    my $openid_user = $dir->create_user({
+        url      => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
+        extensions => {'http://openid.net/srv/ax/1.0' => { 'value.email' =>'openid@example.org' } },
+    });
 
+    my $t1 = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
+    $t1->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
+    $openid_user->add_tradition($t1);
+    $dir->store( $openid_user );
 
     my $t2 = Text::Tradition->new( input => 'Tabular', sep_char => ',', 
     file => 't/data/florilegium.csv' );
     $t2->add_stemma( dotfile => 't/data/florilegium.dot' );
-
     $user->add_tradition($t2);
+    $dir->store( $user );
+
+    return $dir;
 }
 
 1;