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
mr11.1
Guillem Jover 4 years ago
parent 4d66236133
commit dbfd352b0d

@ -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',

Loading…
Cancel
Save