diff options
Diffstat (limited to 'src/tcpclient/__tcpclient_properties__.cc')
| -rw-r--r-- | src/tcpclient/__tcpclient_properties__.cc | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/tcpclient/__tcpclient_properties__.cc b/src/tcpclient/__tcpclient_properties__.cc index a9e64aa..624e462 100644 --- a/src/tcpclient/__tcpclient_properties__.cc +++ b/src/tcpclient/__tcpclient_properties__.cc @@ -158,9 +158,13 @@ Undocumented internal function.\n\ } #if 0 %!shared ip -%! ip = resolvehost("www.octave.org", "address"); +%! try +%! ip = resolvehost("www.octave.org", "address"); +%! catch +%! warning ("Network access is neede for running the unit tests."); +%! end_try_catch -%!test +%!xtest %! # test get %! a = tcpclient (ip, 80); %! assert (__tcpclient_properties__ (a,"type"), "tcpclient"); @@ -172,7 +176,7 @@ Undocumented internal function.\n\ %! fail ("__tcpclient_properties__ (a,'invalid')", "invalid property name"); %! clear a -%!test +%!xtest %! # test set %! a = tcpclient(ip, 80); %! __tcpclient_properties__ (a, 'name', "mytest"); @@ -180,7 +184,7 @@ Undocumented internal function.\n\ %! fail ("__tcpclient_properties__ (a,'invalid', 1)", "invalid property name"); %! clear a -%!test +%!xtest %! # test flush %! a = tcpclient(ip, 80); %! __tcpclient_properties__ (a, 'flush', 0); @@ -194,7 +198,7 @@ Undocumented internal function.\n\ %!error <wrong number of arguments> __tcpclient_properties__ (1) -%!test +%!xtest %! a = tcpclient (ip, 80); %! fail ("__tcpclient_properties__ (a, 'name', 'test', 0)", "wrong number of arguments"); %! clear a |