', 'node 2 blessed';
{ no warnings 'deprecated'; # id()
is $n1->id, $id, 'node 1 id matches';
isnt $n2->id, $n1->id, 'node 2 id distinct';
}
is $n1->get('test'), 'node1', 'node 1 get';
is $n2->
ssed';
{ no warnings 'deprecated'; # id()
is $e1->id, $r0->get('id(e1)'), 'rel 1 id matches';
isnt $e2->id, $e1->id, 'rel 2 id distinct';
is $e1->properties->{test}, 'rel1', 'rel 1 properties';
ecated'; # id()
is $nodes[0]->id, $nodes[2]->id, 'path circular';
isnt $nodes[0]->id, $nodes[1]->id, 'nodes distinct';
isnt $rels[0]->id, $rels[1]->id, 'rels distinct';
}
my @all_exp = ($no
true';
ok !! $v, 'Boolean truthy';
isnt ref($v), '', 'ref true';
lives_ok { $v = undef; $v = $r->fetch->get() } 'Boolean false';
ok ! $v, 'Boolean falsy';
isnt ref($v), '', 'ref false';
lives_an
true';
ok !! $v, 'Boolean truthy';
isnt ref($v), '', 'ref true';
lives_ok { $v = undef; $v = $r->fetch->get() } 'Boolean false';
ok ! $v, 'Boolean falsy';
isnt ref($v), '', 'ref false';
lives_an
path relationships';
is scalar(@r), 1, 'path length';
isa_ok $r[0], 'REST::Neo4p::Relationship', 'relationship';
lives_and { isnt $r[0]->type, undef } 'relationship type';
}
};
done_testing;