mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

21_win32.t: provide reason why file is skipped

Browse Source 
Following example of dist/IO/t/io_pipe.t.
This commit is contained in:
James E Keenan 2024-06-20 21:36:29 +00:00
parent 822f020a4a
commit bc63a9bf6c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
dist/Tie-File/t/21_win32.t vendored
View File

@ -14,7 +14,8 @@ use warnings;
my $file = "tf21-$$.txt";
unless ($^O =~ /^(MSWin32|dos)$/) {
print "1..0\n";
my $reason = 'not Win32';
print "1..0 # Skip: $reason\n";
exit;
}