die "Failed to create test tradition #1" unless $t1;
$t1->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
$user->add_tradition( $t1 );
-my $t2 = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
-$t2->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
-$openid_user->add_tradition($t2);
+my $t1b = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
+$t1b->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
+$openid_user->add_tradition($t1b);
$dir->store( $user );
$dir->store( $openid_user );
say "Created test user tradition";
$t2->public( 1 );
$dir->store( $t2 );
my $t3 = Text::Tradition->new( input => 'Self', file => 't/data/john.xml' );
+$t3->collation->change_direction('BI');
$t3->public( 1 );
$t3->name( 'John verse' );
+$user->add_tradition( $t3 );
$dir->store( $t3 );
my $t4 = Text::Tradition->new( input => 'Self', file => 't/data/collatecorr.xml' );
$t4->public( 1 );
$user->add_tradition( $t4 );
$dir->store( $t4 );
+my $t5 = Text::Tradition->new( input => 'Tabular', file => 't/data/arabic_snippet.csv', sep_char => ',', direction => 'RL', name => 'RTL test' );
+$user->add_tradition( $t5 );
+$dir->store( $t5 );
$dir->store( $user );
say "Created test public traditions";