File: 12-ip.t

package info (click to toggle)
libsys-hostip-perl 2.120-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 240 kB
  • sloc: perl: 487; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 314 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!perl

use strict;
use warnings;
use t::lib::Utils qw/mock_linux_hostip base_tests/;

use Test::More;
use Sys::HostIP;

if ($^O =~ qr/(linux)/x) {
    plan tests =>  11;
    my $hostip = mock_linux_hostip('ip-linux.txt');
    base_tests($hostip);
}
else {
    plan skip_all => 'these tests are only for Linux';
}