X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_collation.t;h=04e0332526ced04f9d48985883705d6a8b58b914;hb=3d14b48ee0a2081fb622df2e5fa67c1dbeae3dd7;hp=59e019cfc8a53bac66418b734458cf5c043f143a;hpb=c1915ab92db09d28aa270d86e5910a103d4f98cd;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_collation.t b/t/text_tradition_collation.t
index 59e019c..04e0332 100644
--- a/t/text_tradition_collation.t
+++ b/t/text_tradition_collation.t
@@ -80,28 +80,6 @@ my $t = Text::Tradition->new(
     );
 my $c = $t->collation;
 
-isnt( $c->reading('n23')->rank, $c->reading('n9')->rank, "Rank skew exists" );
-$c->add_relationship( 'n23', 'n9', { 'type' => 'collated', 'scope' => 'local' } );
-is( scalar $c->relationships, 4, "Found all expected relationships" );
-$c->remove_collations;
-is( scalar $c->relationships, 3, "Collated relationships now gone" );
-is( $c->reading('n23')->rank, $c->reading('n9')->rank, "Aligned ranks were preserved" );
-}
-
-
-
-# =begin testing
-{
-use Text::Tradition;
-
-my $cxfile = 't/data/Collatex-16.xml';
-my $t = Text::Tradition->new( 
-    'name'  => 'inline', 
-    'input' => 'CollateX',
-    'file'  => $cxfile,
-    );
-my $c = $t->collation;
-
 my @common = $c->calculate_common_readings();
 is( scalar @common, 8, "Found correct number of common readings" );
 my @marked = sort $c->common_readings();