From: Tara L Andrews <tla@mit.edu>
Date: Tue, 18 Sep 2012 17:29:37 +0000 (+0200)
Subject: add script to generate test DB
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a3fb14365e95b36c0d91c70961ec89994ba3706;hp=50778a5d5940cd9a4acfd7a0ed32398f2c714f7e;p=scpubgit%2Fstemmaweb.git

add script to generate test DB
---

diff --git a/script/maketestdb.pl b/script/maketestdb.pl
new file mode 100755
index 0000000..b6ed6ec
--- /dev/null
+++ b/script/maketestdb.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+use Text::Tradition;
+use Text::Tradition::Directory;
+
+my $DBDIR = 'db';
+my $DBNAME = 'traditions.db';
+my $DBEXT = 'test';
+# Delete the old directory if it exists
+if( -f "$DBDIR/$DBNAME.$DBEXT" ) {
+	unlink( "$DBDIR/$DBNAME.$DBEXT" );
+}
+if( -l "$DBDIR/$DBNAME" ) {
+	unlink( "$DBDIR/$DBNAME" );
+} elsif( -e "$DBDIR/$DBNAME" ) {
+	unlink( "$DBDIR/$DBNAME.bak" ) if -f "$DBDIR/$DBNAME.bak";
+	rename( "$DBDIR/$DBNAME", "$DBDIR/$DBNAME.bak" ) 
+		or die "Could not rename existing $DBNAME";
+} 
+# Set up the test directory
+symlink( "$DBNAME.$DBEXT", "$DBDIR/$DBNAME" ) or die "Could not set up testing db symlink";
+
+my $dir = Text::Tradition::Directory->new(
+	dsn => "dbi:SQLite:dbname=$DBDIR/$DBNAME",
+	extra_args => { create => 1 } 
+	);
+my $scope = $dir->new_scope();
+say "Created test directory";
+
+# 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;
+say "Created users";
+
+my $t1 = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
+die "Failed to create test tradition #1" unless $t1;
+$user->add_tradition( $t1 );
+$dir->store( $user );
+say "Created test user tradition";
+
+my $t2 = Text::Tradition->new( input => 'Tabular', sep_char => ',', 
+	file => 't/data/florilegium.csv' );
+$t2->add_stemma( dotfile => 't/data/florilegium.dot' );
+die "Failed to create test tradition #2" unless $t2;
+$t2->public( 1 );
+$dir->store( $t2 );
+say "Created test public tradition";
+