#!/usr/bin/env perl
BEGIN { use_ok(
'Treex::Core::Bundle'
) }
my
$document
= Treex::Core::Document->new;
my
$bundle
=
$document
->create_bundle();
isa_ok(
$bundle
,
'Treex::Core::Bundle'
);
isa_ok(
$bundle
->get_document(),
'Treex::Core::Document'
);
ok(
defined
$bundle
->id,
'defined bundle id'
);
my
@layers
= Treex::Core::Types::layers();
foreach
my
$layer
(
@layers
) {
my
$success
=
eval
{
$bundle
->create_tree(
'cs'
,
$layer
); 1; };
ok(
$success
,
"Czech $layer-tree successfully created"
) or diag($@);
SKIP: {
skip
"There is no tree cs $layer"
, 2
unless
$success
;
ok(
$bundle
->has_tree(
'cs'
,
$layer
),
"Bundle contains recently added tree cs $layer"
);
isa_ok(
$bundle
->get_tree(
'cs'
,
$layer
),
"Treex::Core::Node::$layer"
);
}
}
ok( !
$bundle
->has_tree(
'en'
,
'T'
),
"Bundle doesn't contains tree, that wasn't added"
);
is_deeply(
$bundle
->get_tree(
'cs'
,
'T'
),
$bundle
->get_zone(
'cs'
)->get_ttree(),
'get_tree("cs", "T") is a shortcut for get_zone("cs")->get_ttree()'
);
done_testing();