Bug#626125: perl: sh4: Please lengthen time-out time for t/re/re.t

[Nobuhiro Iwamatsu <iwamatsu@nigauri.org>]

Source: perl
Version: 5.12.3-6
Severity: wishlist
Tags: patch
User: debian-sh4@superh.org
Usertags: sh4
X-Debbugs-CC: debian-superh@lists.debian.org

Hi,

When we carry out this test on SH4, it becomes the time-out.
2 seconds are set in watchdog, but are too short for SH4.
This patch was changed for 10 seconds.

http://buildd.debian-ports.org/status/fetch.php?pkg=perl&arch=sh4&ver=5.12.3-6&stamp=1304403673
----
t/re/pat_re_eval_thr...........................................ok
t/re/pat_rt_report.............................................ok
t/re/pat_rt_report_thr.........................................ok
t/re/pat_special_cc............................................ok
t/re/pat_special_cc_thr........................................ok
t/re/pat_thr...................................................ok
t/re/qr........................................................ok
t/re/qr_gc.....................................................ok
t/re/qrstack...................................................ok
# Test process timed out - terminating
t/re/re........................................................FAILED--expected
19 tests, saw 18
t/re/reg_60508.................................................ok
t/re/reg_email.................................................ok
t/re/reg_email_thr.............................................ok
t/re/reg_fold..................................................ok
----

----
$ time ./perl  t/re/re.t
1..19
ok 1 - is_regexp(REGEXP ref)
ok 2 - is_regexp(REGEXP)
ok 3 - is_regexp("")
ok 4 - regexp_pattern[0] (ref)
ok 5 - regexp_pattern[1] (ref)
ok 6 - scalar regexp_pattern (ref)
ok 7 - regexp_pattern[0] (bare REGEXP)
ok 8 - regexp_pattern[1] (bare REGEXP)
ok 9 - scalar regexp_pattern (bare REGEXP)
ok 10 - !regexp_pattern("")
ok 11 - regnames
ok 12 - regnames
ok 13 - regnames in scalar context
ok 14 - regnames
ok 15
ok 16
ok 17
ok 18
# Test process timed out - terminating
Killed

real    0m4.326s
user    0m1.960s
sys     0m0.020s
----

After lengthen time-out time for t/re/re.t:
----
$ time ./perl  t/re/re.t
1..19
ok 1 - is_regexp(REGEXP ref)
ok 2 - is_regexp(REGEXP)
ok 3 - is_regexp("")
ok 4 - regexp_pattern[0] (ref)
ok 5 - regexp_pattern[1] (ref)
ok 6 - scalar regexp_pattern (ref)
ok 7 - regexp_pattern[0] (bare REGEXP)
ok 8 - regexp_pattern[1] (bare REGEXP)
ok 9 - scalar regexp_pattern (bare REGEXP)
ok 10 - !regexp_pattern("")
ok 11 - regnames
ok 12 - regnames
ok 13 - regnames in scalar context
ok 14 - regnames
ok 15
ok 16
ok 17
ok 18
ok 19 - Didn't loop

real    0m7.482s
user    0m3.848s
sys     0m0.036s
----

I made patch to fix this. Could you apply this patch?

Best regards,
 Nobuhiro
-- 
Nobuhiro Iwamatsu
   iwamatsu at {nigauri.org / debian.org}
   GPG ID: 40AD1FA6

# Update lengthen time-out time for t/re/re.t.
#
# When we carry out this test on SH4, it becomes the time-out.
# 2 seconds are set in watchdog, but are too short for SH4.
# This patch was changed for 10 seconds.
#
# $ time ./perl  t/re/re.t
# 1..19
# ok 1 - is_regexp(REGEXP ref)
# ok 2 - is_regexp(REGEXP)
# ok 3 - is_regexp("")
# ok 4 - regexp_pattern[0] (ref)
# ok 5 - regexp_pattern[1] (ref)
# ok 6 - scalar regexp_pattern (ref)
# ok 7 - regexp_pattern[0] (bare REGEXP)
# ok 8 - regexp_pattern[1] (bare REGEXP)
# ok 9 - scalar regexp_pattern (bare REGEXP)
# ok 10 - !regexp_pattern("")
# ok 11 - regnames
# ok 12 - regnames
# ok 13 - regnames in scalar context
# ok 14 - regnames
# ok 15
# ok 16
# ok 17
# ok 18
# ok 19 - Didn't loop
#
# real    0m7.482s
# user    0m3.848s
# sys     0m0.036s

diff --git a/t/re/re.t b/t/re/re.t
index 249c6dd..84a5d1d 100755
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -54,7 +54,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
 
     { # Keep this test last, as whole script will be interrupted if times out
         # Bug #72998; this can loop 
-        watchdog(2);
+        watchdog(10);
         eval '"\x{100}\x{FB00}" =~ /\x{100}\N{U+66}+/i';
         pass("Didn't loop");
     }