blob: 1a031ff17736e12fcb940540b6bbd03c2893fe12 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
proc setup {} {
assert_bash_exec "export MANPATH=$::srcdirabs/fixtures/man:$::srcdirabs/tmp/man"
save_env
if {! [is_cygwin]} { # Colon not allowed in filenames
assert_bash_exec {(cd $TESTDIR/tmp && mkdir -p man/man3 && touch man/man3/Bash::Completion.3pm.gz || true)}
}
}
proc teardown {} {
assert_env_unmodified {/OLDPWD/d}
if {! [is_cygwin]} {
assert_bash_exec {(cd $TESTDIR/tmp && rm -r man || true)}
}
}
setup
assert_complete "bar" "man b"
sync_after_int
assert_complete_dir oo.1 "man man1/f" $::srcdir/fixtures/man
sync_after_int
if {! [is_cygwin]} {
assert_complete "Bash::Completion" "man Bash::C"
sync_after_int
}
assert_complete_dir "man/quux.8" "man man/" $::srcdir/fixtures/man
sync_after_int
teardown
|