From 2d08413ba1ce0a1940e97a5a8af5faf40ab8d178 Mon Sep 17 00:00:00 2001 From: Johannes Sixt Date: Fri, 21 Mar 2014 22:07:16 +0100 Subject: 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 Signed-off-by: Junio C Hamano --- t/t4018/perl-skip-sub-in-pod | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 t/t4018/perl-skip-sub-in-pod (limited to 't/t4018/perl-skip-sub-in-pod') diff --git a/t/t4018/perl-skip-sub-in-pod b/t/t4018/perl-skip-sub-in-pod new file mode 100644 index 0000000000..e39f02462e --- /dev/null +++ b/t/t4018/perl-skip-sub-in-pod @@ -0,0 +1,18 @@ +=head1 NAME + +Beer - subroutine to output fragment of a drinking song + +=head1 SYNOPSIS_RIGHT + + use Beer qw(round finalround); + + sub song { + for (my $i = 99; $i > 0; $i--) { + round $i; + } + finalround; + } + + ChangeMe; + +=cut -- cgit v1.2.3