ruby/test/optparse/test_optparse.rb

67 строки
2.4 KiB
Ruby

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 <<
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
end