wurlinc-rice 1.4.0.1

data/test/test_Struct.cpp

@@ -0,0 +1,192 @@
+#include "unittest.hpp"
+#include "rice/Struct.hpp"
+#include "rice/Symbol.hpp"
+
+using namespace Rice;
+
+TESTSUITE(Struct);
+
+namespace
+{
+  Struct define_3d_point()
+  {
+    static Struct rb_cPoint = define_struct()
+      .define_member("x")
+      .define_member("y")
+      .define_member("z")
+      .initialize(rb_mKernel, "Point");
+    return rb_cPoint;
+  }
+}
+
+SETUP(Struct)
+{
+  ruby_init();
+}
+
+TESTCASE(default_construct)
+{
+  Struct s;
+  ASSERT_EQUAL(0, s.members().size());
+  // can't call rb_struct_s_members, because this isn't a struct yet
+}
+
+TESTCASE(initialize)
+{
+  Struct s(define_3d_point());
+  Array members(rb_struct_s_members(s));
+  ASSERT_EQUAL(3, members.size());
+  ASSERT_EQUAL("x", Symbol(members[0]).c_str());
+  ASSERT_EQUAL("y", Symbol(members[1]).c_str());
+  ASSERT_EQUAL("z", Symbol(members[2]).c_str());
+}
+
+TESTCASE(copy_construct)
+{
+  Struct s(define_3d_point());
+  Struct s2(s);
+  Array members(rb_struct_s_members(s2));
+  ASSERT_EQUAL(3, members.size());
+  ASSERT_EQUAL("x", Symbol(members[0]).c_str());
+  ASSERT_EQUAL("y", Symbol(members[1]).c_str());
+  ASSERT_EQUAL("z", Symbol(members[2]).c_str());
+}
+
+TESTCASE(offset_of)
+{
+  Struct s(define_3d_point());
+  ASSERT_EQUAL(0, s.offset_of("x"));
+  ASSERT_EQUAL(1, s.offset_of("y"));
+  ASSERT_EQUAL(2, s.offset_of("z"));
+}
+
+TESTCASE(new_instance_no_args)
+{
+  Struct s(define_3d_point());
+  Struct::Instance p(s.new_instance());
+  ASSERT_EQUAL(Rice::Nil, Object(rb_struct_getmember(p, rb_intern("x"))));
+  ASSERT_EQUAL(Rice::Nil, Object(rb_struct_getmember(p, rb_intern("y"))));
+  ASSERT_EQUAL(Rice::Nil, Object(rb_struct_getmember(p, rb_intern("z"))));
+}
+
+TESTCASE(new_instance_with_args)
+{
+  int a[] = { 1, 2, 3 };
+  Array args(a);
+  Struct s(define_3d_point());
+  Struct::Instance p(s.new_instance(args));
+  ASSERT_EQUAL(to_ruby(1), Object(rb_struct_getmember(p, rb_intern("x"))));
+  ASSERT_EQUAL(to_ruby(2), Object(rb_struct_getmember(p, rb_intern("y"))));
+  ASSERT_EQUAL(to_ruby(3), Object(rb_struct_getmember(p, rb_intern("z"))));
+}
+
+TESTCASE(swap)
+{
+  Struct s(define_3d_point());
+  Struct s2;
+  s2.swap(s);
+
+  try
+  {
+    Array members(rb_struct_s_members(s2));
+    ASSERT_EQUAL(3, members.size());
+    ASSERT_EQUAL("x", Symbol(members[0]).c_str());
+    ASSERT_EQUAL("y", Symbol(members[1]).c_str());
+    ASSERT_EQUAL("z", Symbol(members[2]).c_str());
+  }
+  catch(...)
+  {
+    s2.swap(s);
+    throw;
+  }
+
+  s2.swap(s);
+}
+
+TESTCASE(members)
+{
+  Struct s(define_3d_point());
+  Array members(s.members());
+  ASSERT_EQUAL(3, members.size());
+  ASSERT_EQUAL("x", Symbol(members[0]).c_str());
+  ASSERT_EQUAL("y", Symbol(members[1]).c_str());
+  ASSERT_EQUAL("z", Symbol(members[2]).c_str());
+}
+
+TESTCASE(construct_instance)
+{
+  int a[] = { 1, 2, 3 };
+  Array args(a);
+  Struct s(define_3d_point());
+  Struct::Instance p(s, args);
+  ASSERT_EQUAL(to_ruby(1), Object(rb_struct_getmember(p, rb_intern("x"))));
+  ASSERT_EQUAL(to_ruby(2), Object(rb_struct_getmember(p, rb_intern("y"))));
+  ASSERT_EQUAL(to_ruby(3), Object(rb_struct_getmember(p, rb_intern("z"))));
+}
+
+TESTCASE(wrap_instance)
+{
+  Struct s(define_3d_point());
+  Object o = s.instance_eval("new(1, 2, 3)");
+  Struct::Instance p(s, o);
+  ASSERT_EQUAL(to_ruby(1), Object(rb_struct_getmember(p, rb_intern("x"))));
+  ASSERT_EQUAL(to_ruby(2), Object(rb_struct_getmember(p, rb_intern("y"))));
+  ASSERT_EQUAL(to_ruby(3), Object(rb_struct_getmember(p, rb_intern("z"))));
+}
+
+TESTCASE(instance_bracket_identifier)
+{
+  int a[] = { 1, 2, 3 };
+  Array args(a);
+  Struct s(define_3d_point());
+  Struct::Instance p(s, args);
+  ASSERT_EQUAL(to_ruby(1), p[Identifier("x")]);
+  ASSERT_EQUAL(to_ruby(2), p[Identifier("y")]);
+  ASSERT_EQUAL(to_ruby(3), p[Identifier("z")]);
+}
+
+TESTCASE(instance_bracket_name)
+{
+  int a[] = { 1, 2, 3 };
+  Array args(a);
+  Struct s(define_3d_point());
+  Struct::Instance p(s, args);
+  ASSERT_EQUAL(to_ruby(1), p["x"]);
+  ASSERT_EQUAL(to_ruby(2), p["y"]);
+  ASSERT_EQUAL(to_ruby(3), p["z"]);
+}
+
+TESTCASE(instance_bracket_index)
+{
+  int a[] = { 1, 2, 3 };
+  Array args(a);
+  Struct s(define_3d_point());
+  Struct::Instance p(s, args);
+  ASSERT_EQUAL(to_ruby(1), p[0]);
+  ASSERT_EQUAL(to_ruby(2), p[1]);
+  ASSERT_EQUAL(to_ruby(3), p[2]);
+}
+
+TESTCASE(instance_swap)
+{
+  Struct s(define_3d_point());
+
+  int a1[] = { 1, 2, 3 };
+  Array args1(a1);
+  Struct::Instance p1(s, args1);
+
+  int a2[] = { 4, 5, 6 };
+  Array args2(a2);
+  Struct::Instance p2(s, args2);
+
+  p1.swap(p2);
+
+  ASSERT_EQUAL(to_ruby(4), Object(rb_struct_getmember(p1, rb_intern("x"))));
+  ASSERT_EQUAL(to_ruby(5), Object(rb_struct_getmember(p1, rb_intern("y"))));
+  ASSERT_EQUAL(to_ruby(6), Object(rb_struct_getmember(p1, rb_intern("z"))));
+
+  ASSERT_EQUAL(to_ruby(1), Object(rb_struct_getmember(p2, rb_intern("x"))));
+  ASSERT_EQUAL(to_ruby(2), Object(rb_struct_getmember(p2, rb_intern("y"))));
+  ASSERT_EQUAL(to_ruby(3), Object(rb_struct_getmember(p2, rb_intern("z"))));
+}
+

