1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
package Test2::Require::Platform::OS::Unix;
use strict;
use warnings;
use base 'Test2::Require';
our $VERSION = '0.000160';
use English qw( -no_match_vars ); # Avoids regex performance
my %PLATFORMS = (
'aix' => 1,
'bsdos' => 1,
'darwin' => 1,
'dynixptx' => 1,
'freebsd' => 1,
'haiku' => 1,
'linux' => 1,
'hpux ' => 1,
'irix ' => 1,
'darwin' => 1,
'next' => 1,
'openbsd' => 1,
'dec_osf' => 1,
'svr4' => 1,
'sco_sv' => 1,
'unicos' => 1,
'unicosmk' => 1,
'solaris' => 1,
'sunos' => 1,
);
sub IS_PLATFORM {
return 1 if exists $PLATFORMS{$OSNAME};
return 0;
}
sub skip {
my $class = shift;
if ( IS_PLATFORM() ) {
return;
}
else {
return ( __PACKAGE__ =~ m/^Test2::(.*)$/msx )[0];
}
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Test2::Require::Platform::OS::Unix - Only run a test if the current platform is a Unix.
=head1 DESCRIPTION
Some tests can only run in certain operating system or architectures.
This module automates the (admittedly trivial) work of checking
the operating system name.
=head1 SYNOPSIS
use Test2::Require::Platform::OS::Unix;
...
done_testing;
=head1 SOURCE
The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/Test2-Suite/>.
=head1 MAINTAINERS
=over 4
=item Chad Granum E<lt>exodist@cpan.orgE<gt>
=back
=head1 AUTHORS
=over 4
=item Mikko Koivunalho E<lt>mikkoi@cpan.orgE<gt>
=back
=head1 COPYRIGHT
Copyright 2024 Mikko Koivunalho E<lt>mikkoi@cpan.orgE<gt>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
See F<http://dev.perl.org/licenses/>
=cut
|
