refactor English/French shared TT logic into Base.pm

[scpubgit/stemmatology.git] / t / text_tradition_language_french.t

diff --git a/t/text_tradition_language_french.t b/t/text_tradition_language_french.t
index 01b206b..84e9d02 100644 (file)
--- a/t/text_tradition_language_french.t
+++ b/t/text_tradition_language_french.t
@@ -45,7 +45,7 @@ SKIP: {
        is( $ambig, 102, "Found 102 ambiguous forms as expected" );
        
        # Try setting the normal form of a reading and re-analyzing
-       my $mr = $tf->collation->reading('99,2');
+       my $mr = $tf->collation->reading('r99.2');
        is( $mr->text, 'minspire', "Picked correct test reading" );
        is( $mr->language, 'French', "Reading has correct language setting" );
        $mr->normal_form( "m'inspire" );