run/locale.t: Skip tests if no appropriate locale

[khwilliamson]

Supercedes #23268, which didn't really get to the core problem.

These were generating uninitialized variable warnings on OpenBSD, due to
the reference existing, but the array being empty.

• This set of changes does not require a perldelta entry.

[jkeenan]

This is what I'm now getting with this branch on OpenBSD-6.9:

$ cd t;./perl harness -v run/locale.t; cd -

ok 1 - /il matching of [bracketed] doesn't skip POSIX class if fails individ char
ok 2 - /l matching of [bracketed] doesn't skip non-first POSIX class
ok 3 # skip didn't find a suitable locale
ok 4 # skip didn't find a suitable non-UTF-8 locale
ok 5 # skip didn't find a suitable UTF-8 locale
ok 6 # skip didn't find a suitable UTF-8 locale
ok 7 # skip didn't find a suitable UTF-8 locale
ok 8 # skip Even illegal locale names are accepted
ok
All tests successful.
Files=1, Tests=8,  0 wallclock secs ( 0.02 usr  0.05 sys +  0.21 cusr  0.12 csys =  0.40 CPU)
Result: PASS
Finished test run at Sun May 11 17:58:41 2025.

Is that what you would expect?

[khwilliamson]

On 5/11/25 12:00, James E Keenan wrote: *jkeenan* left a comment (Perl/perl5#23273) <https://github.com/Perl/ perl5/pull/23273#issuecomment-2870030227> This is what I'm now getting with this branch on OpenBSD-6.9: |$ cd t;./perl harness -v run/locale.t; cd - ok 1 - /il matching of [bracketed] doesn't skip POSIX class if fails individ char ok 2 - /l matching of [bracketed] doesn't skip non-first POSIX class ok 3 # skip didn't find a suitable locale ok 4 # skip didn't find a suitable non- UTF-8 locale ok 5 # skip didn't find a suitable UTF-8 locale ok 6 # skip didn't find a suitable UTF-8 locale ok 7 # skip didn't find a suitable UTF-8 locale ok 8 # skip Even illegal locale names are accepted ok All tests successful. Files=1, Tests=8, 0 wallclock secs ( 0.02 usr 0.05 sys + 0.21 cusr 0.12 csys = 0.40 CPU) Result: PASS Finished test run at Sun May 11 17:58:41 2025. | Is that what you would expect?

Yes

…

— Reply to this email directly, view it on GitHub <https://github.com/ Perl/perl5#23273#issuecomment-2870030227>, or unsubscribe <https:// github.com/notifications/unsubscribe-auth/ AAA2DH65GNYXD5YQTFW7Z5L256F5BAVCNFSM6AAAAAB44HOVGGVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDQNZQGAZTAMRSG4>. You are receiving this because you authored the thread.Message ID: ***@***.***>