make svg background transparent; fix test for TEI bugfix

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index c5bb6a1..f0c7025 100644 (file)
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -419,7 +419,7 @@ sub as_dot {
     $graph_name = join( '_', split( /\s+/, $graph_name ) );
     my $dot = sprintf( "digraph %s {\n", $graph_name );
     $dot .= "\tedge [ arrowhead=open ];\n";
-    $dot .= "\tgraph [ rankdir=LR ];\n";
+    $dot .= "\tgraph [ rankdir=LR,bgcolor=none ];\n";
     $dot .= sprintf( "\tnode [ fontsize=%d, fillcolor=%s, style=%s, shape=%s ];\n",
                      11, "white", "filled", "ellipse" );
 

diff --git a/lib/Text/Tradition/Parser/TEI.pm b/lib/Text/Tradition/Parser/TEI.pm
index 6b9734f..2fb91d2 100644 (file)
--- a/lib/Text/Tradition/Parser/TEI.pm
+++ b/lib/Text/Tradition/Parser/TEI.pm
@@ -63,7 +63,7 @@ my $t = Text::Tradition->new(
 is( ref( $t ), 'Text::Tradition', "Parsed parallel-segmentation TEI" );
 if( $t ) {
     is( scalar $t->collation->readings, 319, "Collation has all readings" );
-    is( scalar $t->collation->paths, 374, "Collation has all paths" );
+    is( scalar $t->collation->paths, 375, "Collation has all paths" );
 }
 
 =end testing

diff --git a/t/01app.t b/t/01app.t
index 769d341..0c9cfda 100644 (file)
--- a/t/01app.t
+++ b/t/01app.t
@@ -24,7 +24,7 @@ ok( $tradition->collation, "Tradition has a collation" );
 
 my $c = $tradition->collation;
 is( scalar $c->readings, 319, "Collation has all readings" );
-is( scalar $c->paths, 374, "Collation has all paths" );
+is( scalar $c->paths, 375, "Collation has all paths" );
 is( scalar $c->relationships, 0, "Collation has all relationships" );
 
 done_testing;
\ No newline at end of file

diff --git a/t/text_tradition_parser_tei.t b/t/text_tradition_parser_tei.t
index 05c9763..df9cb3f 100644 (file)
--- a/t/text_tradition_parser_tei.t
+++ b/t/text_tradition_parser_tei.t
@@ -23,7 +23,7 @@ my $t = Text::Tradition->new(
 is( ref( $t ), 'Text::Tradition', "Parsed parallel-segmentation TEI" );
 if( $t ) {
     is( scalar $t->collation->readings, 319, "Collation has all readings" );
-    is( scalar $t->collation->paths, 374, "Collation has all paths" );
+    is( scalar $t->collation->paths, 375, "Collation has all paths" );
 }
 }