fix timezone-related minor test failure

diff --git a/analysis/lib/Text/Tradition/HasStemma.pm b/analysis/lib/Text/Tradition/HasStemma.pm
index aec811a..8c508b9 100644 (file)
--- a/analysis/lib/Text/Tradition/HasStemma.pm
+++ b/analysis/lib/Text/Tradition/HasStemma.pm
@@ -147,7 +147,7 @@ is( $newst->[0], $t->stemma(0), "Answer has the right object" );
 ok( !$t->has_stemweb_jobid, "Job ID was removed from tradition" );
 is( $t->stemma_count, 1, "Tradition has new stemma" );
 ok( $t->stemma(0)->is_undirected, "New stemma is undirected as it should be" );
-is( $t->stemma(0)->identifier, "RHM 1382777054_0", "Stemma has correct identifier" );
+is( $t->stemma(0)->identifier, "RHM 1382784254_0", "Stemma has correct identifier" );
 is( $t->stemma(0)->from_jobid, 4, "New stemma has correct associated job ID" );
 
 
@@ -164,7 +164,7 @@ sub record_stemweb_result {
        } elsif( $answer->{format} eq 'newick' ) {
                $stemmata = Text::Tradition::Stemma->new_from_newick( $answer->{result} );
                my $title = sprintf( "%s %d", $answer->{algorithm}, 
-                       str2time( $answer->{start_time} ) );
+                       str2time( $answer->{start_time}, 'UTC' ) );
                my $i = 0;
                foreach my $stemma ( @$stemmata ) {
                        my $ititle = $title . "_$i"; $i++;