2010-02-02 08:58:56 -05:00
|
|
|
require_relative 'test_optparse'
|
2003-11-05 05:09:58 -05:00
|
|
|
|
|
|
|
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
|
2008-09-24 13:44:39 -04:00
|
|
|
assert_raise(OptionParser::InvalidOption) {@opt.parse!(%w"-xq")}
|
2003-11-05 05:09:58 -05:00
|
|
|
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
|
2008-09-24 13:44:39 -04:00
|
|
|
assert_raise(OptionParser::InvalidOption) {@opt.parse!(%w"-oq")}
|
2003-11-05 05:09:58 -05:00
|
|
|
assert_equal(%w"", no_error {@opt.parse!(%w"-o")})
|
|
|
|
assert_equal(true, @flag)
|
|
|
|
@flag = nil
|
2008-09-24 13:44:39 -04:00
|
|
|
assert_raise(OptionParser::InvalidOption) {@opt.parse!(%w"-O")}
|
2004-12-05 05:39:58 -05:00
|
|
|
assert_nil(@flag)
|
2003-11-05 05:09:58 -05:00
|
|
|
@flag = nil
|
|
|
|
assert_equal(%w"foo", no_error {@opt.parse!(%w"-o foo")})
|
|
|
|
assert_equal(true, @flag)
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_long
|
2008-09-24 13:44:39 -04:00
|
|
|
assert_raise(OptionParser::NeedlessArgument) {@opt.parse!(%w"--option=x")}
|
2003-11-05 05:09:58 -05:00
|
|
|
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|}
|
2008-09-24 13:44:39 -04:00
|
|
|
assert_raise(OptionParser::AmbiguousOption) {@opt.parse!(%w"--op")}
|
|
|
|
assert_raise(OptionParser::AmbiguousOption) {@opt.parse!(%w"-o")}
|
2003-11-05 05:09:58 -05:00
|
|
|
assert_equal(%w"", no_error {@opt.parse!(%w"--opt")})
|
|
|
|
assert_equal(true, @flag)
|
|
|
|
end
|
|
|
|
end
|