File: pcre-wx-backref

package info (click to toggle)
grep 3.11-4
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 16,392 kB
  • sloc: ansic: 95,031; sh: 12,720; perl: 606; makefile: 386; awk: 71; sed: 16
file content (28 lines) | stat: -rwxr-xr-x 741 bytes parent folder | download
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
#! /bin/sh
# Before grep-2.19, grep -P and -w/-x would not work with a back-reference.
#
# Copyright (C) 2014-2023 Free Software Foundation, Inc.
#
# Copying and distribution of this file, with or without modification,
# are permitted in any medium without royalty provided the copyright
# notice and this notice are preserved.

. "${srcdir=.}/init.sh"; path_prepend_ ../src
require_pcre_

echo aa > in || framework_failure_
echo 'grep: reference to non-existent subpattern' > exp-err \
  || framework_failure_

fail=0

for xw in x w; do
  grep -P$xw '(.)\1' in > out 2>&1 || fail=1
  compare out in || fail=1

  grep -P$xw '(.)\2' in > out 2> err && fail=1
  compare /dev/null out || fail=1
  compare exp-err err || fail=1
done

Exit $fail