2003-11-05 05:09:58 -05:00
|
|
|
require 'test/unit'
|
|
|
|
require 'optparse'
|
|
|
|
|
|
|
|
class TestOptionParser < Test::Unit::TestCase
|
|
|
|
def setup
|
|
|
|
@opt = OptionParser.new
|
|
|
|
@flag = self.class # cannot set by option
|
|
|
|
end
|
|
|
|
def no_error(*args)
|
|
|
|
assert_nothing_raised(*args) {return yield}
|
2009-04-26 02:13:11 -04:00
|
|
|
ensure
|
|
|
|
$!.backtrace.delete_if {|e| /\A#{Regexp.quote(__FILE__)}:#{__LINE__-2}/o =~ e} if $!
|
2003-11-05 05:09:58 -05:00
|
|
|
end
|
|
|
|
|
|
|
|
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
|
|
|
|
end
|