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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
# By Stephen Gildea, October 2010.
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified {
/declare -f fn/d
/PIPESTATUS=/d
}
}
setup
set cmd {fn() { printf '%s\n' ""; }; _parse_help fn}
assert_bash_list "" $cmd "empty"
sync_after_int
set cmd {fn() { printf '%s\n' "no dashes here"; }; _parse_help fn}
assert_bash_list "" $cmd "no dashes"
sync_after_int
set cmd {fn() { printf '%s\n' "internal-dash"; }; _parse_help fn}
assert_bash_list "" $cmd "internal dash 1"
sync_after_int
set cmd {fn() { printf '%s\n' "no -leading-dashes"; }; _parse_help fn}
assert_bash_list "" $cmd "no leading dash"
sync_after_int
set cmd {fn() { printf '%s\n' "-one dash"; }; _parse_help fn}
assert_bash_list "-one" $cmd "one dash"
sync_after_int
set cmd {fn() { printf '%s\n' " -space dash"; }; _parse_help fn}
assert_bash_list "-space" $cmd "one dash after space"
sync_after_int
set cmd {fn() { printf '%s\n' "-one -two dashes"; }; _parse_help fn}
assert_bash_list "-one" $cmd "two dashes, space-separated"
sync_after_int
set cmd {fn() { printf '%s\n' "-one,-t dashes"; }; _parse_help fn}
assert_bash_list "-one" $cmd "two dashes, comma-separated"
sync_after_int
set cmd {fn() { printf '%s\n' "-one dash-inside"; }; _parse_help fn}
assert_bash_list "-one" $cmd "internal dash 2"
sync_after_int
set cmd {fn() { printf '%s\n' "--long-arg=value"; }; _parse_help fn}
assert_bash_list "--long-arg=" $cmd "value stripped"
sync_after_int
set cmd {fn() { printf '%s\n' "--long-arg=-value"; }; _parse_help fn}
assert_bash_list "--long-arg=" $cmd "value not seen as option"
sync_after_int
set cmd {fn() { printf '%s\n' "--long-arg=-value,--opt2=val"; }; _parse_help fn}
assert_bash_list "--long-arg=" $cmd "two options with values"
sync_after_int
set cmd {fn() { printf '%s\n' "-m,--mirror"; }; _parse_help fn}
assert_bash_list "--mirror" $cmd "short + long"
sync_after_int
set cmd {fn() { printf '%s\n' "-T/--upload-file"; }; _parse_help fn}
assert_bash_list "--upload-file" $cmd "short + long, slash separated"
sync_after_int
set cmd {fn() { printf '%s\n' "-T|--upload-file"; }; _parse_help fn}
assert_bash_list "--upload-file" $cmd "pipe separated"
sync_after_int
set cmd {fn() { printf '%s\n' "-f, -F, --foo"; }; _parse_help fn}
assert_bash_list "--foo" $cmd "short + short + long"
sync_after_int
set cmd {fn() { printf '%s\n' "--foo[=bar]"; }; _parse_help fn}
assert_bash_list "--foo" $cmd "long with value and eq sign in brackets"
sync_after_int
set cmd {fn() { printf '%s\n' "--foo=<bar>"; }; _parse_help fn}
assert_bash_list "--foo=" $cmd "long with value in angle brackets"
sync_after_int
set cmd {fn() { printf '%s\n' "--foo={bar,quux}"; }; _parse_help fn}
assert_bash_list "--foo=" $cmd "long with value in curly brackets"
sync_after_int
set cmd {fn() { printf '%s\n' "--[no]foo"; }; _parse_help fn}
assert_bash_list "--foo\n--nofoo" $cmd "long with \[no\]"
sync_after_int
set cmd {fn() { printf '%s\n' "--[no-]bar[=quux]"; }; _parse_help fn}
assert_bash_list "--bar\n--no-bar" $cmd "long with \[no-\] + optional arg"
sync_after_int
set cmd {fn() { printf '%s\n' "--[no-]bar=quux"; }; _parse_help fn}
assert_bash_list "--bar=\n--no-bar=" $cmd "long with \[no-\] + required arg"
sync_after_int
set cmd {fn() { printf '%s\n' "--[dont-]foo"; }; _parse_help fn}
assert_bash_list "--foo\n--dont-foo" $cmd "long with \[dont-\]"
sync_after_int
set cmd {fn() { printf '%s\n' "-[dont]x, --[dont]yy"; }; _parse_help fn}
assert_bash_list "--yy\n--dontyy" $cmd "short and long with \[dont\]"
sync_after_int
set cmd {fn() { printf '%s\n' "----\n---foo\n----- bar"; }; _parse_help fn}
assert_bash_list "" $cmd "more than two dashes"
sync_after_int
set cmd {fn() { printf '%s\n' "-f FOO, --foo=FOO"; }; _parse_help fn}
assert_bash_list "--foo=" $cmd "-f FOO, --foo=FOO"
sync_after_int
set cmd {fn() { printf '%s\n' "-f [FOO], --foo[=FOO]"; }; _parse_help fn}
assert_bash_list "--foo" $cmd "-f \[FOO\], --foo\[=FOO\]"
sync_after_int
set cmd {fn() { printf '%s\n' "--foo."; }; _parse_help fn}
assert_bash_list "--foo" $cmd "--foo."
sync_after_int
set cmd {fn() { printf '%s\n' "-f or --foo"; }; _parse_help fn}
assert_bash_list "--foo" $cmd "-f or --foo"
sync_after_int
set cmd { printf '%s\n' "-f or --foo" | _parse_help - }
assert_bash_list "--foo" $cmd "from stdin"
sync_after_int
teardown
|
