(testsuite) Added expected failure for perldoc options completion

perldoc options don't complete anymore

test/lib/completions/perldoc.exp

@@ -11,6 +11,25 @@ proc teardown {} {
 setup
 
 
+set test "perldoc should complete options"
+set cmd "perldoc -"
+send "$cmd\t"
+expect -ex "$cmd"
+# We can't anchor on $, simulate typing a magical string instead.
+set endguard "Magic End Guard"
+send "$endguard"
+expect {
+    # NOTE: Expected failure: After switching to pure perl perldoc completion,
+    #       the completion of options has disappeared.  See commit 07b7ddd1d
+    #       and Alioth #312800
+    -re "^$endguard$" { xfail "$test" }
+    -re "-h.*$endguard$" { pass "$test" }
+}
+
+
+sync_after_int
+
+
 set test "perldoc should complete word containing colons"
 set cmd "perldoc File::"
 send "$cmd\t"