diff options
Diffstat (limited to 'jni/ruby/test/optparse/test_optparse.rb')
-rw-r--r-- | jni/ruby/test/optparse/test_optparse.rb | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/jni/ruby/test/optparse/test_optparse.rb b/jni/ruby/test/optparse/test_optparse.rb new file mode 100644 index 0000000..e85a2ef --- /dev/null +++ b/jni/ruby/test/optparse/test_optparse.rb @@ -0,0 +1,66 @@ +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 |