8bf2f74a74
Modules that provide OS-specific behaviors often need to know if the current operating system matches a more generic type of operating systems. For example, 'linux' is a type of 'Unix' operating system and so is 'freebsd'. This module provides a mapping between an operating system name as given by $^O and a more generic type. The initial version is based on the OS type mappings provided in Module::Build and ExtUtils::CBuilder (thus, Microsoft operating systems are given the type 'Windows' rather than 'Win32').
19 lines
473 B
Diff
19 lines
473 B
Diff
--- Perl-OSType-1.002/t/OSType.t 2010-11-16 14:02:55.000000000 +0000
|
|
+++ Perl-OSType-1.002/t/OSType.t 2011-01-25 11:09:41.278401763 +0000
|
|
@@ -1,7 +1,7 @@
|
|
use strict;
|
|
use warnings;
|
|
|
|
-use Test::More 0.88;
|
|
+use Test::More tests => 19;
|
|
|
|
use constant NON_EXISTENT_OS => 'titanix'; #the system they said could not go down...
|
|
|
|
@@ -66,6 +66,3 @@
|
|
ok( is_os_type( 'VOS' ), "$fcn: true" );
|
|
ok( ! is_os_type(), "$fcn: false if no type provided" );
|
|
}
|
|
-
|
|
-done_testing;
|
|
-
|