From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

TKR / Treex-Core-0.08302_1 / t / backrefs.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

              
#!/usr/bin/env perl
use strict;
use warnings;
use Treex::Core;
use Test::More tests => 14;
my $filename = 'test.treex';
my $doc    = Treex::Core::Document->new();
my $bundle = $doc->create_bundle();
my $zone   = $bundle->create_zone('en');
my $ttree  = $zone->create_ttree();
my $atree  = $zone->create_atree();
my $anode  = $atree->create_child( { ord => 1 } );
my $tnode  = $ttree->create_child( { ord => 1 } );
$tnode->set_lex_anode($anode);
is( $tnode->get_lex_anode(), $anode, '$tnode->get_lex_anode returns $anode' );
my ($back_tnode) = $anode->get_referencing_nodes('a/lex.rf');
is( $back_tnode, $tnode, '$anode->get_referencing_nodes("a/lex.rf") returns $tnode' );
$anode->remove();
my @anodes = $atree->get_children();
ok( !@anodes, '$anode was removed' );
my $lex_anode = $tnode->get_lex_anode();
is( $lex_anode, undef, '$tnode->get_lex_anode() returns undef' );
my $t2 = $ttree->create_child( { ord => 2 } );
my $t3 = $ttree->create_child( { ord => 3 } );
$tnode->add_coref_gram_nodes($t2);
is_deeply([$tnode->get_coref_gram_nodes()], [$t2], '$tnode->get_coref_gram_nodes() returns $t2');
is_deeply([$t2->get_referencing_nodes('coref_gram.rf')], [$tnode], '$t2->get_referencing_nodes("coref_gram.rf") returns $tnode');
# Try set_attr instead of $t2->add_coref_text_nodes($t3);
$t2->set_attr('coref_text.rf', [$t3->id]);
is_deeply([$t2->get_coref_text_nodes()], [$t3], '$t2->get_coref_text_nodes() returns $t3');
is_deeply([$t3->get_referencing_nodes('coref_text.rf')], [$t2], '$t3->get_referencing_nodes("coref_text.rf") returns $t2');
$t2->remove();
is_deeply([$tnode->get_coref_gram_nodes()], [], 'after deleting $t2: $tnode->get_coref_gram_nodes() returns ()');
is_deeply([$t3->get_referencing_nodes('coref_text.rf')], [], '$t3->get_referencing_nodes("coref_text.rf") returns ()');
my $anode2 = $atree->create_child( { ord => 1 } );
$tnode->set_lex_anode($anode2);
ok( $doc->save($filename), 'new anode added as a/lex.rf and the doc was saved' );
my $l_doc = Treex::Core::Document->new( { 'filename' => $filename } );
ok( $l_doc, 'document loaded' );
my ($l_bundle) = $l_doc->get_bundles();
my ($l_tnode)  = $l_bundle->get_zone('en')->get_ttree->get_children;
my ($l_anode)  = $l_bundle->get_zone('en')->get_atree->get_children;
is( $l_tnode->get_lex_anode(), $l_anode, '$tnode->get_lex_anode returns $anode' );
my ($l_back_tnode) = $l_anode->get_referencing_nodes('a/lex.rf');
is( $l_back_tnode, $l_tnode, '$anode->get_referencing_nodes("a/lex.rf") returns $tnode' );
unlink $filename;
#done_testing();