diff options
| author |  Johannes Sixt <j6t@kdbg.org> | 2014-03-21 22:07:16 +0100 |
|---|---|---|
| committer |  Junio C Hamano <gitster@pobox.com> | 2014-03-21 15:02:19 -0700 |
| commit | 2d08413ba1ce0a1940e97a5a8af5faf40ab8d178 (patch) | |
| tree | 7e3de158ee47b06eb7322ebdc72bf516c5f36a58 /t/t4018/perl-skip-end-of-heredoc | |
| parent | t4018: an infrastructure to test hunk headers (diff) | |
| download | tgif-2d08413ba1ce0a1940e97a5a8af5faf40ab8d178.tar.xz | |
t4018: convert perl pattern tests to the new infrastructure
There is one subtlety: The old test case 'perl pattern gets full line of
POD header' does not have its own new test case, but the feature is
tested nevertheless by placing the RIGHT tag at the end of the expected
hunk header in t4018/perl-skip-sub-in-pod.
Signed-off-by: Johannes Sixt <j6t@kdbg.org>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 't/t4018/perl-skip-end-of-heredoc')
| -rw-r--r-- | t/t4018/perl-skip-end-of-heredoc | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/t4018/perl-skip-end-of-heredoc b/t/t4018/perl-skip-end-of-heredoc new file mode 100644 index 0000000000..c22d39b256 --- /dev/null +++ b/t/t4018/perl-skip-end-of-heredoc @@ -0,0 +1,8 @@ +sub RIGHTwithheredocument { + print <<"EOF" +decoy here-doc +EOF + # some lines of context + # to pad it out + print "ChangeMe\n"; +} |