Index: lib/src/prism/tests/languages/perl/filehandle_feature.test |
diff --git a/lib/src/prism/tests/languages/perl/filehandle_feature.test b/lib/src/prism/tests/languages/perl/filehandle_feature.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..d244e668333fb2e3be714405a093fb2f774b3e7f |
--- /dev/null |
+++ b/lib/src/prism/tests/languages/perl/filehandle_feature.test |
@@ -0,0 +1,17 @@ |
+_ |
+<> |
+<STDIN> |
+<FOOBAR> |
+ |
+---------------------------------------------------- |
+ |
+[ |
+ ["filehandle", "_"], |
+ ["filehandle", "<>"], |
+ ["filehandle", "<STDIN>"], |
+ ["filehandle", "<FOOBAR>"] |
+] |
+ |
+---------------------------------------------------- |
+ |
+Checks for file handles. |