data/test/test_Symbol.cpp

@@ -0,0 +1,63 @@
+#include "unittest.hpp"
+#include "rice/Symbol.hpp"
+#include "rice/Identifier.hpp"
+
+using namespace Rice;
+
+TESTSUITE(Symbol);
+
+SETUP(Symbol)
+{
+  ruby_init();
+}
+
+TESTCASE(construct_from_symbol)
+{
+  VALUE v = ID2SYM(rb_intern("foo"));
+  Symbol symbol(v);
+  ASSERT_EQUAL(v, symbol.value());
+}
+
+TESTCASE(construct_from_identifier)
+{
+  Identifier identifier("FOO");
+  Symbol symbol(identifier);
+  ASSERT_EQUAL(ID2SYM(rb_intern("FOO")), symbol.value());
+}
+
+TESTCASE(construct_from_string)
+{
+  Symbol symbol("Foo");
+  ASSERT_EQUAL(ID2SYM(rb_intern("Foo")), symbol.value());
+}
+
+TESTCASE(default_construct)
+{
+  Symbol symbol;
+  ASSERT_EQUAL(ID2SYM(rb_intern("")), symbol.value());
+}
+
+TESTCASE(copy_construct)
+{
+  Symbol symbol1("Foo");
+  Symbol symbol2(symbol1);
+  ASSERT_EQUAL(ID2SYM(rb_intern("Foo")), symbol2.value());
+}
+
+TESTCASE(c_str)
+{
+  Symbol symbol("Foo");
+  ASSERT_EQUAL("Foo", symbol.c_str());
+}
+
+TESTCASE(str)
+{
+  Symbol symbol("Foo");
+  ASSERT_EQUAL(std::string("Foo"), symbol.str());
+}
+
+TESTCASE(to_id)
+{
+  Symbol symbol("Foo");
+  ASSERT_EQUAL(Identifier("Foo"), symbol.to_id());
+}

