1
1
2
2
-- some helper stuff for debugging
3
3
local quoted = function (s )
4
- return " '" .. tostring (s ) .. " '"
4
+ return " '" .. tostring (s ) .. " '"
5
5
end
6
6
local dump = function (t )
7
7
print (" ============= Dump " .. tostring (t ) .. " =============" )
@@ -42,7 +42,7 @@ describe("Testing cliargs library methods/functions", function()
42
42
it (" tests the private split() function" , function ()
43
43
-- takes: str, split-char
44
44
local expected , result
45
-
45
+
46
46
result = cli .split (" hello,world" ," ," )
47
47
expected = {" hello" , " world" }
48
48
assert .is .same (result , expected )
@@ -65,7 +65,7 @@ describe("Testing cliargs library methods/functions", function()
65
65
-- takes: text, size, padding
66
66
local text = " 123456789 123456789 123456789!"
67
67
local expected , result
68
-
68
+
69
69
result = cli .wordwrap (text , 10 )
70
70
expected = " 123456789\n 123456789\n 123456789!"
71
71
assert .is .same (result , expected )
@@ -92,7 +92,7 @@ describe("Testing cliargs library methods/functions", function()
92
92
end )
93
93
94
94
end ) -- private functions
95
-
95
+
96
96
describe (" testing public functions" , function ()
97
97
98
98
setup (function ()
@@ -104,7 +104,7 @@ describe("Testing cliargs library methods/functions", function()
104
104
teardown (function ()
105
105
_G ._TEST = nil
106
106
end )
107
-
107
+
108
108
before_each (function ()
109
109
cli .optional = {}
110
110
cli .required = {}
@@ -120,7 +120,7 @@ describe("Testing cliargs library methods/functions", function()
120
120
assert .are .equal (cli .required [1 ].key , key )
121
121
assert .are .equal (cli .required [1 ].desc , desc )
122
122
end )
123
-
123
+
124
124
it (" tests add_opt() with short-key" , function ()
125
125
-- takes: key, descr, default
126
126
local key , desc , default = " -i" , " thedescription" , " default"
@@ -131,7 +131,7 @@ describe("Testing cliargs library methods/functions", function()
131
131
assert .are .equal (cli .optional [1 ].flag , true )
132
132
assert .are .equal (cli .optional [1 ].default , false ) -- no value = flag type option, hence false
133
133
end )
134
-
134
+
135
135
it (" tests add_opt() with short-key & value" , function ()
136
136
-- takes: key, descr, default
137
137
local key , desc , default = " -i VALUE" , " thedescription" , " default"
@@ -142,7 +142,7 @@ describe("Testing cliargs library methods/functions", function()
142
142
assert .are .equal (cli .optional [1 ].flag , false )
143
143
assert .are .equal (cli .optional [1 ].default , default )
144
144
end )
145
-
145
+
146
146
it (" tests add_opt() with short + expanded-key" , function ()
147
147
-- takes: key, descr, default
148
148
local key , desc , default = " -i, --insert" , " thedescription" , " default"
@@ -153,7 +153,7 @@ describe("Testing cliargs library methods/functions", function()
153
153
assert .are .equal (cli .optional [1 ].flag , true )
154
154
assert .are .equal (cli .optional [1 ].default , false ) -- no value = flag type option, hence false
155
155
end )
156
-
156
+
157
157
it (" tests add_opt() with short + expanded-key & value" , function ()
158
158
-- takes: key, descr, default
159
159
local key , desc , default = " -i, --insert=VALUE" , " thedescription" , " default"
@@ -164,7 +164,7 @@ describe("Testing cliargs library methods/functions", function()
164
164
assert .are .equal (cli .optional [1 ].flag , false )
165
165
assert .are .equal (cli .optional [1 ].default , default )
166
166
end )
167
-
167
+
168
168
it (" tests add_opt() with only expanded-key" , function ()
169
169
-- takes: key, descr, default
170
170
local key , desc , default = " --insert" , " thedescription" , " default"
@@ -175,7 +175,7 @@ describe("Testing cliargs library methods/functions", function()
175
175
assert .are .equal (cli .optional [1 ].flag , true )
176
176
assert .are .equal (cli .optional [1 ].default , false ) -- no value = flag type option, hence false
177
177
end )
178
-
178
+
179
179
it (" tests add_opt() with only expanded-key & value" , function ()
180
180
-- takes: key, descr, default
181
181
local key , desc , default = " --insert=VALUE" , " thedescription" , " default"
@@ -186,15 +186,15 @@ describe("Testing cliargs library methods/functions", function()
186
186
assert .are .equal (cli .optional [1 ].flag , false )
187
187
assert .are .equal (cli .optional [1 ].default , default )
188
188
end )
189
-
189
+
190
190
it (" tests add_opt() with short and expanded-key, no comma between them" , function ()
191
191
-- takes: key, descr, default
192
192
local key , desc , default = " -i --insert=VALUE" , " thedescription" , " default"
193
193
cli :add_opt (key , desc , default )
194
194
assert .are .equal (cli .optional [1 ].key , " i" )
195
195
assert .are .equal (cli .optional [1 ].expanded_key , " insert" )
196
196
end )
197
-
197
+
198
198
it (" tests add_flag() for setting default value" , function ()
199
199
-- takes: key, descr
200
200
local key , desc = " -i, --insert" , " thedescription"
@@ -216,7 +216,7 @@ describe("Testing cliargs library methods/functions", function()
216
216
assert .are .equal (cli .required [1 ].key , key ) -- make sure it got added
217
217
assert .is .error (function () cli :add_arg (key , desc ) end ) -- this should blow up
218
218
end )
219
-
219
+
220
220
it (" tests add_opt() with a duplicate argument" , function ()
221
221
-- takes: key, descr
222
222
local key , desc , default = " -i" , " thedescription" , " default"
@@ -225,11 +225,11 @@ describe("Testing cliargs library methods/functions", function()
225
225
-- assert.are.equal(cli.optional[1].expanded_key, "")
226
226
assert .is .error (function () cli :add_opt (key , desc , default ) end ) -- this should blow up
227
227
end )
228
-
228
+
229
229
describe (" testing the 'noprint' options" , function ()
230
230
231
231
local old_print , touched
232
-
232
+
233
233
setup (function ()
234
234
old_print = print
235
235
local interceptor = function (...)
@@ -238,15 +238,15 @@ describe("Testing cliargs library methods/functions", function()
238
238
end
239
239
print = interceptor
240
240
end )
241
-
241
+
242
242
teardown (function ()
243
243
print = (old_print or print )
244
244
end )
245
245
246
246
before_each (function ()
247
247
touched = nil
248
248
end )
249
-
249
+
250
250
after_each (function ()
251
251
end )
252
252
@@ -258,21 +258,21 @@ describe("Testing cliargs library methods/functions", function()
258
258
assert .is .equal (type (res ), " string" )
259
259
assert .is .equal (nil , touched )
260
260
end )
261
-
261
+
262
262
it (" tests whether a parsing error through cli_error() does not print anything, if noprint is set" , function ()
263
263
-- generate a parse error
264
264
local key , desc = " ARGUMENT" , " thedescription"
265
265
cli :add_opt (key , desc )
266
266
local noprint = true
267
- _G . arg = {" arg1" , " arg2" , " arg3" , " arg4" } -- should fail for too many arguments
268
- local res , err = cli :parse (noprint )
267
+ local args = {" arg1" , " arg2" , " arg3" , " arg4" } -- should fail for too many arguments
268
+ local res , err = cli :parse (args , noprint )
269
269
assert .is .equal (nil , res )
270
270
assert .is .equal (type (err ), " string" )
271
271
assert .is .equal (nil , touched )
272
272
end )
273
-
273
+
274
274
end )
275
275
276
276
end ) -- public functions
277
-
277
+
278
278
end )
0 commit comments