summaryrefslogtreecommitdiffstats
path: root/src/grep/tests/backref-multibyte-slow
blob: 9c4fe060e277fed0b1383b2dd9d24692bbd51eae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/bin/sh
# This was approximately quadratic up to grep-2.6.3
. "${srcdir=.}/init.sh"; path_prepend_ ../src

require_en_utf8_locale_
require_timeout_

fail=0

# Create a 13000-line input
$AWK 'BEGIN {for (i=0; i<13000; i++) print "aba"}' /dev/null > in || fail=1

# Use 10 times the duration of running grep in the C locale as the timeout
# when running in en_US.UTF-8.  Round up to whole seconds, since timeout
# can't deal with fractional seconds.
max_seconds=$(LC_ALL=C perl -le 'use Time::HiRes qw(time); my $s = time();
              system q,grep -E '\''^([a-z]).\1$'\'' in > junk,;
              my $elapsed = time() - $s; print int (1 + 10 * $elapsed)') \
  || { max_seconds=5;
       warn_ "$ME_: warning: no perl? using default of 5s timeout"; }

# If the above finished so quickly that we'd have a 1-second timeout,
# increase it to a duration less likely to arise in a parallel test run.
test $max_seconds = 1 && max_seconds=5

for LOC in en_US.UTF-8; do
  out=out-$LOC
  LC_ALL=$LOC timeout ${max_seconds}s grep -aE '^([a-z]).\1$' in > $out 2>&1 \
    || fail=1
  compare $out in || fail=1
done

Exit $fail