* lib/optparse/ac.rb: autoconf-like options.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@35214 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

test/optparse/test_autoconf.rb

@@ -0,0 +1,63 @@
+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