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

lib/Unicode/testnorm.t: fix spelling of skip message

Browse Source 
- "environmentvariable" -> "environment variable"
- "# skipped:", "# Skip" -> "# SKIP" (mimicking Test::More)
- format the two print/skip statements identically
- remove redundant "0" statements
- use early exit instead of nesting if/else
This commit is contained in:
Lukas Mai 2025-03-18 18:15:56 +01:00 committed by mauke
parent 2f6713056a
commit 569c7cd062
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lib/Unicode/testnorm.t
View File

@ -9,18 +9,16 @@ BEGIN {
# directory.
if (! $ENV{PERL_DEBUG_FULL_TEST}) {
print "1..0 # skipped: Lengthy Tests Disabled; to enable set environment",
"variable \$ENV{PERL_DEBUG_FULL_TEST} to a true value\n";
0
print "1..0 # SKIP Lengthy Tests Disabled; to enable set environment"
. " variable PERL_DEBUG_FULL_TEST to a true value\n";
exit;
}
else {
my $file = '../lib/unicore/TestNorm.pl';
if (-e $file) {
do $file;
}
else {
print "1..0 # Skip $file not built (perhaps build options don't"
. " build it)\n";
0
}
my $file = '../lib/unicore/TestNorm.pl';
if (! -e $file) {
print "1..0 # SKIP $file not built (perhaps build options don't"
. " build it)\n";
exit;
}
do $file;