data/test/test_To_From_Ruby.cpp

@@ -0,0 +1,263 @@
+#include "unittest.hpp"
+#include "rice/to_from_ruby.hpp"
+#include "rice/String.hpp"
+#include <limits>
+#include <cmath>
+
+using namespace Rice;
+
+TESTSUITE(To_From_Ruby);
+
+SETUP(To_From_Ruby)
+{
+  ruby_init();
+}
+
+TESTCASE(object_to_ruby)
+{
+  Object o(rb_str_new2("foo"));
+  ASSERT_EQUAL(o.value(), to_ruby(o).value());
+}
+
+TESTCASE(object_from_ruby)
+{
+  Object o(rb_str_new2("foo"));
+  ASSERT_EQUAL(o.value(), from_ruby<Object>(o).value());
+}
+
+TESTCASE(int_to_ruby)
+{
+  ASSERT_EQUAL(INT2NUM(0), to_ruby((int)0).value());
+  ASSERT_EQUAL(INT2NUM(-1), to_ruby((int)-1).value());
+  ASSERT_EQUAL(INT2NUM(1), to_ruby((int)1).value());
+  ASSERT_EQUAL(
+      Object(INT2NUM(std::numeric_limits<int>::min())),
+      to_ruby(std::numeric_limits<int>::min()));
+  ASSERT_EQUAL(
+      Object(INT2NUM(std::numeric_limits<int>::max())),
+      to_ruby(std::numeric_limits<int>::max()));
+}
+
+TESTCASE(int_from_ruby)
+{
+  ASSERT_EQUAL(0, from_ruby<int>(INT2NUM(0)));
+  ASSERT_EQUAL(-1, from_ruby<int>(INT2NUM(-1)));
+  ASSERT_EQUAL(1, from_ruby<int>(INT2NUM(1)));
+  ASSERT_EQUAL(
+      std::numeric_limits<int>::min(),
+      from_ruby<int>(INT2NUM(std::numeric_limits<int>::min())));
+  ASSERT_EQUAL(
+      std::numeric_limits<int>::max(),
+      from_ruby<int>(INT2NUM(std::numeric_limits<int>::max())));
+}
+
+TESTCASE(long_to_ruby)
+{
+  ASSERT_EQUAL(LONG2NUM(0), to_ruby((long)0).value());
+  ASSERT_EQUAL(LONG2NUM(-1), to_ruby((long)-1).value());
+  ASSERT_EQUAL(LONG2NUM(1), to_ruby((long)1).value());
+  ASSERT_EQUAL(
+      LONG2NUM(FIXNUM_MAX),
+      to_ruby(FIXNUM_MAX).value());
+  ASSERT_EQUAL(
+      LONG2NUM(FIXNUM_MIN),
+      to_ruby(FIXNUM_MIN).value());
+  ASSERT_EQUAL(
+      Object(LONG2NUM(std::numeric_limits<long>::min())),
+      to_ruby(std::numeric_limits<long>::min()));
+  ASSERT_EQUAL(
+      Object(LONG2NUM(std::numeric_limits<long>::max())),
+      to_ruby(std::numeric_limits<long>::max()));
+}
+
+TESTCASE(long_from_ruby)
+{
+  ASSERT_EQUAL(0, from_ruby<long>(LONG2NUM(0)));
+  ASSERT_EQUAL(-1, from_ruby<long>(LONG2NUM(-1)));
+  ASSERT_EQUAL(1, from_ruby<long>(LONG2NUM(1)));
+  ASSERT_EQUAL(
+      FIXNUM_MIN,
+      from_ruby<long>(LONG2NUM(FIXNUM_MIN)));
+  ASSERT_EQUAL(
+      FIXNUM_MAX,
+      from_ruby<long>(LONG2NUM(FIXNUM_MAX)));
+  ASSERT_EQUAL(
+      std::numeric_limits<long>::min(),
+      from_ruby<long>(LONG2NUM(std::numeric_limits<long>::min())));
+  ASSERT_EQUAL(
+      std::numeric_limits<long>::max(),
+      from_ruby<long>(LONG2NUM(std::numeric_limits<long>::max())));
+}
+
+TESTCASE(unsigned_int_to_ruby)
+{
+  ASSERT_EQUAL(UINT2NUM(0), to_ruby((unsigned int)0).value());
+  ASSERT_EQUAL(UINT2NUM(1), to_ruby((unsigned int)1).value());
+  ASSERT_EQUAL(
+      Object(UINT2NUM(std::numeric_limits<unsigned int>::min())),
+      to_ruby(std::numeric_limits<unsigned int>::min()));
+  ASSERT_EQUAL(
+      Object(UINT2NUM(std::numeric_limits<unsigned int>::max())),
+      to_ruby(std::numeric_limits<unsigned int>::max()));
+}
+
+TESTCASE(unsigned_int_from_ruby)
+{
+  ASSERT_EQUAL(0u, from_ruby<unsigned int>(UINT2NUM(0)));
+  ASSERT_EQUAL(1u, from_ruby<unsigned int>(UINT2NUM(1)));
+  ASSERT_EQUAL(
+      std::numeric_limits<unsigned int>::min(),
+      from_ruby<unsigned int>(UINT2NUM(std::numeric_limits<unsigned int>::min())));
+  ASSERT_EQUAL(
+      std::numeric_limits<unsigned int>::max(),
+      from_ruby<unsigned int>(UINT2NUM(std::numeric_limits<unsigned int>::max())));
+}
+
+TESTCASE(unsigned_long_to_ruby)
+{
+  ASSERT_EQUAL(ULONG2NUM(0), to_ruby((unsigned long)0).value());
+  ASSERT_EQUAL(ULONG2NUM(1), to_ruby((unsigned long)1).value());
+  ASSERT_EQUAL(
+      ULONG2NUM(FIXNUM_MAX),
+      to_ruby(FIXNUM_MAX).value());
+  ASSERT_EQUAL(
+      Object(ULONG2NUM(std::numeric_limits<unsigned long>::min())),
+      to_ruby(std::numeric_limits<unsigned long>::min()));
+  ASSERT_EQUAL(
+      Object(ULONG2NUM(std::numeric_limits<unsigned long>::max())),
+      to_ruby(std::numeric_limits<unsigned long>::max()));
+}
+
+TESTCASE(unsigned_long_from_ruby)
+{
+  ASSERT_EQUAL(0u, from_ruby<unsigned long>(ULONG2NUM(0)));
+  ASSERT_EQUAL(1u, from_ruby<unsigned long>(ULONG2NUM(1)));
+  ASSERT_EQUAL(
+      static_cast<unsigned long>(FIXNUM_MIN),
+      from_ruby<unsigned long>(ULONG2NUM(FIXNUM_MIN)));
+  ASSERT_EQUAL(
+      std::numeric_limits<unsigned long>::min(),
+      from_ruby<unsigned long>(ULONG2NUM(std::numeric_limits<unsigned long>::min())));
+  ASSERT_EQUAL(
+      std::numeric_limits<unsigned long>::max(),
+      from_ruby<unsigned long>(ULONG2NUM(std::numeric_limits<unsigned long>::max())));
+}
+
+TESTCASE(bool_to_ruby)
+{
+  ASSERT_EQUAL(Qfalse, to_ruby(false).value());
+  ASSERT_EQUAL(Qtrue, to_ruby(true).value());
+}
+
+TESTCASE(bool_from_ruby)
+{
+  ASSERT_EQUAL(false, from_ruby<bool>(Object(Qfalse)));
+  ASSERT_EQUAL(true, from_ruby<bool>(Object(Qtrue)));
+}
+
+TESTCASE(float_to_ruby)
+{
+  ASSERT_EQUAL(Object(rb_float_new(0.0f)), to_ruby(0.0f));
+  ASSERT_EQUAL(Object(rb_float_new(-1.0f)), to_ruby(-1.0f));
+  ASSERT_EQUAL(Object(rb_float_new(1.0f)), to_ruby(1.0f));
+  ASSERT_EQUAL(Object(rb_float_new(0.5f)), to_ruby(0.5f));
+  ASSERT_EQUAL(
+      Object(rb_float_new(std::numeric_limits<float>::min())),
+      to_ruby(std::numeric_limits<float>::min()));
+  ASSERT_EQUAL(
+      Object(rb_float_new(std::numeric_limits<float>::max())),
+      to_ruby(std::numeric_limits<float>::max()));
+  ASSERT(
+      to_ruby(std::numeric_limits<float>::quiet_NaN()).call("nan?"));
+  ASSERT(
+      to_ruby(std::numeric_limits<float>::signaling_NaN()).call("nan?"));
+  ASSERT_EQUAL(
+      Object(rb_float_new(std::numeric_limits<float>::epsilon())),
+      to_ruby(std::numeric_limits<float>::epsilon()));
+}
+
+TESTCASE(float_from_ruby)
+{
+  ASSERT_EQUAL(0.0f, from_ruby<float>(rb_float_new(0.0f)));
+  ASSERT_EQUAL(-1.0f, from_ruby<float>(rb_float_new(-1.0f)));
+  ASSERT_EQUAL(1.0f, from_ruby<float>(rb_float_new(1.0f)));
+  ASSERT_EQUAL(
+      std::numeric_limits<float>::min(),
+      from_ruby<float>(rb_float_new(std::numeric_limits<float>::min())));
+  ASSERT_EQUAL(
+      std::numeric_limits<float>::max(),
+      from_ruby<float>(rb_float_new(std::numeric_limits<float>::max())));
+  ASSERT(
+      std::isnan(from_ruby<float>(rb_float_new(std::numeric_limits<float>::quiet_NaN()))));
+  ASSERT(
+      std::isnan(from_ruby<float>(rb_float_new(std::numeric_limits<float>::signaling_NaN()))));
+  ASSERT_EQUAL(
+      std::numeric_limits<float>::epsilon(),
+      from_ruby<float>(rb_float_new(std::numeric_limits<float>::epsilon())));
+}
+
+TESTCASE(double_to_ruby)
+{
+  ASSERT_EQUAL(Object(rb_float_new(0.0f)), to_ruby(0.0f));
+  ASSERT_EQUAL(Object(rb_float_new(-1.0f)), to_ruby(-1.0f));
+  ASSERT_EQUAL(Object(rb_float_new(1.0f)), to_ruby(1.0f));
+  ASSERT_EQUAL(Object(rb_float_new(0.5f)), to_ruby(0.5f));
+  ASSERT_EQUAL(
+      Object(rb_float_new(std::numeric_limits<double>::min())),
+      to_ruby(std::numeric_limits<double>::min()));
+  ASSERT_EQUAL(
+      Object(rb_float_new(std::numeric_limits<double>::max())),
+      to_ruby(std::numeric_limits<double>::max()));
+  ASSERT(
+      to_ruby(std::numeric_limits<double>::quiet_NaN()).call("nan?"));
+  ASSERT(
+      to_ruby(std::numeric_limits<double>::signaling_NaN()).call("nan?"));
+  ASSERT_EQUAL(
+      Object(rb_float_new(std::numeric_limits<double>::epsilon())),
+      to_ruby(std::numeric_limits<double>::epsilon()));
+}
+
+TESTCASE(double_from_ruby)
+{
+  ASSERT_EQUAL(0.0f, from_ruby<double>(rb_float_new(0.0f)));
+  ASSERT_EQUAL(-1.0f, from_ruby<double>(rb_float_new(-1.0f)));
+  ASSERT_EQUAL(1.0f, from_ruby<double>(rb_float_new(1.0f)));
+  ASSERT_EQUAL(
+      std::numeric_limits<double>::min(),
+      from_ruby<double>(rb_float_new(std::numeric_limits<double>::min())));
+  ASSERT_EQUAL(
+      std::numeric_limits<double>::max(),
+      from_ruby<double>(rb_float_new(std::numeric_limits<double>::max())));
+  ASSERT(
+      std::isnan(from_ruby<double>(rb_float_new(std::numeric_limits<double>::quiet_NaN()))));
+  ASSERT(
+      std::isnan(from_ruby<double>(rb_float_new(std::numeric_limits<double>::signaling_NaN()))));
+  ASSERT_EQUAL(
+      std::numeric_limits<double>::epsilon(),
+      from_ruby<double>(rb_float_new(std::numeric_limits<double>::epsilon())));
+}
+
+TESTCASE(char_const_ptr_to_ruby)
+{
+  ASSERT_EQUAL(String(""), to_ruby((char const *)""));
+  ASSERT_EQUAL(String("foo"), to_ruby((char const *)"foo"));
+}
+
+TESTCASE(char_const_ptr_from_ruby)
+{
+  ASSERT_EQUAL("", from_ruby<char const *>(rb_str_new2("")));
+  ASSERT_EQUAL("foo", from_ruby<char const *>(rb_str_new2("foo")));
+}
+
+TESTCASE(std_string_to_ruby)
+{
+  ASSERT_EQUAL(String(""), to_ruby(std::string("")));
+  ASSERT_EQUAL(String("foo"), to_ruby(std::string("foo")));
+}
+
+TESTCASE(std_string_from_ruby)
+{
+  ASSERT_EQUAL(std::string(""), from_ruby<std::string>(rb_str_new2("")));
+  ASSERT_EQUAL(std::string("foo"), from_ruby<std::string>(rb_str_new2("foo")));
+}
+

