keyme-rice 1.5.1.keyme

data/test/test_String.cpp

@@ -0,0 +1,94 @@
+#include "unittest.hpp"
+#include "rice/String.hpp"
+
+using namespace Rice;
+
+TESTSUITE(String);
+
+SETUP(String)
+{
+  ruby_init();
+}
+
+TESTCASE(default_construct)
+{
+  String s;
+  ASSERT_EQUAL(T_STRING, rb_type(s));
+  ASSERT_EQUAL("", RSTRING_PTR(s.value()));
+}
+
+TESTCASE(construct_from_value)
+{
+  String s(rb_str_new2("foo"));
+  ASSERT_EQUAL(T_STRING, rb_type(s));
+  ASSERT_EQUAL("foo", RSTRING_PTR(s.value()));
+}
+
+TESTCASE(construct_from_object)
+{
+  Object o(rb_str_new2("foo"));
+  String s(o);
+  ASSERT_EQUAL(T_STRING, rb_type(s));
+  ASSERT_EQUAL("foo", RSTRING_PTR(s.value()));
+}
+
+TESTCASE(construct_from_identifier)
+{
+  String s(Identifier("foo"));
+  ASSERT_EQUAL(T_STRING, rb_type(s));
+  ASSERT_EQUAL("foo", RSTRING_PTR(s.value()));
+}
+
+TESTCASE(construct_from_c_string)
+{
+  String s("foo");
+  ASSERT_EQUAL(T_STRING, rb_type(s));
+  ASSERT_EQUAL("foo", RSTRING_PTR(s.value()));
+}
+
+TESTCASE(construct_from_std_string)
+{
+  String s(std::string("foo"));
+  ASSERT_EQUAL(T_STRING, rb_type(s));
+  ASSERT_EQUAL("foo", RSTRING_PTR(s.value()));
+}
+
+TESTCASE(format)
+{
+  String s(String::format("%s %d", "foo", 42));
+  ASSERT_EQUAL(T_STRING, rb_type(s));
+  ASSERT_EQUAL("foo 42", RSTRING_PTR(s.value()));
+}
+
+TESTCASE(length)
+{
+  String s("foo");
+  ASSERT_EQUAL(3u, s.length());
+}
+
+TESTCASE(bracket)
+{
+  String s("foo");
+  ASSERT_EQUAL('f', s[0]);
+  ASSERT_EQUAL('o', s[1]);
+  ASSERT_EQUAL('o', s[2]);
+}
+
+TESTCASE(c_str)
+{
+  String s("foo");
+  ASSERT_EQUAL(RSTRING_PTR(s.value()), s.c_str());
+}
+
+TESTCASE(str)
+{
+  String s("foo");
+  ASSERT_EQUAL(std::string("foo"), s.str());
+}
+
+TESTCASE(intern)
+{
+  String s("foo");
+  ASSERT_EQUAL(Identifier("foo"), s.intern());
+}
+

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,321 @@
+#include "unittest.hpp"
+#include "rice/to_from_ruby.hpp"
+#include "rice/String.hpp"
+#include "rice/Array.hpp"
+#include "rice/Hash.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(char_from_ruby_single_character_string)
+{
+  ASSERT_EQUAL('x', from_ruby<char>(rb_str_new2("x")));
+}
+
+TESTCASE(char_from_ruby_longer_string)
+{
+  ASSERT_EXCEPTION(
+    std::invalid_argument,
+    from_ruby<char>(rb_str_new2("xy"))
+  );
+}
+
+TESTCASE(char_from_ruby_fixnum)
+{
+  ASSERT_EQUAL('1', from_ruby<char>(INT2NUM(49)));
+}
+
+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")));
+}
+
+TESTCASE(std_string_to_ruby_with_binary)
+{
+  Rice::String got = to_ruby(std::string("\000test", 5));
+
+  ASSERT_EQUAL(String(std::string("\000test", 5)), got);
+  ASSERT_EQUAL(5, got.length());
+}
+
+TESTCASE(std_string_from_ruby_with_binary)
+{
+  std::string got = from_ruby<std::string>(rb_str_new("\000test", 5));
+  ASSERT_EQUAL(5, got.length());
+  ASSERT_EQUAL(std::string("\000test", 5), got);
+}
+
+TESTCASE(array_to_ruby)
+{
+  Array a(rb_ary_new());
+  ASSERT_EQUAL(a.value(), to_ruby(a).value());
+}
+
+TESTCASE(array_from_ruby)
+{
+  Array a(rb_ary_new());
+  ASSERT_EQUAL(a.value(), from_ruby<Array>(a).value());
+}
+
+TESTCASE(hash_to_ruby)
+{
+  Hash h(rb_hash_new());
+  ASSERT_EQUAL(h.value(), to_ruby(h).value());
+}
+
+TESTCASE(hash_from_ruby)
+{
+  Hash h(rb_hash_new());
+  ASSERT_EQUAL(h.value(), from_ruby<Hash>(h).value());
+}

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");
+}
+