1 package stemmaweb::Test::DB;
9 my $DBDIR = "$FindBin::Bin/../db";
10 my $DBNAME = 'traditions.db';
13 # Make the directory on the filesystem if necessary
16 or die "Could not make database director $DBDIR";
18 # Delete the old db if it exists
19 if( -f "$DBDIR/$DBNAME.$DBEXT" ) {
20 unlink( "$DBDIR/$DBNAME.$DBEXT" );
22 if( -l "$DBDIR/$DBNAME" ) {
23 unlink( "$DBDIR/$DBNAME" );
24 } elsif( -e "$DBDIR/$DBNAME" ) {
25 unlink( "$DBDIR/$DBNAME.bak" ) if -f "$DBDIR/$DBNAME.bak";
26 rename( "$DBDIR/$DBNAME", "$DBDIR/$DBNAME.bak" )
27 or die "Could not rename existing $DBNAME";
30 # Set up the test directory
31 symlink( "$DBNAME.$DBEXT", "$DBDIR/$DBNAME" ) or die "Could not set up testing db symlink";
33 my $dir = Text::Tradition::Directory->new(
34 dsn => "dbi:SQLite:dbname=$DBDIR/$DBNAME",
35 extra_args => { create => 1 }
37 my $scope = $dir->new_scope();
40 my $user = $dir->add_user({ username => 'user@example.org', password => 'UserPass' });
41 my $openid_user = $dir->create_user({
42 url => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
43 extensions => {'http://openid.net/srv/ax/1.0' => { 'value.email' =>'openid@example.org' } },
46 my $t1 = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
47 $t1->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
48 $openid_user->add_tradition($t1);
49 $dir->store( $openid_user );
51 my $t2 = Text::Tradition->new( input => 'Tabular', sep_char => ',',
52 file => 't/data/florilegium.csv' );
53 $t2->add_stemma( dotfile => 't/data/florilegium.dot' );
54 $user->add_tradition($t2);