1 files changed, 18 insertions, 0 deletions
diff --git a/test/t/test_perldoc.py b/test/t/test_perldoc.py
new file mode 100644
index 00000000..9f772944
--- /dev/null
+++ b/test/t/test_perldoc.py
@@ -0,0 +1,18 @@
+import pytest
+
+
+@pytest.mark.bashcomp(pre_cmds=("export PERL5LIB=$PWD/perldoc",))
+class TestPerldoc:
+    @pytest.mark.complete("perldoc File::")
+    def test_1(self, completion):
+        assert "Path" in completion  # Assume File::Path always installed
+        assert "fixtures/" not in completion  # Our fixtures/ dir
+        assert not [x for x in completion if "File::File::" in x]
+
+    @pytest.mark.complete("perldoc -")
+    def test_2(self, completion):
+        assert completion
+
+    @pytest.mark.complete("perldoc BashCompletion")
+    def test_3(self, completion):
+        assert completion == "BashCompletionDoc BashCompletionModule".split()