4 use Test::More 'no_plan';
13 my $cxfile = 't/data/Collatex-16.xml';
14 my $t = Text::Tradition->new(
16 'input' => 'CollateX',
19 my $c = $t->collation;
21 is( $c->common_predecessor( $c->reading('n9'), $c->reading('n23') )->id,
22 'n20', "Found correct common predecessor" );
23 is( $c->common_successor( $c->reading('n9'), $c->reading('n23') )->id,
24 '#END#', "Found correct common successor" );
26 is( $c->common_predecessor( $c->reading('n19'), $c->reading('n17') )->id,
27 'n16', "Found correct common predecessor for readings on same path" );
28 is( $c->common_successor( $c->reading('n21'), $c->reading('n26') )->id,
29 '#END#', "Found correct common successor for readings on same path" );