t/01app.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use lib 'lib';
   5 use Test::More;
   6 use Text::Tradition;
   7
   8 binmode STDOUT, ":utf8";
   9 binmode STDERR, ":utf8";
  10 eval { no warnings; binmode $DB::OUT, ":utf8"; };
  11
  12 BEGIN { use_ok 'Text::Tradition' }
  13
  14 # A simple test, just to make sure we can parse a graph.
  15 my $datafile = 't/data/florilegium_tei_ps.xml';
  16 my $tradition = Text::Tradition->new( 'input' => 'TEI',
  17                                       'name' => 'test0',
  18                                       'file' => $datafile,
  19                                       'linear' => 1 );
  20
  21 ok( $tradition, "Got a tradition object" );
  22 is( scalar $tradition->witnesses, 13, "Found all witnesses" );
  23 ok( $tradition->collation, "Tradition has a collation" );
  24
  25 my $c = $tradition->collation;
  26 is( scalar $c->readings, 311, "Collation has all readings" );
  27 is( scalar $c->paths, 361, "Collation has all paths" );
  28 is( scalar $c->relationships, 0, "Collation has all relationships" );
  29
  30 done_testing;