data/test/test_VM.cpp

@@ -0,0 +1,26 @@
+#include "unittest.hpp"
+#include "rice/VM.hpp"
+#include "rice/Object.hpp"
+#include <memory>
+
+using namespace Rice;
+
+std::auto_ptr<VM> vm;
+
+TESTSUITE(VM);
+
+SETUP(VM)
+{
+  std::vector<const char *> args;
+  args.push_back("test_VM");
+  args.push_back("-e");
+  args.push_back("puts \"HELLO\"");
+  vm.reset(new VM(args));
+}
+
+TESTCASE(create_object)
+{
+  Object o;
+  o.call("to_s");
+}
+

data/test/test_global_functions.cpp

@@ -0,0 +1,114 @@
+#include "unittest.hpp"
+#include "rice/global_function.hpp"
+
+using namespace Rice;
+
+TESTSUITE(GlobalFunction);
+
+SETUP(GlobalFunction)
+{
+  ruby_init();
+}
+
+namespace {
+
+  bool method_to_wrap_called = false;
+  void method_to_wrap(Object self) {
+    method_to_wrap_called = true;
+  }
+
+  int method_with_args_arg0;
+
+  void method_with_args(Object self, int arg) {
+    method_with_args_arg0 = arg;
+  }
+
+}
+
+TESTCASE(exposes_global_functions)
+{
+  define_global_function("method_to_wrap", &method_to_wrap);
+  Module m = Module(rb_mKernel);
+  m.call("method_to_wrap");
+
+  ASSERT(method_to_wrap_called);
+}
+
+TESTCASE(exposes_global_functions_with_arguments)
+{
+  define_global_function("method_with_args", &method_with_args);
+  Module m = Module(rb_mKernel);
+  m.call("method_with_args", 10);
+
+  ASSERT_EQUAL(10, method_with_args_arg0);
+}
+
+namespace
+{
+  int defaults_method_one_arg1;
+  int defaults_method_one_arg2;
+  bool defaults_method_one_arg3 = false;
+
+  void defaults_method_one(int arg1, int arg2 = 3, bool arg3 = true)
+  {
+    defaults_method_one_arg1 = arg1;
+    defaults_method_one_arg2 = arg2;
+    defaults_method_one_arg3 = arg3;
+  }
+
+  int defaults_returns(int arg1, int arg2 = 3)
+  {
+    return arg1 * arg2;
+  }
+}
+
+TESTCASE(default_arguments_for_define_global_function)
+{
+  define_global_function("foo", &defaults_method_one, (Arg("arg1"), Arg("arg2") = (int)3, Arg("arg3") = (bool)true));
+  Module m(rb_mKernel);
+
+  m.call("foo", 2);
+
+  ASSERT_EQUAL(2, defaults_method_one_arg1);
+  ASSERT_EQUAL(3, defaults_method_one_arg2);
+  ASSERT(defaults_method_one_arg3);
+
+  m.call("foo", 11, 10);
+
+  ASSERT_EQUAL(11, defaults_method_one_arg1);
+  ASSERT_EQUAL(10, defaults_method_one_arg2);
+  ASSERT(defaults_method_one_arg3);
+
+  m.call("foo", 22, 33, false);
+
+  ASSERT_EQUAL(22, defaults_method_one_arg1);
+  ASSERT_EQUAL(33, defaults_method_one_arg2);
+  ASSERT(!defaults_method_one_arg3);
+}
+
+TESTCASE(default_arguments_for_define_global_function_and_returning)
+{
+  define_global_function("foo_ret", &defaults_returns, (Arg("arg1"), Arg("arg2") = (int)3));
+  Module m(rb_mKernel);
+
+  Object o = m.call("foo_ret", 2);
+  ASSERT_EQUAL(INT2NUM(6), o.value());
+
+  o = m.call("foo_ret", 5, 10);
+  ASSERT_EQUAL(INT2NUM(50), o.value());
+}
+
+namespace {
+  int the_one_default_arg = 0;
+  void method_with_one_default_arg(int num = 4) {
+    the_one_default_arg = num;
+  }
+}
+
+TESTCASE(single_default_argument)
+{
+  define_global_function("foo", &method_with_one_default_arg, (Arg("num") = (int)4));
+  Module m(rb_mKernel);
+  m.call("foo");
+  ASSERT_EQUAL(4, the_one_default_arg);
+}

