Units(Perl): add more cases for testing heredoc recognition

Signed-off-by: Masatake YAMATO <yamato@redhat.com>
universal-ctags · Dec 27, 2022 · 6f5b873 · 6f5b873
1 parent cb407ee
commit 6f5b873
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 0 deletions.
diff --git a/Units/parser-perl.r/no-heredoc.d/expected.tags b/Units/parser-perl.r/no-heredoc.d/expected.tags
@@ -13,3 +13,7 @@ heredoc4tag	input.pl	/^print "abc" . <<heredoc3tag . 'efg' . << "heredoc4tag" .
 f7tag	input.pl	/^sub f7tag() {}$/;"	s
 f8tag	input.pl	/^sub f8tag() {}$/;"	s
 f9tag	input.pl	/^sub f9tag() {}$/;"	s
+five_sub	input-0.pl	/^sub five_sub() {$/;"	s
+five_mark0	input-0.pl	/^print 3 + 2 . <<five_mark0;$/;"	h
+five_mark1	input-0.pl	/^print 3 + 2 . <<~five_mark1;$/;"	h
+five_mark2	input-0.pl	/^print 3 + 2 . << "five_mark2";$/;"	h
diff --git a/Units/parser-perl.r/no-heredoc.d/input-0.pl b/Units/parser-perl.r/no-heredoc.d/input-0.pl
@@ -0,0 +1,31 @@
+print 3 + 2 <<5;
+5
+    ;
+
+sub five_sub() {
+    return 5
+}
+print 3 + 2 << five_sub;
+five
+    ;
+
+print 3 + 2 . <<five_mark0;
+a
+five_mark0
+
+print 3 + 2 . <<~five_mark1;
+a
+five_mark1
+
+print 3 + 2 << ~five_sub;
+five_sub;
+
+print 3 + 2 . << "five_mark2";
+	ox
+five_mark2
+
+
+
+
+
+