git/t/t4018/perl-skip-end-of-heredoc

sub RIGHTwithheredocument {
	print <<"EOF"
decoy here-doc
EOF
	# some lines of context
	# to pad it out
	print "ChangeMe\n";
}
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> 2014-03-21 22:07:16 +01:00			`sub RIGHTwithheredocument {`
			`print <<"EOF"`
			`decoy here-doc`
			`EOF`
			`# some lines of context`
			`# to pad it out`
			`print "ChangeMe\n";`
			`}`