t/text_tradition_parser_tabular.t

   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 ) {
  28     is( scalar $t->collation->readings, 313, "Collation has all readings" );
  29     is( scalar $t->collation->paths, 2877, "Collation has all paths" );
  30     is( scalar $t->witnesses, 13, "Collation has all witnesses" );
  31 }
  32 }
  33
  34
  35
  36
  37 1;