wurlinc-rice 1.4.0.1

data/test/test_Director.cpp

@@ -0,0 +1,301 @@
+#include "unittest.hpp"
+#include "rice/Director.hpp"
+#include "rice/Constructor.hpp"
+#include "rice/Data_Type.hpp"
+
+#include <vector>
+#include <iostream>
+
+using namespace std;
+using namespace Rice;
+
+TESTSUITE(Director);
+
+namespace {
+  /**
+   * Abstract base class
+   */
+  class Worker {
+    public:
+      virtual ~Worker() {  }
+
+      int getNumber() { return 12; }
+
+      virtual int doSomething(int num) { return num * 4; }
+
+      virtual int process(int num) = 0;
+  };
+
+  /**
+   * Subclass that implements pure virtual
+   */
+  class MultiplyWorker : public Worker {
+    public:
+      virtual ~MultiplyWorker() { }
+
+      virtual int process(int num) { return num * 2; }
+  };
+
+  /**
+   * Class to handle workers
+   */
+  class Handler {
+    std::vector<Worker*> mWorkers;
+
+    public:
+
+      void addWorker(Worker* worker) { mWorkers.push_back(worker); }
+
+      int processWorkers(int start) {
+        std::vector<Worker*>::iterator i = mWorkers.begin();
+        int results = start;
+
+        for(; i != mWorkers.end(); i++) {
+          results = (*i)->process(results);
+        }
+
+        return results;
+      }
+  };
+
+  /**
+   * Our Director wrapper of Worker
+   */
+  class WorkerDirector : public Worker, public Rice::Director {
+    public:
+      WorkerDirector(Object self) : Director(self) { }
+
+      virtual int process(int num) {
+        return from_ruby<int>( getSelf().call("process", num) );
+      }
+
+      int default_process(int num) {
+        raisePureVirtual();
+      }
+
+      virtual int doSomething(int num) {
+        return from_ruby<int>( getSelf().call("do_something", num) );
+      }
+
+      int default_doSomething(int num) {
+        return Worker::doSomething(num);
+      }
+  };
+};
+
+SETUP(Director)
+{
+  ruby_init();
+}
+
+TESTCASE(exposes_worker_as_instantiatable_class)
+{
+  define_class<Worker>("Worker")
+    .define_director<WorkerDirector>()
+    .define_constructor(Constructor<WorkerDirector, Object>())
+    .define_method("get_number", &Worker::getNumber);
+
+  Module m = define_module("Testing");
+  Object result = m.instance_eval("worker = Worker.new; worker.get_number");
+
+  ASSERT_EQUAL(12, from_ruby<int>(result.value()));
+}
+
+TESTCASE(can_call_virtual_methods_on_base_class)
+{
+  define_class<Worker>("Worker")
+    .define_director<WorkerDirector>()
+    .define_constructor(Constructor<WorkerDirector, Object>())
+    .define_method("get_number", &Worker::getNumber)
+    .define_method("do_something", &WorkerDirector::default_doSomething);
+
+  Module m = define_module("Testing");
+
+  Object result = m.instance_eval("worker = Worker.new; worker.do_something(4)");
+
+  ASSERT_EQUAL(16, from_ruby<int>(result.value()));
+}
+
+TESTCASE(super_calls_pass_execution_up_the_inheritance_chain)
+{
+  define_class<Worker>("Worker")
+    .define_director<WorkerDirector>()
+    .define_constructor(Constructor<WorkerDirector, Object>())
+    .define_method("do_something", &WorkerDirector::default_doSomething);
+
+  Module m = define_module("Testing");
+  m.instance_eval("class RubyWorker < Worker; def do_something(num); super * num; end; end");
+
+  Object result = m.instance_eval("worker = RubyWorker.new; worker.do_something(10)");
+
+  ASSERT_EQUAL(400, from_ruby<int>(result.value()));
+}
+
+TESTCASE(super_calls_on_pure_virtual_raise_error)
+{
+  define_class<Worker>("Worker")
+    .define_director<WorkerDirector>()
+    .define_constructor(Constructor<WorkerDirector, Object>())
+    .define_method("process", &WorkerDirector::default_process);
+
+  Module m = define_module("Testing");
+  m.instance_eval("class RubyWorker < Worker; def process(num); super; end; end");
+
+  ASSERT_EXCEPTION_CHECK(
+      Exception,
+      m.instance_eval("worker = RubyWorker.new; worker.process(10)"),
+      ASSERT_EQUAL(
+          Object(rb_eNotImpError),
+          Object(CLASS_OF(ex.value()))
+          )
+      );
+}
+
+TESTCASE(polymorphic_calls_head_down_the_call_chain)
+{
+  define_class<Handler>("Handler")
+    .define_constructor(Constructor<Handler>())
+    .define_method("add_worker", &Handler::addWorker)
+    .define_method("process_workers", &Handler::processWorkers);
+
+  define_class<Worker>("Worker")
+    .define_director<WorkerDirector>()
+    .define_constructor(Constructor<WorkerDirector, Object>())
+    .define_method("process", &WorkerDirector::default_process);
+
+  Module m = define_module("Testing");
+
+  m.instance_eval(
+      "class EchoWorker < Worker; def process(num); num + 2; end; end;"
+      "class DoubleWorker < Worker; def process(num); num * 2; end; end;"
+      "$handler = Handler.new;"
+      "$handler.add_worker(EchoWorker.new);"
+      "$handler.add_worker(DoubleWorker.new);"
+  );
+
+  Object result = m.instance_eval("$handler.process_workers(5)");
+
+  // Hit's EchoWorker, so 5 + 2, then passes that to DoubleWorker, so 7 * 2 = 14
+  ASSERT_EQUAL(14, from_ruby<int>(result.value()));
+}
+
+namespace {
+
+  class CallsSelf {
+    public:
+      int doIt(int in) {
+        return doItImpl(in); 
+      }
+
+      virtual int doItImpl(int in) = 0;
+  };
+
+  class CallsSelfDirector : public CallsSelf, public Director {
+
+    public:
+      CallsSelfDirector(Object self) : Director(self) { }
+
+      virtual int doItImpl(int in) {
+        return from_ruby<int>( getSelf().call("do_it_impl", in) );
+      }
+
+      int default_doItImpl(int in) {
+        raisePureVirtual();
+      }
+  };
+
+  struct MyCallsSelf : CallsSelf {
+    MyCallsSelf() { }
+
+    int doItImpl(int in) { return in * 12; }
+  };
+
+  // Abstract type return types handled properly
+  CallsSelf* getCallsSelf() {
+    return new MyCallsSelf();
+  }
+
+  // Abstract type Argument types handled properly
+  int doItOnPointer(CallsSelf* obj, int in) {
+    return obj->doIt(in);
+  }
+
+  int doItOnReference(CallsSelf& obj, int in) {
+    return obj.doIt(in);
+  }
+
+}
+
+TESTCASE(mix_of_polymorphic_calls_and_inheritance_dont_cause_infinite_loops)
+{
+  define_class<CallsSelf>("CallsSelf")
+    .define_director<CallsSelfDirector>()
+    .define_constructor(Constructor<CallsSelfDirector, Rice::Object>())
+    .define_method("do_it_impl", &CallsSelfDirector::default_doItImpl)
+    .define_method("do_it", &CallsSelf::doIt);
+
+  Module m = define_module("Testing");
+
+  Object result = m.instance_eval(
+      "class MySelf < CallsSelf; def do_it_impl(num); num * 10; end; end;"
+      "c = MySelf.new; c.do_it(10)"
+      );
+
+  ASSERT_EQUAL(100, from_ruby<int>(result.value()));
+}
+
+TESTCASE(director_class_super_classes_get_type_bound)
+{
+  Module m = define_module("Testing");
+  m.define_module_function("get_calls_self", &getCallsSelf);
+
+  define_class<CallsSelf>("CallsSelf")
+    .define_director<CallsSelfDirector>()
+    .define_constructor(Constructor<CallsSelfDirector, Rice::Object>())
+    .define_method("do_it_impl", &CallsSelfDirector::default_doItImpl)
+    .define_method("do_it", &CallsSelf::doIt);
+
+  Object result = m.instance_eval("cs = Testing::get_calls_self; cs.do_it(3);");
+  ASSERT_EQUAL(36, from_ruby<int>(result.value()));
+}
+
+TESTCASE(director_allows_abstract_types_used_as_parameters_pointers)
+{
+  Module m = define_module("Testing");
+  m.define_module_function("do_it_on_pointer", &doItOnPointer);
+
+  define_class<CallsSelf>("CallsSelf")
+    .define_director<CallsSelfDirector>()
+    .define_constructor(Constructor<CallsSelfDirector, Rice::Object>())
+    .define_method("do_it_impl", &CallsSelfDirector::default_doItImpl)
+    .define_method("do_it", &CallsSelf::doIt);
+
+  Object result = m.instance_eval(
+      "class MySelf < CallsSelf; def do_it_impl(num); num * 10; end; end;"
+      "c = MySelf.new;"
+      "Testing::do_it_on_pointer(c, 5)"
+      );
+
+  ASSERT_EQUAL(50, from_ruby<int>(result.value()));
+}
+/*
+TESTCASE(director_allows_abstract_types_used_as_parameters_reference)
+{
+  Module m = define_module("Testing");
+  m.define_module_function("do_it_on_ref", &doItOnReference);
+
+  define_class<CallsSelf>("CallsSelf")
+    .define_director<CallsSelfDirector>()
+    .define_constructor(Constructor<CallsSelfDirector, Rice::Object>())
+    .define_method("do_it_impl", &CallsSelfDirector::default_doItImpl)
+    .define_method("do_it", &CallsSelf::doIt);
+
+  Object result = m.instance_eval(
+      "class MySelf < CallsSelf; def do_it_impl(num); num * 10; end; end;"
+      "c = MySelf.new;"
+      "Testing::do_it_on_ref(c, 3)"
+      );
+
+  ASSERT_EQUAL(30, from_ruby<int>(result.value()));
+}
+*/

