rice 1.0.0

data/test/test_Exception.cpp

@@ -0,0 +1,46 @@
+#include "unittest.hpp"
+#include "rice/Exception.hpp"
+#include "rice/String.hpp"
+
+using namespace Rice;
+
+TESTSUITE(Exception);
+
+SETUP(Exception)
+{
+  ruby_init();
+}
+
+TESTCASE(construct_from_exception_object)
+{
+  VALUE v = protect(rb_exc_new2, rb_eRuntimeError, "foo");
+  Exception ex(v);
+  ASSERT_EQUAL(ex.value(), v);
+}
+
+TESTCASE(copy_construct)
+{
+  VALUE v = protect(rb_exc_new2, rb_eRuntimeError, "foo");
+  Exception ex1(v);
+  Exception ex2(v);
+  ASSERT_EQUAL(ex2.value(), v);
+}
+
+TESTCASE(construct_from_format_string)
+{
+  Exception ex(rb_eRuntimeError, "%s", "foo");
+  ASSERT_EQUAL(ex.class_of(), Object(rb_eRuntimeError));
+}
+
+TESTCASE(message)
+{
+  Exception ex(rb_eRuntimeError, "%s", "foo");
+  ASSERT_EQUAL(String("foo"), ex.message());
+}
+
+TESTCASE(what)
+{
+  Exception ex(rb_eRuntimeError, "%s", "foo");
+  ASSERT_EQUAL("foo", ex.what());
+}
+

data/test/test_Hash.cpp

