niceSOFT/diffutils

tests/large-subopt

27 строк641 B

Jim Meyering

build: skip the sole perl-requiring test when there is no usable perl

21 май 2023, 10:56

21 май 2023, 10:567abd180

#!/bin/sh
# This test is expected to fail at least with diffutils-3.6.
# Demonstrate how diff can produce suboptimal output.
# With these two files, diff -u prints output including this:
# -2
# +L: 361
# +L: 361
# +2
# The trouble is that "2" line that is both added and removed.
# This smaller patch could induce the same change:
# +L: 361
# +L: 361

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

require_perl_

fail=0

diff -u \
  "$abs_top_srcdir/tests/large-subopt.in1" \
  "$abs_top_srcdir/tests/large-subopt.in2" \
  | $PERL -n0 -e \
     '/\n-2\n(\+L: 361\n){2}\+2\n/ and do {$e=1; last}; END{exit !$e}' \
     && fail=1

Exit $fail