Index: lib/src/prism/tests/languages/perl/comment_feature.test |
diff --git a/lib/src/prism/tests/languages/perl/comment_feature.test b/lib/src/prism/tests/languages/perl/comment_feature.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..503d161564f6f736409841e5cc513cf32d91eb11 |
--- /dev/null |
+++ b/lib/src/prism/tests/languages/perl/comment_feature.test |
@@ -0,0 +1,17 @@ |
+=label foo |
+bar |
+=cut |
+# |
+# foobar |
+ |
+---------------------------------------------------- |
+ |
+[ |
+ ["comment", "=label foo\r\nbar\r\n=cut"], |
+ ["comment", "#"], |
+ ["comment", "# foobar"] |
+] |
+ |
+---------------------------------------------------- |
+ |
+Checks for comments. |