data/test/test_Enum.cpp

@@ -0,0 +1,195 @@
+#include "unittest.hpp"
+#include "rice/Enum.hpp"
+#include "rice/Array.hpp"
+#include "rice/String.hpp"
+#include "rice/Constructor.hpp"
+#include <iostream>
+
+using namespace Rice;
+
+TESTSUITE(Enum);
+
+namespace
+{
+  enum Color { RED, BLACK, GREEN };
+
+  Enum<Color> define_color_enum()
+  {
+    static Enum<Color> colors = define_enum<Color>("Color")
+      .define_value("RED", RED)
+      .define_value("BLACK", BLACK)
+      .define_value("GREEN", GREEN);
+    return colors;
+  }
+}
+
+SETUP(Enum)
+{
+  ruby_init();
+}
+
+TESTCASE(copy_construct)
+{
+  Enum<Color> rb_cColor(define_color_enum());
+  ASSERT_EQUAL(define_color_enum().value(), rb_cColor.value());
+}
+
+TESTCASE(assignment)
+{
+  Enum<Color> rb_cColor;
+  rb_cColor = define_color_enum();
+  ASSERT_EQUAL(define_color_enum().value(), rb_cColor.value());
+}
+
+TESTCASE(each)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Array a = protect(rb_eval_string, "a = []; Color.each { |x| a << x }; a");
+  ASSERT_EQUAL(3u, a.size());
+  ASSERT_EQUAL(RED, from_ruby<Color>(a[0]));
+  ASSERT_EQUAL(BLACK, from_ruby<Color>(a[1]));
+  ASSERT_EQUAL(GREEN, from_ruby<Color>(a[2]));
+}
+
+TESTCASE(to_s)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  ASSERT_EQUAL(String("RED"), String(protect(rb_eval_string, "Color::RED.to_s")));
+  ASSERT_EQUAL(String("BLACK"), String(protect(rb_eval_string, "Color::BLACK.to_s")));
+  ASSERT_EQUAL(String("GREEN"), String(protect(rb_eval_string, "Color::GREEN.to_s")));
+}
+
+TESTCASE(to_i)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  ASSERT_EQUAL(to_ruby(int(RED)), Object(protect(rb_eval_string, "Color::RED.to_i")));
+  ASSERT_EQUAL(to_ruby(int(BLACK)), Object(protect(rb_eval_string, "Color::BLACK.to_i")));
+  ASSERT_EQUAL(to_ruby(int(GREEN)), Object(protect(rb_eval_string, "Color::GREEN.to_i")));
+}
+
+TESTCASE(inspect)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  ASSERT_EQUAL(String("#<Color::RED>"), String(protect(rb_eval_string, "Color::RED.inspect")));
+  ASSERT_EQUAL(String("#<Color::BLACK>"), String(protect(rb_eval_string, "Color::BLACK.inspect")));
+  ASSERT_EQUAL(String("#<Color::GREEN>"), String(protect(rb_eval_string, "Color::GREEN.inspect")));
+}
+
+TESTCASE(compare)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  ASSERT_EQUAL(to_ruby(-1), Object(protect(rb_eval_string, "Color::RED <=> Color::BLACK")));
+  ASSERT_EQUAL(to_ruby(1), Object(protect(rb_eval_string, "Color::GREEN <=> Color::RED")));
+  ASSERT_EQUAL(to_ruby(0), Object(protect(rb_eval_string, "Color::BLACK <=> Color::BLACK")));
+}
+
+TESTCASE(eql)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  ASSERT_EQUAL(to_ruby(false), Object(protect(rb_eval_string, "Color::RED == Color::BLACK")));
+  ASSERT_EQUAL(to_ruby(true), Object(protect(rb_eval_string, "Color::GREEN == Color::GREEN")));
+}
+
+TESTCASE(invalid_to_s)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> invalid(new Color(static_cast<Color>(42)));
+  ASSERT_EQUAL(String("INVALID(42)"), invalid.to_s());
+}
+
+TESTCASE(invalid_to_i)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> invalid(new Color(static_cast<Color>(42)));
+  ASSERT_EQUAL(to_ruby(42), invalid.call("to_i"));
+}
+
+TESTCASE(invalid_inspect)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> invalid(new Color(static_cast<Color>(42)));
+  ASSERT_EQUAL(String("#<Color::INVALID(42)>"), invalid.inspect());
+}
+
+TESTCASE(invalid_compare)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> invalid(new Color(static_cast<Color>(42)));
+  Data_Object<Color> red(new Color(RED));
+  ASSERT_EQUAL(1, invalid.compare(red));
+  ASSERT_EQUAL(-1, red.compare(invalid));
+  ASSERT_EQUAL(0, invalid.compare(invalid));
+}
+
+TESTCASE(invalid_eql)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> invalid(new Color(static_cast<Color>(42)));
+  Data_Object<Color> red(new Color(RED));
+  ASSERT_EQUAL(false, invalid == red);
+  ASSERT_EQUAL(false, red == invalid);
+  ASSERT_EQUAL(true, invalid == invalid);
+}
+
+TESTCASE(different_objects_compare)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> red1(new Color(RED));
+  Data_Object<Color> red2(new Color(RED));
+  ASSERT_EQUAL(0, red1.compare(red2));
+}
+
+TESTCASE(different_objects_eql)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> red1(new Color(RED));
+  Data_Object<Color> red2(new Color(RED));
+  ASSERT_EQUAL(true, red1 == red2);
+}
+
+/*
+TESTCASE(hash)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> red(new Color(RED));
+  ASSERT_EQUAL(to_ruby(int(RED)), red.call("hash"));
+}
+*/
+
+TESTCASE(from_int)
+{
+  Enum<Color> rb_cColor = define_color_enum();
+  Data_Object<Color> color(rb_cColor.call("from_int", int(RED)));
+  ASSERT_EQUAL(RED, *color);
+}
+
+namespace
+{
+  class Inner
+  {
+    public:
+      enum Props
+      {
+        VALUE1,
+        VALUE2,
+        VALUE3
+      };
+  };
+}
+
+TESTCASE(nested_enums)
+{
+  {
+    Data_Type<Inner> inner = define_class<Inner>("Inner");
+    define_enum<Inner::Props>("Props", inner)
+      .define_value("VALUE1", Inner::VALUE1)
+      .define_value("VALUE2", Inner::VALUE2)
+      .define_value("VALUE3", Inner::VALUE3);
+    inner.define_constructor(Constructor<Inner>());
+  }
+
+  ASSERT_EQUAL(to_ruby(int(0)), Object(protect(rb_eval_string, "Inner::Props::VALUE1.to_i")));
+  ASSERT_EQUAL(to_ruby(int(1)), Object(protect(rb_eval_string, "Inner::Props::VALUE2.to_i")));
+  ASSERT_EQUAL(to_ruby(int(2)), Object(protect(rb_eval_string, "Inner::Props::VALUE3.to_i")));
+}
+

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