keep analysis scripts out of CPAN; make CHANGES file; increment versions for release

[scpubgit/stemmatology.git] / morphology / t / lexeme_serialize.t

use lib 'lib';
use strict;
use warnings;
use Safe::Isa;
use Test::More;
use Text::Tradition;

eval "use Flemm";
plan skip_all => "Flemm 3.1 required" if $@;

binmode( STDOUT, ':utf8' );
binmode( STDERR, ':utf8' );

my $tf = Text::Tradition->new(
	'input' => 'Self',
	'file' => 't/data/besoin.xml',
	'language' => 'French' );
	
$tf->lemmatize();
my $graphmlstr = $tf->collation->as_graphml;
like( $graphmlstr, qr/graphml xmlns/, 
	"Serialized tradition after lemmatization" );
like( $graphmlstr, qr/lexemes/, "Serialization contains lexeme info" );

my $tf2 = Text::Tradition->new(
	input => 'Self',
	string => $graphmlstr,
	language => 'French' );

ok( $tf2->$_isa('Text::Tradition'), "Re-parsed tradition with lemmatization" );
is( $tf->name, $tf2->name, "Traditions have same name" );
foreach my $r ( $tf->collation->readings ) {
	my $r2 = $tf2->collation->reading( $r->id );
	ok( $r2->$_isa('Text::Tradition::Collation::Reading'),
		"Reading $r exists in new tradition" );
	if( $r2 ) {
		is( scalar $r->lexemes, scalar $r2->lexemes,
			"Same number of lexemes in new tradition for $r" );
	}
}

# Test a snippet of tradition with possibly-problematic saved lexemes
my $tf3 = Text::Tradition->new(
	'input' => 'Self',
	'file' => 't/data/lexformat.xml' );
ok( $tf3->$_isa('Text::Tradition'), 
	"Successfully parsed tradition with incomplete lexemes" );

done_testing();