Searched refs:is_os_type (Results 1 – 2 of 2) sorted by relevance
| /openbsd/src/gnu/usr.bin/perl/cpan/Perl-OSType/t/ |
| D | OSType.t | 16 my @functions = qw/os_type is_os_type/;
50 # is_os_type
54 my $fcn = 'is_os_type()';
56 is( is_os_type(NON_EXISTENT_OS), '', "$fcn: non-existent type is false" );
58 is( is_os_type(''), undef, "$fcn: empty string type is false" );
60 is( is_os_type( 'Unix', NON_EXISTENT_OS ), '', "$fcn: non-existent OS is false" );
63 ok( !is_os_type('Unix'), "$fcn: false" );
64 ok( is_os_type('VOS'), "$fcn: true" );
65 ok( !is_os_type(), "$fcn: false if no type provided" );
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Perl-OSType/lib/Perl/ |
| D | OSType.pm | 81 sub is_os_type { subroutine
|