@@ -0,0 +1,195 @@
+#include "unittest.hpp"
+#include "rice/Hash.hpp"
+#include <vector>
+#include <map>
+#include <algorithm>
+
+using namespace Rice;
+
+TESTSUITE(Hash);
+
+SETUP(Hash)
+{
+  ruby_init();
+}
+
+TESTCASE(default_construct)
+{
+  Hash h;
+  ASSERT_EQUAL(T_HASH, rb_type(h));
+  ASSERT_EQUAL(0, RHASH(h.value())->tbl->num_entries);
+}
+
+TESTCASE(construct_from_object)
+{
+  Object o(rb_hash_new());
+  Hash h(o);
+  ASSERT_EQUAL(T_HASH, rb_type(h));
+  ASSERT_EQUAL(0, RHASH(h.value())->tbl->num_entries);
+}
+
+TESTCASE(construct_from_value)
+{
+  VALUE v(rb_hash_new());
+  Hash h(v);
+  ASSERT_EQUAL(T_HASH, rb_type(h));
+  ASSERT_EQUAL(0, RHASH(h.value())->tbl->num_entries);
+}
+
+TESTCASE(copy_construct)
+{
+  Hash h;
+  Hash h2(h);
+  ASSERT_EQUAL(h.value(), h2.value());
+}
+
+TESTCASE(assignment)
+{
+  Hash h;
+  Hash h2;
+  h = h2;
+}
+
+TESTCASE(size)
+{
+  Hash h;
+  ASSERT_EQUAL(0u, h.size());
+  h[1] = 5;
+  ASSERT_EQUAL(1u, h.size());
+  h[6] = 9;
+  ASSERT_EQUAL(2u, h.size());
+  h[42] = 42;
+  ASSERT_EQUAL(3u, h.size());
+  h[6] = 1;
+  ASSERT_EQUAL(3u, h.size());
+}
+
+TESTCASE(bracket)
+{
+  Hash h;
+  h[1] = 5;
+  h[6] = 9;
+  h[42] = 42;
+  h[6] = 1;
+  ASSERT_EQUAL(to_ruby(5), Object(h[1]));
+  ASSERT_EQUAL(to_ruby(42), Object(h[42]));
+  ASSERT_EQUAL(to_ruby(1), Object(h[6]));
+}
+
+TESTCASE(get)
+{
+  Hash h;
+  h[1] = 5;
+  h[6] = 9;
+  h[42] = 42;
+  h[6] = 1;
+  ASSERT_EQUAL(5, h.get<int>(1));
+  ASSERT_EQUAL(42, h.get<int>(42));
+  ASSERT_EQUAL(1, h.get<int>(6));
+}
+
+TESTCASE(construct_vector_from_hash_iterators)
+{
+  Hash h;
+  h[1] = 5;
+  h[6] = 9;
+  h[42] = 42;
+  h[6] = 1;
+  std::vector<Hash::Entry> v(h.begin(), h.end());
+  std::sort(v.begin(), v.end());
+  ASSERT_EQUAL(3u, v.size());
+  ASSERT_EQUAL(v[0].key, to_ruby(1));
+  ASSERT_EQUAL(v[1].key, to_ruby(6));
+  ASSERT_EQUAL(v[2].key, to_ruby(42));
+  ASSERT_EQUAL(&v[0].key, &v[0].first);
+  ASSERT_EQUAL(&v[1].key, &v[1].first);
+  ASSERT_EQUAL(&v[2].key, &v[2].first);
+  ASSERT_EQUAL(v[0].value, to_ruby(5));
+  ASSERT_EQUAL(v[1].value, to_ruby(1));
+  ASSERT_EQUAL(v[2].value, to_ruby(42));
+  ASSERT_EQUAL(&v[0].value, &v[0].second);
+  ASSERT_EQUAL(&v[1].value, &v[1].second);
+  ASSERT_EQUAL(&v[2].value, &v[2].second);
+}
+
+TESTCASE(iterate)
+{
+  Hash h;
+  h[1] = 5;
+  h[6] = 9;
+  h[42] = 42;
+  h[6] = 1;
+  std::vector<Hash::Entry> v;
+  Hash::iterator it = h.begin();
+  Hash::iterator end = h.end();
+  for(; it != end; ++it)
+  {
+    v.push_back(*it);
+  }
+  std::sort(v.begin(), v.end());
+  ASSERT_EQUAL(3u, v.size());
+  ASSERT_EQUAL(v[0].key, to_ruby(1));
+  ASSERT_EQUAL(v[1].key, to_ruby(6));
+  ASSERT_EQUAL(v[2].key, to_ruby(42));
+  ASSERT_EQUAL(&v[0].key, &v[0].first);
+  ASSERT_EQUAL(&v[1].key, &v[1].first);
+  ASSERT_EQUAL(&v[2].key, &v[2].first);
+  ASSERT_EQUAL(v[0].value, to_ruby(5));
+  ASSERT_EQUAL(v[1].value, to_ruby(1));
+  ASSERT_EQUAL(v[2].value, to_ruby(42));
+  ASSERT_EQUAL(&v[0].value, &v[0].second);
+  ASSERT_EQUAL(&v[1].value, &v[1].second);
+  ASSERT_EQUAL(&v[2].value, &v[2].second);
+}
+
+TESTCASE(const_iterate)
+{
+  Hash h;
+  h[1] = 5;
+  h[6] = 9;
+  h[42] = 42;
+  h[6] = 1;
+  std::vector<Hash::Entry> v;
+  Hash::const_iterator it = h.begin();
+  Hash::const_iterator end = h.end();
+  for(; it != end; ++it)
+  {
+    v.push_back(*it);
+  }
+  std::sort(v.begin(), v.end());
+  ASSERT_EQUAL(3u, v.size());
+  ASSERT_EQUAL(v[0].key, to_ruby(1));
+  ASSERT_EQUAL(v[1].key, to_ruby(6));
+  ASSERT_EQUAL(v[2].key, to_ruby(42));
+  ASSERT_EQUAL(&v[0].key, &v[0].first);
+  ASSERT_EQUAL(&v[1].key, &v[1].first);
+  ASSERT_EQUAL(&v[2].key, &v[2].first);
+  ASSERT_EQUAL(v[0].value, to_ruby(5));
+  ASSERT_EQUAL(v[1].value, to_ruby(1));
+  ASSERT_EQUAL(v[2].value, to_ruby(42));
+  ASSERT_EQUAL(&v[0].value, &v[0].value);
+  ASSERT_EQUAL(&v[1].value, &v[1].value);
+  ASSERT_EQUAL(&v[2].value, &v[2].value);
+}
+
+TESTCASE(iterate_and_change)
+{
+  Hash h;
+  h[1] = 5;
+  h[6] = 9;
+  h[42] = 42;
+  h[6] = 1;
+  Hash::const_iterator it = h.begin();
+  Hash::const_iterator end = h.end();
+  std::map<int, int> m;
+  for(int j = 0; it != end; ++j, ++it)
+  {
+    it->second = j;
+    m[from_ruby<int>(it->first)] = j;
+  }
+  ASSERT_EQUAL(3u, m.size());
+  ASSERT_EQUAL(to_ruby(m[1]), h[1]);
+  ASSERT_EQUAL(to_ruby(m[6]), h[6]);
+  ASSERT_EQUAL(to_ruby(m[42]), h[42]);
+}
+

data/test/test_Identifier.cpp

