FIBO / PNI-0.21.1 / t / _scenario.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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113

              
use strict;
use warnings;
use PNI::Scenario;
use Test::More tests => 28;
my $scenario = PNI::Scenario->new;
isa_ok $scenario, 'PNI::Scenario';
is $scenario->comments->list,  0, 'default comments';
is $scenario->nodes->list,     0, 'default nodes';
is $scenario->edges->list,     0, 'default edges';
is $scenario->scenarios->list, 0, 'default scenarios';
# Add a sub scenario.
my $scen = $scenario->add_scenario;
isa_ok $scen, 'PNI::Scenario', 'add_scenario';
# Add two nodes.
my $node1 = $scen->add_node;
isa_ok $node1, 'PNI::Node', 'add_node';
my $node2 = $scen->add_node;
is $scen->nodes->list, 2, 'nodes list';
# Connect nodes with an edge.
my $source1 = $node1->out;
my $target1 = $node2->in;
my $edge = $scen->add_edge( source => $source1, target => $target1 );
isa_ok $edge , 'PNI::Edge', 'add_edge';
is $scen->edges->list, 1, 'edges list';
my $comment1 = $scen->add_comment;
isa_ok $comment1, 'PNI::Comment', 'add_comment';
my $comment2 = $scen->add_comment;
is $scen->comments->list, 2, 'comments list';
$scen->del_comment($comment1);
ok !exists $scen->comments->{ $comment1->id }, 'del_comment';
# Create another node to have a chain like this:
# node1 --> node2 --> node3
my $node3   = $scen->add_node;
my $source2 = $node2->out;
my $target2 = $node3->in;
$scen->add_edge( source => $source2, target => $target2 );
# Delete node2: this should also delete its edges.
$scen->del_node($node2);
is $scen->nodes->list, 2, 'del_node';
is $scen->edges->list, 0, 'del_node cleans edges';
# TODO
# my $content = {roba presa da un .pni file}
# $scen->add_scenario($content);
# per ora faccio solo
# Create another edge, then delete it.
my $edge2 = $scen->add_edge( source => $source1, target => $target2 );
$scen->del_edge($edge2);
ok !$source1->is_connected, 'del_edge cleans source';
ok !$target2->is_connected, 'del_edge cleans target';
# Use a test node, which output is twice of input.
#
# its path is t/PNI/Node/Twice.pm
use lib 't';
my $n1 = $scen->add_node('Twice');
my $n2 = $scen->add_node('Twice');
my $n3 = $scen->add_node('Twice');
my $n4 = $scen->add_node('Twice');
my $i1 = $n1->in;
my $o1 = $n1->out;
my $i2 = $n2->in;
my $o2 = $n2->out;
my $i3 = $n3->in;
my $o3 = $n3->out;
my $i4 = $n4->in;
my $o4 = $n4->out;
my $num = rand(100);
$i1->data($num);
$scen->add_edge( source => $o1, target => $i2 );
$scen->add_edge( source => $o2, target => $i3 );
$scen->add_edge( source => $o3, target => $i4 );
$scen->task;
is $o4->data, 16 * $num, 'task';
# Again, starting with 1.
$i1->data(1);
# Turning off n3 ...
$n3->off;
$scen->task;
# ... n4 should be off
ok !$n4->is_on, 'n4 is off cause n3 is off';
is $o1->data, 2, 'o1';
is $o2->data, 4, 'o2';
is $o3->data, 8 * $num,  'o3 has the same data';
is $o4->data, 16 * $num, 'o4 has the same data';
# Delete sub scenario.
$scenario->del_scenario($scen);
is $scenario->scenarios->list, 0, 'del_scenario';
is $scen->comments->list,      0, 'del_scenario cleans comments';
is $scen->edges->list,         0, 'del_scenario cleans edges';
is $scen->nodes->list,         0, 'del_scenario cleans nodes';
is $scen->scenarios->list,     0, 'del_scenario cleans scenarios';