X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_directory.t;h=2e18c207e2b28b60ea73677f9f272759976a0ffb;hb=e0d617e67dccc575f17f29b833b7327a1dd5d92a;hp=e4de126abfab534a132f3e81aa79315dc614c833;hpb=56455620e2e89a240af0ad23d4fc0cc211b3ccf9;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_directory.t b/t/text_tradition_directory.t
index e4de126..2e18c20 100644
--- a/t/text_tradition_directory.t
+++ b/t/text_tradition_directory.t
@@ -36,7 +36,7 @@ my $t = Text::Tradition->new(
 	my $s = $t->add_stemma( dotfile => 't/data/simple.dot' );
 	ok( $d->save( $t ), "Updated tradition with stemma" );
 	is( $d->tradition( $uuid ), $t, "Correct tradition returned for id" );
-	is( $d->tradition( $uuid )->stemma, $s, "...and it has the correct stemma" );
+	is( $d->tradition( $uuid )->stemma(0), $s, "...and it has the correct stemma" );
 	try {
 		$d->save( $s );
 	} catch( Text::Tradition::Error $e ) {
@@ -61,7 +61,7 @@ is( ref( $nt ), 'Text::Tradition', "Made new tradition" );
 	is( scalar $f->tradition_ids, 2, "Directory index has both traditions" );
 	my $tf = $f->tradition( $uuid );
 	is( $tf->name, $t->name, "Retrieved the tradition from a new directory" );
-	my $sid = $f->object_to_id( $tf->stemma );
+	my $sid = $f->object_to_id( $tf->stemma(0) );
 	try {
 		$f->tradition( $sid );
 	} catch( Text::Tradition::Error $e ) {