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

#!/usr/bin/perl -w

use strict;
use Test::More 'no_plan';
$| = 1;


# =begin testing
{
use Text::Tradition;
binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";
eval { no warnings; binmode $DB::OUT, ":utf8"; };

my $cxfile = 't/data/Collatex-16.xml';
my $t = Text::Tradition->new( 
    'name'  => 'inline', 
    'input' => 'CollateX',
    'file'  => $cxfile,
    );

is( ref( $t ), 'Text::Tradition', "Parsed our own GraphML" );
if( $t ) {
    is( scalar $t->collation->readings, 26, "Collation has all readings" );
    is( scalar $t->collation->paths, 49, "Collation has all paths" );
    is( scalar $t->witnesses, 3, "Collation has all witnesses" );
    
    # Check an 'identical' node
    my $transposed = $t->collation->reading( 'n15' );
    ok( $transposed->has_primary, "Reading links to transposed primary" );
    is( $transposed->primary->name, 'n17', "Correct transposition link" );
}
}


1;
Commit	Line	Data
e867486f	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use Test::More 'no_plan';
	5	$\| = 1;
	6
	7
	8
	9	# =begin testing
	10	{
	11	use Text::Tradition;
	12	binmode STDOUT, ":utf8";
	13	binmode STDERR, ":utf8";
	14	eval { no warnings; binmode $DB::OUT, ":utf8"; };
	15
	16	my $cxfile = 't/data/Collatex-16.xml';
	17	my $t = Text::Tradition->new(
	18	'name' => 'inline',
	19	'input' => 'CollateX',
	20	'file' => $cxfile,
	21	);
	22
	23	is( ref( $t ), 'Text::Tradition', "Parsed our own GraphML" );
	24	if( $t ) {
	25	is( scalar $t->collation->readings, 26, "Collation has all readings" );
	26	is( scalar $t->collation->paths, 49, "Collation has all paths" );
	27	is( scalar $t->witnesses, 3, "Collation has all witnesses" );
	28
	29	# Check an 'identical' node
	30	my $transposed = $t->collation->reading( 'n15' );
	31	ok( $transposed->has_primary, "Reading links to transposed primary" );
	32	is( $transposed->primary->name, 'n17', "Correct transposition link" );
	33	}
	34	}
	35
	36
	37
	38
	39	1;