File: 01-basic.t

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

use Perl::osnames qw($data is_posix is_unix);
use Test::More 0.98;

subtest is_posix => sub {
    ok( is_posix('linux'));
    ok(!is_posix('MSWin32'));
    ok(!defined(is_posix('foo')));
};

subtest is_unix => sub {
    ok( is_unix('linux'));
    ok(!is_unix('MSWin32'));
    ok(!defined(is_unix('foo')));
};

done_testing;