data/test/test_rice.rb

@@ -0,0 +1,43 @@
+require 'test/unit'
+require 'rbconfig'
+
+class RiceTest < Test::Unit::TestCase
+  # TODO: probably a better way to find this out...
+  VERBOSE = ARGV.include?('-v')
+
+  EXEEXT = Config::CONFIG['EXEEXT']
+  RUBY = Config::CONFIG['RUBY_INSTALL_NAME']
+
+  def test_unittest
+    run_external_test("./unittest#{EXEEXT}")
+  end
+
+  def test_vm_unittest
+    run_external_test("./vm_unittest#{EXEEXT}")
+  end
+
+  def test_multiple_extensions
+    run_external_test("#{RUBY} test_multiple_extensions.rb")
+  end
+
+  def test_multiple_extensions_with_inheritance
+    run_external_test("#{RUBY} test_multiple_extensions_with_inheritance.rb")
+  end
+
+  def test_multiple_extensions_same_class
+    run_external_test("#{RUBY} test_multiple_extensions_same_class.rb")
+  end
+
+  def run_external_test(executable)
+    if VERBOSE then
+      system(executable)
+    else
+      result = `#{executable}`
+      if $? != 0 then
+        puts result
+      end
+    end
+    raise "Error: $?" if $? != 0
+  end
+end
+