| Summary: | AB-INT PTEST: perl ptest failure: in t/re/user_prop_race_thr | ||||||
|---|---|---|---|---|---|---|---|
| Product: | [QA/Testing] Package Testing (ptest) | Reporter: | João Marcos Costa <joaomarcos.costa> | ||||
| Component: | ptest | Assignee: | Unassigned <unassigned> | ||||
| Status: | RESOLVED WORKSFORME | QA Contact: | |||||
| Severity: | normal | ||||||
| Priority: | Medium | CC: | randy.macleod | ||||
| Version: | unspecified | ||||||
| Target Milestone: | 5.3 | ||||||
| Hardware: | x86 | ||||||
| OS: | Multiple | ||||||
| Whiteboard: | AB-INT | ||||||
| OS type for building Yocto: | --- | Type of Regression: | --- | ||||
| Verified: | Documentation change: | Don't know | |||||
| Attachments: |
|
||||||
|
Description
João Marcos Costa
2025-04-11 08:13:20 UTC
# Failed test 1 - Simultaneous threads worked at re/user_prop_race_thr.t line 14
# got "2Scalars leaked: 1"
# expected "2"
# PROG:
#
# use threads;
# use strict;
# use warnings;
#
# sub main::IsA {
# use feature "state";
#
# state $upper_char = ord "A";
# state $lower_char = ord "a";
#
# return sprintf "%x", $lower_char++ if shift;
# return sprintf "%x", $upper_char++;
# }
#
# my @threads = map +threads->create(sub {
# sleep 0.1;
#
# for (1..2500) {
# return 0 unless eval "qq(A) =~ qr/\\p{main::IsA}/";
# return 0 unless eval "qq(a) =~ qr/\\p{main::IsA}/i";
# }
#
# return 1;
# }), (0..1);
# my $success = $threads[0]->join;
# $success += $threads[1]->join;
# print $success;
# STATUS: 0
FAIL: t/re/user_prop_race_thr
The test code hasn't changes in perl.git and this issue hasn't happen again after almost a year. |