[PATCH v3 24/35] userdiff tests: move away from "RIGHT" in perl.sh
- From
Ævar Arnfjörð Bjarmason <avarab@gmail.com>
- Date
- Feb 24, 2021, 19:51 UTC
- Message-ID
- <20210224195129.4004-25-avarab@gmail.com>
- In-Reply-To
- <20210215154427.32693-1-avarab@gmail.com>
The "RIGHT" token is no longer magical, see recent changes to t/t4018/README. Let's change it in the recently moved perl.sh tests. This change was done separately so the earlier commit could benefit from the "diff --color-moved" detection.
Signed-off-by: Ævar Arnfjörð Bjarmason <avarab@gmail.com> --- t/t4018/perl.sh | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/t/t4018/perl.sh b/t/t4018/perl.sh index ac8fff7417a..b53b759353b 100755 --- a/t/t4018/perl.sh +++ b/t/t4018/perl.sh @@ -5,9 +5,9 @@ test_diff_funcname 'perl: skip end of heredoc' \ 8<<\EOF_HUNK 9<<\EOF_TEST -sub RIGHTwithheredocument { +sub withheredocument { EOF_HUNK -sub RIGHTwithheredocument { +sub withheredocument { print <<"EOF" decoy here-doc EOF @@ -19,9 +19,9 @@ EOF_TEST test_diff_funcname 'perl: skip forward decl' \ 8<<\EOF_HUNK 9<<\EOF_TEST -package RIGHT; +package Some::Package; EOF_HUNK -package RIGHT; +package Some::Package; use strict; use warnings; @@ -35,13 +35,13 @@ EOF_TEST test_diff_funcname 'perl: skip sub in pod' \ 8<<\EOF_HUNK 9<<\EOF_TEST -=head1 SYNOPSIS_RIGHT +=head1 SYNOPSIS EOF_HUNK =head1 NAME Beer - subroutine to output fragment of a drinking song -=head1 SYNOPSIS_RIGHT +=head1 SYNOPSIS use Beer qw(round finalround); @@ -59,9 +59,9 @@ EOF_TEST test_diff_funcname 'perl: sub definition' \ 8<<\EOF_HUNK 9<<\EOF_TEST -sub RIGHT { +sub asub { EOF_HUNK -sub RIGHT { +sub asub { my ($n) = @_; print "ChangeMe"; } @@ -69,9 +69,9 @@ EOF_TEST test_diff_funcname 'perl: sub definition kr brace' \ 8<<\EOF_HUNK 9<<\EOF_TEST -sub RIGHT +sub asub EOF_HUNK -sub RIGHT +sub asub { print "ChangeMe\n"; }
-- 2.30.0.284.gd98b1dd5eaa7