Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

AJNN / Neo4j-Driver-0.26 / t / summary.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
114
115
116
117
118
119
120
121
122

              
#!perl
use strict;
use warnings;
use lib qw(./lib t/lib);
my $driver;
use Neo4j_Test;
BEGIN {
        unless ( $driver = Neo4j_Test->driver() ) {
                print qq{1..0 # SKIP no connection to Neo4j server\n};
                exit;
        }
}
my $s = $driver->session;  # only for autocommit transactions
# These tests are for the result summary and statistics.
use Test::More 0.96 tests => 5 + 2;
use Test::Exception;
use Test::Warnings;
my $transaction = $driver->session->begin_transaction;
my ($q, $r, $c);
subtest 'ResultSummary' => sub {
        plan tests => 11;
        $q = <<END;
RETURN {fortytwo}
END
        my @params = (fortytwo => 42);
        lives_ok { $r = $s->run($q, @params)->summary; } 'get summary';
        isa_ok $r, 'Neo4j::Driver::ResultSummary', 'ResultSummary';
        isa_ok $r->server, 'Neo4j::Driver::ServerInfo', 'ServerInfo';
        my $param_start = $s->{cypher_params_v2} ? '\$' : '\{';
        lives_and { like $r->statement->{text}, qr/RETURN ${param_start}fortytwo\b/ } 'statement text';
        lives_and { is_deeply $r->statement->{parameters}, {@params} } 'statement params';
        lives_and { ok ! $r->plan; } 'no plan';
        lives_and { is_deeply [$r->notifications], []; } 'no notification';
#       diag explain $r;
        $q = <<END;
EXPLAIN MATCH (n), (m) RETURN n, m
END
        lives_ok { $r = $s->run($q)->summary; } 'get summary with plan';
        lives_and { is_deeply $r->statement->{parameters}, {} } 'no params';
        my ($plan, @notifications);
        TODO: { local $TODO = 'plan/notifications not yet implemented for Bolt' if $Neo4j_Test::bolt;
        lives_and { ok $plan = $r->plan; } 'get plan';
        lives_and { ok @notifications = $r->notifications; } 'get notifications';
        # NB: the server is a bit unreliable in providing notifications; if there are problems with this test, restarting the server usually helps
        }
};
subtest 'SummaryCounters: from result' => sub {
        plan tests => 4;
        $q = <<END;
RETURN 42
END
        lives_ok { $r = $s->run($q); } 'run query';
        lives_ok { $c = $r->summary->counters; } 'get counters';
        isa_ok $c, 'Neo4j::Driver::SummaryCounters', 'summary counters';
        lives_and { ok ! $c->contains_updates } 'contains_updates counter';
};
subtest 'SummaryCounters: from single' => sub {
        plan tests => 4;
        $q = <<END;
RETURN 42
END
        lives_ok { $r = $s->run($q)->single; } 'run query';
        lives_ok { $c = $r->summary->counters; } 'get counters';
        isa_ok $c, 'Neo4j::Driver::SummaryCounters', 'summary counters';
        lives_and { ok ! $c->contains_updates } 'contains_updates counter';
};
subtest 'SummaryCounters: updates, properties, labels' => sub {
        plan tests => 4;
        $q = <<END;
CREATE (n)
SET n:Universal:Answer
SET n.value = 42, n.origin = 'Deep Thought'
REMOVE n:Answer
SET n = {}
END
        $c = $transaction->run($q)->summary->counters;
        ok $c->contains_updates, 'contains_updates counter';
        is $c->properties_set, 4, 'properties_set counter';
        is $c->labels_added, 2, 'labels_added counter';
        is $c->labels_removed, 1, 'labels_removed counter';
};
subtest 'SummaryCounters: nodes, relationships' => sub {
        plan tests => 4;
        $q = <<END;
CREATE (d:DeepThought)-[r1:GIVES]->(a:UniversalAnswer)
CREATE (a)-[r2:ORIGIN]->(d)
CREATE (a)-[:ANSWERS]->(q:UniversalQuestion)
DELETE r1, r2, d
END
        $c = $transaction->run($q)->summary->counters;
        is $c->nodes_created, 3, 'nodes_created counter';
        is $c->nodes_deleted, 1, 'nodes_deleted counter';
        is $c->relationships_created, 3, 'relationships_created counter';
        is $c->relationships_deleted, 2, 'relationships_deleted counter';
};
#subtest 'SummaryCounters: constraints, indexes' => sub {
#};
CLEANUP: {
        lives_ok { $transaction->rollback } 'rollback';
}
done_testing;