Demonstrate failure mode for issue #28

diff --git a/base/lib/Text/Tradition/Parser/Self.pm b/base/lib/Text/Tradition/Parser/Self.pm
index dbf3ece..68cf6aa 100644 (file)
--- a/base/lib/Text/Tradition/Parser/Self.pm
+++ b/base/lib/Text/Tradition/Parser/Self.pm
@@ -159,8 +159,19 @@ unless( $stemma_enabled ) {
                $nst = Text::Tradition->new( 'input' => 'Self', 'file' => 't/data/lexformat.xml' );
        } [qr/DROPPING stemmata/],
                "Got expected stemma drop warning on parse";
+} else {
+       # Test parse of existing Stemweb job id
+       $t->set_stemweb_jobid( '1234' );
+       $graphml_str = $t->collation->as_graphml;
+       try {
+               $newt = Text::Tradition->new( 'input' => 'Self', 'string' => $graphml_str );
+               is( $newt->stemweb_jobid, '1234', "Stemweb job ID was reparsed" );
+       } catch {
+               ok( 0, "Existing stemweb job ID causes parser to explode" );
+       }
 }
 
+
 =end testing
 
 =cut

diff --git a/base/t/text_tradition_parser_self.t b/base/t/text_tradition_parser_self.t
index df36d06..b2e5bba 100644 (file)
--- a/base/t/text_tradition_parser_self.t
+++ b/base/t/text_tradition_parser_self.t
@@ -72,6 +72,16 @@ unless( $stemma_enabled ) {
                $nst = Text::Tradition->new( 'input' => 'Self', 'file' => 't/data/lexformat.xml' );
        } [qr/DROPPING stemmata/],
                "Got expected stemma drop warning on parse";
+} else {
+       # Test parse of existing Stemweb job id
+       $t->set_stemweb_jobid( '1234' );
+       $graphml_str = $t->collation->as_graphml;
+       try {
+               $newt = Text::Tradition->new( 'input' => 'Self', 'string' => $graphml_str );
+               is( $newt->stemweb_jobid, '1234', "Stemweb job ID was reparsed" );
+       } catch {
+               ok( 0, "Existing stemweb job ID causes parser to explode" );
+       }
 }
 }