[scpubgit/stemmatology.git] / t / text_tradition_parser_tabular.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 $csv = 't/data/florilegium.csv';
my $t = Text::Tradition->new( 
    'name'  => 'inline', 
    'input' => 'Tabular',
    'file'  => $csv,
    'sep_char' => ',',
    );

is( ref( $t ), 'Text::Tradition', "Parsed florilegium CSV file" );

### TODO Check these figures
if( $t ) {
    is( scalar $t->collation->readings, 312, "Collation has all readings" );
    is( scalar $t->collation->paths, 363, "Collation has all paths" );
    is( scalar $t->witnesses, 13, "Collation has all witnesses" );
}
}


1;
Commit	Line	Data
3b853983	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 $csv = 't/data/florilegium.csv';
	17	my $t = Text::Tradition->new(
	18	'name' => 'inline',
	19	'input' => 'Tabular',
	20	'file' => $csv,
	21	'sep_char' => ',',
	22	);
	23
	24	is( ref( $t ), 'Text::Tradition', "Parsed florilegium CSV file" );
	25
	26	### TODO Check these figures
	27	if( $t ) {
1d310495	28	is( scalar $t->collation->readings, 312, "Collation has all readings" );
1d310495	29	is( scalar $t->collation->paths, 363, "Collation has all paths" );
3b853983	30	is( scalar $t->witnesses, 13, "Collation has all witnesses" );
	31	}
	32	}
	33
	34
	35
	36
	37	1;