diff options
| author | Francois Perrad <francois.perrad@gadz.org> | 2013-04-15 13:37:35 +0200 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-04-19 09:18:37 +1000 |
| commit | 92fd341d686f8070e93bb8b19656c69b82966d3d (patch) | |
| tree | b4186d0b7e9117deec049351dca8649da09d292c | |
| parent | 085b2bf84ccfcb326dbdec9439d6c36861c3c5f7 (diff) | |
| download | perl-92fd341d686f8070e93bb8b19656c69b82966d3d.tar.gz | |
fix dist/IO/t/cachepropagate-unix.t
same fix as in the last commit in cachepropagate-udp.t
Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
| -rw-r--r-- | dist/IO/t/cachepropagate-unix.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/dist/IO/t/cachepropagate-unix.t b/dist/IO/t/cachepropagate-unix.t index 30c8473ce3..228083a783 100644 --- a/dist/IO/t/cachepropagate-unix.t +++ b/dist/IO/t/cachepropagate-unix.t @@ -50,10 +50,14 @@ SKIP: { is($new->sockdomain(), $d, 'domain match'); SKIP: { skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL }); + skip "SO_PROTOCOL defined but not implemented", 1 + if !defined $new->sockopt(Socket::SO_PROTOCOL); is($new->protocol(), $p, 'protocol match'); } SKIP: { skip "no Socket::SO_TYPE", 1 if !defined(eval { Socket::SO_TYPE }); + skip "SO_TYPE defined but not implemented", 1 + if !defined $new->sockopt(Socket::SO_TYPE); is($new->socktype(), $s, 'type match'); } @@ -82,10 +86,14 @@ SKIP: { is($new->sockdomain(), $d, 'domain match'); SKIP: { skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL }); + skip "SO_PROTOCOL defined but not implemented", 1 + if !defined $new->sockopt(Socket::SO_PROTOCOL); is($new->protocol(), $p, 'protocol match'); } SKIP: { skip "no Socket::SO_TYPE", 1 if !defined(eval { Socket::SO_TYPE }); + skip "SO_TYPE defined but not implemented", 1 + if !defined $new->sockopt(Socket::SO_TYPE); is($new->socktype(), $s, 'type match'); } } |