summaryrefslogtreecommitdiff
path: root/t/t4018/perl-skip-forward-decl
diff options
context:
space:
mode:
authorLibravatar Johannes Sixt <j6t@kdbg.org>2014-03-21 22:07:16 +0100
committerLibravatar Junio C Hamano <gitster@pobox.com>2014-03-21 15:02:19 -0700
commit2d08413ba1ce0a1940e97a5a8af5faf40ab8d178 (patch)
tree7e3de158ee47b06eb7322ebdc72bf516c5f36a58 /t/t4018/perl-skip-forward-decl
parentt4018: an infrastructure to test hunk headers (diff)
downloadtgif-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-forward-decl')
-rw-r--r--t/t4018/perl-skip-forward-decl10
1 files changed, 10 insertions, 0 deletions
diff --git a/t/t4018/perl-skip-forward-decl b/t/t4018/perl-skip-forward-decl
new file mode 100644
index 0000000000..a98cb8bdad
--- /dev/null
+++ b/t/t4018/perl-skip-forward-decl
@@ -0,0 +1,10 @@
+package RIGHT;
+
+use strict;
+use warnings;
+use parent qw(Exporter);
+our @EXPORT_OK = qw(round finalround);
+
+sub other; # forward declaration
+
+# ChangeMe