@@ -0,0 +1,70 @@
+#include "unittest.hpp"
+#include "rice/Identifier.hpp"
+#include "rice/Symbol.hpp"
+
+using namespace Rice;
+
+TESTSUITE(Identifier);
+
+SETUP(Identifier)
+{
+  ruby_init();
+}
+
+TESTCASE(construct_from_id)
+{
+  ID id = rb_intern("foo");
+  Identifier identifier(id);
+  ASSERT_EQUAL(id, identifier.id());
+}
+
+TESTCASE(construct_from_symbol)
+{
+  Symbol symbol("FOO");
+  Identifier identifier(symbol);
+  ASSERT_EQUAL(rb_intern("FOO"), identifier.id());
+}
+
+TESTCASE(construct_from_c_string)
+{
+  Identifier identifier("Foo");
+  ASSERT_EQUAL(rb_intern("Foo"), identifier.id());
+}
+
+TESTCASE(default_construct)
+{
+  Identifier identifier;
+  ASSERT_EQUAL(rb_intern(""), identifier.id());
+}
+
+TESTCASE(copy_construct)
+{
+  Identifier identifier1("Foo");
+  Identifier identifier2(identifier1);
+  ASSERT_EQUAL(rb_intern("Foo"), identifier2.id());
+}
+
+TESTCASE(c_str)
+{
+  Identifier identifier("Foo");
+  ASSERT_EQUAL("Foo", identifier.c_str());
+}
+
+TESTCASE(str)
+{
+  Identifier identifier("Foo");
+  ASSERT_EQUAL(std::string("Foo"), identifier.str());
+}
+
+TESTCASE(implicit_conversion_to_id)
+{
+  Identifier identifier("Foo");
+  ASSERT_EQUAL(rb_intern("Foo"), static_cast<ID>(identifier));
+}
+
+TESTCASE(to_sym)
+{
+  Identifier identifier("Foo");
+  ASSERT_EQUAL(Symbol("Foo"), Symbol(identifier.to_sym()));
+}
+

data/test/test_Jump_Tag.cpp

@@ -0,0 +1,17 @@
+#include "unittest.hpp"
+#include "rice/Jump_Tag.hpp"
+
+using namespace Rice;
+
+TESTSUITE(Jump_Tag);
+
+SETUP(Jump_Tag)
+{
+}
+
+TESTCASE(construct)
+{
+  Jump_Tag jump_tag(42);
+  ASSERT_EQUAL(42, jump_tag.tag);
+}
+

data/test/test_Module.cpp

