From: tla <tla@mit.edu>
Date: Wed, 15 Jan 2014 14:47:10 +0000 (+0100)
Subject: fix timezone-related minor test failure
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72c5c55eb89773a23e054fb5bb398193e718808a;p=scpubgit%2Fstemmatology.git

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
--- 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++;