(testsuite) Use File::Path instead of HTML::Parser to test perldoc.
HTML::Parser is not a "core" Perl module.
This commit is contained in:
parent
5c6f45d5bb
commit
c0d57b0bea
@ -18,15 +18,15 @@ sync_after_int
|
|||||||
|
|
||||||
|
|
||||||
set test "perldoc should complete word containing colons"
|
set test "perldoc should complete word containing colons"
|
||||||
set cmd "perldoc HTML::"
|
set cmd "perldoc File::"
|
||||||
send "$cmd\t"
|
send "$cmd\t"
|
||||||
expect {
|
expect {
|
||||||
# Assuming the module `HTML::Parser' is always installed
|
# Assuming the module `File::Path' is always installed
|
||||||
-re "\\sParser\\s" { pass "$test" }
|
-re "\\sPath\\s" { pass "$test" }
|
||||||
# Assuming there's no perl module named `fixtures', but only our directory
|
# Assuming there's no perl module named `fixtures', but only our directory
|
||||||
# `test/fixtures' which is presented falsely.
|
# `test/fixtures' which is presented falsely.
|
||||||
-re "\\sfixtures/\\s" { fail "$test" }
|
-re "\\sfixtures/\\s" { fail "$test" }
|
||||||
-re "perldoc HTML::HTML::" { fail "$test" }
|
-re "perldoc File::File::" { fail "$test" }
|
||||||
-re /@ { unresolved "$test" }
|
-re /@ { unresolved "$test" }
|
||||||
default { unresolved "$test" }
|
default { unresolved "$test" }
|
||||||
}; # expect
|
}; # expect
|
||||||
|
Loading…
x
Reference in New Issue
Block a user