@@ -0,0 +1,253 @@
+#include "unittest.hpp"
+#include "rice/Module.hpp"
+#include "rice/Exception.hpp"
+#include "rice/Array.hpp"
+
+using namespace Rice;
+
+TESTSUITE(Module);
+
+SETUP(Object)
+{
+  ruby_init();
+}
+
+TESTCASE(construct_from_value)
+{
+  Module m(rb_mEnumerable);
+  ASSERT_EQUAL(rb_mEnumerable, m.value());
+}
+
+namespace
+{
+
+class Silly_Exception
+  : public std::exception
+{
+};
+
+void handle_silly_exception(Silly_Exception const & ex)
+{
+  throw Exception(rb_eRuntimeError, "SILLY");
+}
+
+void throw_silly_exception(Object self)
+{
+  throw Silly_Exception();
+}
+
+} // namespace
+
+TESTCASE(add_handler)
+{
+  Module m(anonymous_module());
+  m.add_handler<Silly_Exception>(handle_silly_exception);
+  m.define_singleton_method("foo", throw_silly_exception);
+  Object exc = m.instance_eval("begin; foo; rescue Exception; $!; end");
+  ASSERT_EQUAL(rb_eRuntimeError, CLASS_OF(exc));
+  Exception ex(exc);
+  ASSERT_EQUAL(String("SILLY"), String(ex.message()));
+}
+
+namespace
+{
+
+bool define_method_simple_ok;
+
+void define_method_simple_helper(Object o)
+{
+  define_method_simple_ok = true;
+}
+
+} // namespace
+
+TESTCASE(define_method_simple)
+{
+  Module m(anonymous_module());
+  m.define_method("foo", define_method_simple_helper);
+  define_method_simple_ok = false;
+  Object o = m.instance_eval("o = Object.new; o.extend(self); o.foo");
+  ASSERT(define_method_simple_ok);
+}
+
+TESTCASE(define_singleton_method_simple)
+{
+  Module m(anonymous_module());
+  m.define_singleton_method("foo", define_method_simple_helper);
+  define_method_simple_ok = false;
+  Object o = m.call("foo");
+  ASSERT(define_method_simple_ok);
+}
+
+TESTCASE(define_module_function_simple)
+{
+  Module m(anonymous_module());
+  m.define_module_function("foo", define_method_simple_helper);
+  define_method_simple_ok = false;
+  m.instance_eval("o = Object.new; o.extend(self); o.instance_eval { foo }");
+  ASSERT(define_method_simple_ok);
+  define_method_simple_ok = false;
+  m.call("foo");
+  ASSERT(define_method_simple_ok);
+}
+
+namespace
+{
+
+int define_method_int_result;
+
+void define_method_int_helper(Object o, int i)
+{
+  define_method_int_result = i;
+}
+
+} // namespace
+
+TESTCASE(define_method_int)
+{
+  Module m(anonymous_module());
+  m.define_method("foo", define_method_int_helper);
+  define_method_int_result = 0;
+  Object o = m.instance_eval("o = Object.new; o.extend(self); o.foo(42)");
+  ASSERT_EQUAL(42, define_method_int_result);
+}
+
+TESTCASE(define_singleton_method_int)
+{
+  Module m(anonymous_module());
+  m.define_singleton_method("foo", define_method_int_helper);
+  define_method_int_result = 0;
+  Object o = m.call("foo", 42);
+  ASSERT_EQUAL(42, define_method_int_result);
+}
+
+TESTCASE(define_module_function_int)
+{
+  Module m(anonymous_module());
+  m.define_module_function("foo", define_method_int_helper);
+  define_method_int_result = 0;
+  m.instance_eval("o = Object.new; o.extend(self); o.instance_eval { foo(42) }");
+  ASSERT_EQUAL(42, define_method_int_result);
+  define_method_int_result = 0;
+  m.call("foo", 42);
+  ASSERT_EQUAL(42, define_method_int_result);
+}
+
+TESTCASE(define_method_int_passed_no_args)
+{
+  Module m(anonymous_module());
+  m.define_method("foo", define_method_int_helper);
+  ASSERT_EXCEPTION_CHECK(
+      Exception,
+      m.instance_eval("o = Object.new; o.extend(self); o.foo"),
+      ASSERT_EQUAL(
+          Object(rb_eArgError),
+          Object(CLASS_OF(ex.value()))
+          )
+      );
+}
+
+namespace
+{
+
+struct Foo
+{
+  int x;
+};
+
+int define_method_int_foo_result_i;
+Foo * define_method_int_foo_result_x;
+
+void define_method_int_foo_helper(Object o, int i, Foo * x)
+{
+  define_method_int_foo_result_i = i;
+  define_method_int_foo_result_x = x;
+}
+
+} // namespace
+
+template<>
+Foo * from_ruby<Foo *>(Object x)
+{
+  Foo * retval;
+  Data_Get_Struct(x.value(), Foo, retval);
+  return retval;
+}
+
+TESTCASE(define_singleton_method_int_foo)
+{
+  Module m(anonymous_module());
+  m.define_singleton_method("foo", define_method_int_foo_helper);
+  define_method_int_result = 0;
+  Foo * foo = new Foo;
+  foo->x = 1024;
+  VALUE f = Data_Wrap_Struct(rb_cObject, 0, Default_Allocation_Strategy<Foo>::free, foo);
+  m.call("foo", 42, Object(f));
+  ASSERT_EQUAL(42, define_method_int_foo_result_i);
+  ASSERT_EQUAL(foo, define_method_int_foo_result_x);
+}
+
+// TODO: how to test define_iterator?
+
+TESTCASE(include_module)
+{
+  Module m(anonymous_module());
+  Module & m2(m.include_module(rb_mEnumerable));
+  ASSERT_EQUAL(&m, &m2);
+  Array ancestors(m.ancestors());
+  Array expected_ancestors;
+  expected_ancestors.push(m);
+  expected_ancestors.push(Module(rb_mEnumerable));
+  ASSERT_EQUAL(expected_ancestors, ancestors);
+}
+
+TESTCASE(const_set_get_by_id)
+{
+  Module m(anonymous_module());
+  Object v = to_ruby(42);
+  Module & m2(m.const_set(rb_intern("FOO"), v));
+  ASSERT_EQUAL(&m, &m2);
+  ASSERT_EQUAL(v, m.const_get(rb_intern("FOO")));
+}
+
+TESTCASE(const_set_get_by_identifier)
+{
+  Module m(anonymous_module());
+  Object v = to_ruby(42);
+  Module & m2(m.const_set(Identifier("FOO"), v));
+  ASSERT_EQUAL(&m, &m2);
+  ASSERT_EQUAL(v, m.const_get(Identifier("FOO")));
+}
+
+TESTCASE(const_set_get_by_string)
+{
+  Module m(anonymous_module());
+  Object v = to_ruby(42);
+  Module & m2(m.const_set("FOO", v));
+  ASSERT_EQUAL(&m, &m2);
+  ASSERT_EQUAL(v, m.const_get("FOO"));
+}
+
+TESTCASE(remove_const)
+{
+  Module m(anonymous_module());
+  Object v = to_ruby(42);
+  m.const_set("FOO", v);
+  ASSERT_EQUAL(v, m.const_get("FOO"));
+  m.remove_const("FOO");
+  ASSERT_EXCEPTION_CHECK(
+      Exception,
+      m.const_get("FOO"),
+      ASSERT_EQUAL(
+          Object(rb_eNameError),
+          Object(CLASS_OF(ex.value()))
+          )
+      );
+}
+
+TESTCASE(mod_name_anonymous)
+{
+  Module m(anonymous_module());
+  ASSERT_EQUAL(String(""), m.mod_name());
+}
+