epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Last attempt with the netget test before I disable it

Browse Source
This commit is contained in:
Andrew Johnson
2018-11-01 11:56:43 -05:00
parent 7bd55cb233
commit 6fb98c07b0
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/database/test/std/rec/netget.plt
View File

@@ -50,10 +50,14 @@ my $version = $ioc->dbgf("$pv");
like($version, qr/^ \d+ \. \d+ \. \d+ /x,
"Got BaseVersion '$version' from iocsh");
note("CA server configuration:\n",
map(" $_\n", $ioc->cmd('casr', 1)));
my $caget = "$bin/caget$exe";
SKIP: {
skip "caget not available", 1 unless -x $caget;
like(`$caget $pv`, qr/$pv \s+ \Q$version\E/x,
my $caVersion = `$caget $pv`;
like($caVersion, qr/$pv \s+ \Q$version\E/x,
'Got same BaseVersion from caget');
}
@@ -61,9 +65,13 @@ my $pvget = "$bin/pvget$exe";
SKIP: {
skip "softIocPVA not available", 1
if $softIoc eq "$bin/softIoc$exe";
note("PVA server configuration:\n",
map(" $_\n", $ioc->cmd('pvasr')));
skip "pvget not available", 1
unless -x $pvget;
like(`$pvget $pv`, qr/$pv \s .* \Q$version\E/x,
my $pvaVersion = `$pvget $pv`;
like($pvaVersion, qr/$pv \s .* \Q$version\E/x,
'Got same BaseVersion from pvget');
}