X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmaweb.git;a=blobdiff_plain;f=script%2Fmaketestdb.pl;h=f26659db0c78682dc3da55dd0931f4a839944892;hp=a662274f430ac5cf044c9b8b839b4be4780ac00d;hb=85990daf0e04461abd1b789fb283848dd583c134;hpb=54c050ab1db494fa4d8b24ce67bfb38ab14a25c0

diff --git a/script/maketestdb.pl b/script/maketestdb.pl
index a662274..f26659d 100755
--- a/script/maketestdb.pl
+++ b/script/maketestdb.pl
@@ -40,13 +40,18 @@ say "Created test database";
 my $user = $dir->add_user({ username => 'user@example.org', password => 'UserPass' });
 my $admin = $dir->add_user({ username => 'admin@example.org', 
 	password => 'AdminPass', role => 'admin' });
-die "Failed to create test users" unless $user && $admin;
+my $openid_user = $dir->add_user({
+        username => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
+        password => 'pass'
+    });
+die "Failed to create test users" unless $user && $admin && $openid_user;
 say "Created users";
 
 my $t1 = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
 die "Failed to create test tradition #1" unless $t1;
 $t1->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
 $user->add_tradition( $t1 );
+$openid_user->add_tradition($t1);
 $dir->store( $user );
 say "Created test user tradition";