#!/usr/bin/env perl
use strict;
use warnings;
use Treex::Core;
use Test::More tests => 6;
my $doc = Treex::Core::Document->new;
my $sample_text = 'Testing text sentence 1. Testing test sentence 2.';
# creating zones
my $zone1 = $doc->create_zone( 'en', 'S' );
isa_ok( $zone1, 'Treex::Core::DocZone', 'Created zone w/ std selector - S' );
isa_ok( eval { $doc->create_zone('en') }, 'Treex::Core::DocZone', 'Created zone w/ no selector' );
isa_ok( eval { $doc->create_zone( 'en', 'Svariant2' ) }, 'Treex::Core::DocZone', 'Created zone w/ arbitrary selector - Svariant2' );
# accessing created zones
my $zone2 = $doc->get_zone( 'en', 'S' );
cmp_ok( $doc->get_zone( 'en', 'S' ), 'eq', $zone1, 'created zone found by get_zone' );
# accessing zone attributes
$zone1->set_attr( 'text', $sample_text );
my $same_zone = $doc->get_zone( 'en', 'S' );
cmp_ok( $same_zone->get_attr('text'), 'eq', $sample_text, 'document zone attribute correctly stored in memory' );
# checking file-storing persistency of zones and their attributes
my $filename = 'test.treex';
$doc->save($filename);
my $doc2 = Treex::Core::Document->new( { filename => $filename } );
cmp_ok( $doc2->get_zone( 'en', 'S' )->get_attr('text'), 'eq', $sample_text, 'document zone attribute correctly stored in a file' );
unlink $filename;