my $DBDIR = 'db';
my $DBNAME = 'traditions.db';
my $DBEXT = 'test';
-# Delete the old directory if it exists
+# Make the directory on the filesystem if necessary
+unless( -d $DBDIR ) {
+ mkdir $DBDIR
+ or die "Could not make database director $DBDIR";
+ say "Created directory for test database";
+}
+# Delete the old db if it exists
if( -f "$DBDIR/$DBNAME.$DBEXT" ) {
unlink( "$DBDIR/$DBNAME.$DBEXT" );
}
extra_args => { create => 1 }
);
my $scope = $dir->new_scope();
-say "Created test directory";
+say "Created test database";
# Create users
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";
$dir->store( $t3 );
my $t4 = Text::Tradition->new( input => 'Self', file => 't/data/collatecorr.xml' );
$t4->public( 1 );
-$t4->set_stemweb_jobid( '16' );
$user->add_tradition( $t4 );
$dir->store( $t4 );
$dir->store( $user );