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
|
# frozen_string_literal: false
require 'test/unit'
require 'optparse'
class TestOptionParser < Test::Unit::TestCase
def setup
@opt = OptionParser.new
@flag = self.class # cannot set by option
end
class DummyOutput < String
alias write concat
end
def assert_no_error(*args)
$stderr, stderr = DummyOutput.new, $stderr
assert_nothing_raised(*args) {return yield}
ensure
stderr, $stderr = $stderr, stderr
$!.backtrace.delete_if {|e| /\A#{Regexp.quote(__FILE__)}:#{__LINE__-2}/o =~ e} if $!
assert_empty(stderr)
end
alias no_error assert_no_error
def test_permute
assert_equal(%w"", no_error {@opt.permute!(%w"")})
assert_equal(self.class, @flag)
assert_equal(%w"foo bar", no_error {@opt.permute!(%w"foo bar")})
assert_equal(self.class, @flag)
assert_equal(%w"- foo bar", no_error {@opt.permute!(%w"- foo bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo bar", no_error {@opt.permute!(%w"-- foo bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo - bar", no_error {@opt.permute!(%w"foo - bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo bar", no_error {@opt.permute!(%w"foo -- bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo --help bar", no_error {@opt.permute!(%w"foo -- --help bar")})
assert_equal(self.class, @flag)
end
def test_order
assert_equal(%w"", no_error {@opt.order!(%w"")})
assert_equal(self.class, @flag)
assert_equal(%w"foo bar", no_error {@opt.order!(%w"foo bar")})
assert_equal(self.class, @flag)
assert_equal(%w"- foo bar", no_error {@opt.order!(%w"- foo bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo bar", no_error {@opt.permute!(%w"-- foo bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo - bar", no_error {@opt.order!(%w"foo - bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo -- bar", no_error {@opt.order!(%w"foo -- bar")})
assert_equal(self.class, @flag)
assert_equal(%w"foo -- --help bar", no_error {@opt.order!(%w"foo -- --help bar")})
assert_equal(self.class, @flag)
end
def test_regexp
return unless defined?(@reopt)
assert_equal(%w"", no_error {@opt.parse!(%w"--regexp=/foo/")})
assert_equal(/foo/, @reopt)
assert_equal(%w"", no_error {@opt.parse!(%w"--regexp=/foo/i")})
assert_equal(/foo/i, @reopt)
assert_equal(%w"", no_error {@opt.parse!(%w"--regexp=/foo/n")})
assert_equal(/foo/n, @reopt)
end
def test_into
@opt.def_option "-h", "--host=HOST", "hostname"
@opt.def_option "-p", "--port=PORT", "port", Integer
@opt.def_option "-v", "--verbose" do @verbose = true end
@opt.def_option "-q", "--quiet" do @quiet = true end
result = {}
@opt.parse %w(--host localhost --port 8000 -v), into: result
assert_equal({host: "localhost", port: 8000, verbose: true}, result)
assert_equal(true, @verbose)
end
def test_require_exact
@opt.def_option('-F', '--zrs=IRS', 'zrs')
%w(--zrs --zr --z -zfoo -z -F -Ffoo).each do |arg|
result = {}
@opt.parse([arg, 'foo'], into: result)
assert_equal({zrs: 'foo'}, result)
end
@opt.require_exact = true
%w(--zrs -F -Ffoo).each do |arg|
result = {}
@opt.parse([arg, 'foo'], into: result)
assert_equal({zrs: 'foo'}, result)
end
assert_raise(OptionParser::InvalidOption) {@opt.parse(%w(--zr foo))}
assert_raise(OptionParser::InvalidOption) {@opt.parse(%w(--z foo))}
assert_raise(OptionParser::InvalidOption) {@opt.parse(%w(-zrs foo))}
assert_raise(OptionParser::InvalidOption) {@opt.parse(%w(-zr foo))}
assert_raise(OptionParser::InvalidOption) {@opt.parse(%w(-z foo))}
end
def test_nonopt_pattern
@opt.def_option(/^[^-]/) do |arg|
assert(false, "Never gets called")
end
e = assert_raise(OptionParser::InvalidOption) {@opt.parse(%w(-t))}
assert_equal(["-t"], e.args)
end
end
|
