From 11dbedfaad4a9a9521ece2198a8dc491678b1902 Mon Sep 17 00:00:00 2001 From: shyouhei Date: Wed, 29 Aug 2007 04:06:12 +0000 Subject: add tag v1_8_6_5001 git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_6_5001@13304 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ruby_1_8_6/test/optparse/test_noarg.rb | 57 ++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 ruby_1_8_6/test/optparse/test_noarg.rb (limited to 'ruby_1_8_6/test/optparse/test_noarg.rb') diff --git a/ruby_1_8_6/test/optparse/test_noarg.rb b/ruby_1_8_6/test/optparse/test_noarg.rb new file mode 100644 index 0000000000..28c469093d --- /dev/null +++ b/ruby_1_8_6/test/optparse/test_noarg.rb @@ -0,0 +1,57 @@ +require 'test_optparse' + +module TestOptionParser::NoArg + class Def1 < TestOptionParser + include NoArg + def setup + super + @opt.def_option("-x") {|x| @flag = x} + @opt.def_option("--option") {|x| @flag = x} + end + end + class Def2 < TestOptionParser + include NoArg + def setup + super + @opt.def_option("-x", "--option") {|x| @flag = x} + end + end + + def test_short + assert_raises(OptionParser::InvalidOption) {@opt.parse!(%w"-xq")} + assert_equal(%w"", no_error {@opt.parse!(%w"-x")}) + assert_equal(true, @flag) + @flag = nil + assert_equal(%w"foo", no_error {@opt.parse!(%w"-x foo")}) + assert_equal(true, @flag) + end + + def test_abbrev + assert_raises(OptionParser::InvalidOption) {@opt.parse!(%w"-oq")} + assert_equal(%w"", no_error {@opt.parse!(%w"-o")}) + assert_equal(true, @flag) + @flag = nil + assert_raises(OptionParser::InvalidOption) {@opt.parse!(%w"-O")} + assert_nil(@flag) + @flag = nil + assert_equal(%w"foo", no_error {@opt.parse!(%w"-o foo")}) + assert_equal(true, @flag) + end + + def test_long + assert_raises(OptionParser::NeedlessArgument) {@opt.parse!(%w"--option=x")} + assert_equal(%w"", no_error {@opt.parse!(%w"--opt")}) + assert_equal(true, @flag) + @flag = nil + assert_equal(%w"foo", no_error {@opt.parse!(%w"--opt foo")}) + assert_equal(true, @flag) + end + + def test_ambiguous + @opt.def_option("--open") {|x|} + assert_raises(OptionParser::AmbiguousOption) {@opt.parse!(%w"--op")} + assert_raises(OptionParser::AmbiguousOption) {@opt.parse!(%w"-o")} + assert_equal(%w"", no_error {@opt.parse!(%w"--opt")}) + assert_equal(true, @flag) + end +end -- cgit v1.2.3