require 'test/unit' require 'optparse/ac' class TestOptionParser < Test::Unit::TestCase; end class TestOptionParser::AutoConf < Test::Unit::TestCase def setup @opt = OptionParser::AC.new @foo = @bar = self.class @opt.ac_arg_enable("foo", "foo option") {|x| @foo = x} @opt.ac_arg_disable("bar", "bar option") {|x| @bar = x} @opt.ac_arg_with("zot", "zot option") {|x| @zot = x} end class DummyOutput < String alias write << end def 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 def test_enable @opt.parse!(%w"--enable-foo") assert_equal(true, @foo) @opt.parse!(%w"--enable-bar") assert_equal(true, @bar) end def test_disable @opt.parse!(%w"--disable-foo") assert_equal(false, @foo) @opt.parse!(%w"--disable-bar") assert_equal(false, @bar) end def test_with @opt.parse!(%w"--with-zot=foobar") assert_equal("foobar", @zot) @opt.parse!(%w"--without-zot") assert_nil(@zot) end def test_without @opt.parse!(%w"--without-zot") assert_nil(@zot) assert_raise(OptionParser::NeedlessArgument) {@opt.parse!(%w"--without-zot=foobar")} end def test_help help = @opt.help assert_match(/--enable-foo/, help) assert_match(/--disable-bar/, help) assert_match(/--with-zot/, help) assert_not_match(/--disable-foo/, help) assert_not_match(/--enable-bar/, help) assert_not_match(/--without/, help) end end