From dbfd352b0d14e9787c02013217a63829bb358f76 Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Thu, 22 Sep 2022 13:34:47 +0200 Subject: [PATCH] MT#54408 test: Remove unneeded arrow operators These are only needed on the first dereference, subsequent ones within the same data structure are implicit. Change-Id: I9f8b8a9b21540affd1ba342bc1b75eb16788fd5e --- testsuite/NGCP_Template_Object.t | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/testsuite/NGCP_Template_Object.t b/testsuite/NGCP_Template_Object.t index 08cfa159..0d41abf4 100644 --- a/testsuite/NGCP_Template_Object.t +++ b/testsuite/NGCP_Template_Object.t @@ -68,13 +68,13 @@ ok(!$obj->has_role('prx01a', 'li'), 'host prx01a does not have li role'); ok(!$obj->has_role('prx01a', 'li_dist'), 'host prx01a does not have li_dist virtual role'); { - local $obj->{config}->{intercept}{enable} = 'yes'; + local $obj->{config}{intercept}{enable} = 'yes'; ok($obj->has_role('prx01a', 'li'), 'host prx01a has li role (with intercept enabled)'); ok(!$obj->has_role('prx01a', 'li_dist'), 'host prx01a does not have li_dist virtual roles (with intercept enabled)'); - local $obj->{config}->{cluster_sets}{type} = 'distributed'; + local $obj->{config}{cluster_sets}{type} = 'distributed'; ok($obj->has_role('prx01a', 'li'), 'host prx01a has li role (with cluster_sets as distributed)'); ok($obj->has_role('prx01a', 'li_dist'), @@ -122,25 +122,25 @@ is($obj->net_ip_expand('1::0'), 'normalize IPv6 1::0'); ## instances -$config->{hosts}->{sp1}->{interfaces} = [ qw(eth0 eth1) ]; -$config->{hosts}->{sp1}{eth0} = { +$config->{hosts}{sp1}{interfaces} = [ qw(eth0 eth1) ]; +$config->{hosts}{sp1}{eth0} = { ip => '172.16.7.1', netmask => '255.255.255.0', type => [ qw(ha_int sip_int) ], }; -$config->{hosts}->{sp1}{eth1} = { +$config->{hosts}{sp1}{eth1} = { cluster_set => [ 'default' ], ip => '172.16.8.1', netmask => '255.255.255.224', type => [ 'sip_ext' ], }; -$config->{hosts}->{sp2}->{interfaces} = [ qw(eth0 eth1) ]; -$config->{hosts}->{sp2}{eth0} = { +$config->{hosts}{sp2}{interfaces} = [ qw(eth0 eth1) ]; +$config->{hosts}{sp2}{eth0} = { ip => '172.16.7.2', netmask => '255.255.255.0', type => [ qw(ha_int sip_int) ], }; -$config->{hosts}->{sp2}{eth1} = { +$config->{hosts}{sp2}{eth1} = { cluster_set => [ 'default' ], ip => '172.16.8.2', netmask => '255.255.255.224',