scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-29 09:52:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

script_test: lf_portmod calls allow passing port switch

Browse Source
This commit is contained in:
Jed Reynolds
2019-11-27 13:20:46 -08:00
parent 73353096b8
commit b74f973251
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
script_test.pl
View File

@@ -156,15 +156,16 @@ $tests{'query_port_jsonutils'} = LANforge::Test->new(Name=>'query_port_jsonutils
$tests{'query_port_lfportmod'} = LANforge::Test->new(Name=>'query_port_lfportmod',
Desc=>'query port using lfportmod', Test=>sub {
my $self = pop;
print "\nTrying: ./lf_portmod.pl --manager $::lf_mgr --card $::resource --port_name eth0 --show_port\n";
fail("lf_portmod.pl not found in ".cwd()) if (! -f "./lf_portmod.pl");
my $resp = `./lf_portmod.pl --manager $::lf_mgr --card $::resource --port_name eth0 --show_port`;
print "\nTrying: ./lf_portmod.pl --mgr $::lf_mgr --mgr_port $::lfmgr_port --card $::resource --port_name eth0 --show_port\n";
my $resp = `./lf_portmod.pl --mgr $::lf_mgr --mgr_port $::lfmgr_port --card $::resource --port_name eth0 --show_port`;
if (length($resp) < 250) {
note($resp);
fail("response too short") ;
}
my ($port_ip2) = $resp =~ / IP:\s+([^ ]+) /;
ok(defined $port_ip2);
print "port_ip2: $port_ip2\n";
ok((defined $port_ip2) && length($port_ip2) >= 7);
#$self->test_err("port_ip [$port_ip2] incorrect\n");