rice 4.3.3 → 4.5.0

data/test/test_To_From_Ruby.cpp

@@ -1,399 +0,0 @@
-#include "unittest.hpp"
-#include "embed_ruby.hpp"
-#include <rice/rice.hpp>
-
-#include <limits>
-#include <cmath>
-
-using namespace Rice;
-
-TESTSUITE(To_From_Ruby);
-
-SETUP(To_From_Ruby)
-{
-  embed_ruby();
-}
-
-TESTCASE(object_to_ruby)
-{
-  Object o(rb_str_new2("foo"));
-  ASSERT_EQUAL(o.value(), detail::to_ruby(o));
-}
-
-TESTCASE(object_from_ruby)
-{
-  Object o(rb_str_new2("foo"));
-  ASSERT_EQUAL(o, detail::From_Ruby<Object>().convert(o));
-}
-
-TESTCASE(short_to_ruby)
-{
-  ASSERT_EQUAL(INT2NUM(0), detail::to_ruby((short)0));
-  ASSERT_EQUAL(INT2NUM(-1), detail::to_ruby((short)-1));
-  ASSERT_EQUAL(INT2NUM(1), detail::to_ruby((short)1));
-  ASSERT_EQUAL(INT2NUM(std::numeric_limits<short>::min()),
-               detail::to_ruby(std::numeric_limits<short>::min()));
-  ASSERT_EQUAL(INT2NUM(std::numeric_limits<short>::max()),
-               detail::to_ruby(std::numeric_limits<short>::max()));
-}
-
-TESTCASE(short_from_ruby)
-{
-  ASSERT_EQUAL(0, detail::From_Ruby<short>().convert(INT2NUM(0)));
-  ASSERT_EQUAL(-1, detail::From_Ruby<short>().convert(INT2NUM(-1)));
-  ASSERT_EQUAL(1, detail::From_Ruby<short>().convert(INT2NUM(1)));
-  ASSERT_EQUAL(std::numeric_limits<short>::min(),
-               detail::From_Ruby<short>().convert(INT2NUM(std::numeric_limits<short>::min())));
-  ASSERT_EQUAL(std::numeric_limits<short>::max(),
-               detail::From_Ruby<short>().convert(INT2NUM(std::numeric_limits<short>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<short>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion of String into Integer", ex.what())
-  );
-}
-
-TESTCASE(int_to_ruby)
-{
-  ASSERT(rb_equal(INT2NUM(0), detail::to_ruby((int)0)));
-  ASSERT(rb_equal(INT2NUM(-1), detail::to_ruby((int)-1)));
-  ASSERT(rb_equal(INT2NUM(1), detail::to_ruby((int)1)));
-  ASSERT(rb_equal(INT2NUM(std::numeric_limits<int>::min()), detail::to_ruby(std::numeric_limits<int>::min())));
-  ASSERT(rb_equal(INT2NUM(std::numeric_limits<int>::max()), detail::to_ruby(std::numeric_limits<int>::max())));
-}
-
-TESTCASE(int_from_ruby)
-{
-  ASSERT_EQUAL(0, detail::From_Ruby<int>().convert(INT2NUM(0)));
-  ASSERT_EQUAL(-1, detail::From_Ruby<int>().convert(INT2NUM(-1)));
-  ASSERT_EQUAL(1, detail::From_Ruby<int>().convert(INT2NUM(1)));
-  ASSERT_EQUAL(std::numeric_limits<int>::min(),
-               detail::From_Ruby<int>().convert(INT2NUM(std::numeric_limits<int>::min())));
-  ASSERT_EQUAL(std::numeric_limits<int>::max(),
-               detail::From_Ruby<int>().convert(INT2NUM(std::numeric_limits<int>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<int>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion of String into Integer", ex.what())
-  );
-}
-
-TESTCASE(long_to_ruby)
-{
-  ASSERT(rb_equal(LONG2NUM(0), detail::to_ruby((long)0)));
-  ASSERT(rb_equal(LONG2NUM(-1), detail::to_ruby((long)-1)));
-  ASSERT(rb_equal(LONG2NUM(1), detail::to_ruby((long)1)));
-  ASSERT(rb_equal(LONG2NUM(FIXNUM_MAX), detail::to_ruby(FIXNUM_MAX)));
-  ASSERT(rb_equal(LONG2NUM(FIXNUM_MIN), detail::to_ruby(FIXNUM_MIN)));
-  ASSERT(rb_equal(LONG2NUM(std::numeric_limits<long>::min()), detail::to_ruby(std::numeric_limits<long>::min())));
-  ASSERT(rb_equal(LONG2NUM(std::numeric_limits<long>::max()), detail::to_ruby(std::numeric_limits<long>::max())));
-}
-
-TESTCASE(long_from_ruby)
-{
-  ASSERT_EQUAL(0, detail::From_Ruby<long>().convert(LONG2NUM(0)));
-  ASSERT_EQUAL(-1, detail::From_Ruby<long>().convert(LONG2NUM(-1)));
-  ASSERT_EQUAL(1, detail::From_Ruby<long>().convert(LONG2NUM(1)));
-  ASSERT_EQUAL(FIXNUM_MIN, detail::From_Ruby<long>().convert(LONG2NUM(FIXNUM_MIN)));
-  ASSERT_EQUAL(FIXNUM_MAX, detail::From_Ruby<long>().convert(LONG2NUM(FIXNUM_MAX)));
-  ASSERT_EQUAL(std::numeric_limits<long>::min(), detail::From_Ruby<long>().convert(LONG2NUM(std::numeric_limits<long>::min())));
-  ASSERT_EQUAL(std::numeric_limits<long>::max(), detail::From_Ruby<long>().convert(LONG2NUM(std::numeric_limits<long>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<long>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion of String into Integer", ex.what())
-  );
-}
-
-TESTCASE(long_long_to_ruby)
-{
-  ASSERT(rb_equal(LL2NUM(0), detail::to_ruby((long long)0)));
-  ASSERT(rb_equal(LL2NUM(-1), detail::to_ruby((long long)-1)));
-  ASSERT(rb_equal(LL2NUM(1), detail::to_ruby((long long)1)));
-  ASSERT(rb_equal(LL2NUM(std::numeric_limits<long long>::min()), detail::to_ruby(std::numeric_limits<long long>::min())));
-  ASSERT(rb_equal(LL2NUM(std::numeric_limits<long long>::max()), detail::to_ruby(std::numeric_limits<long long>::max())));
-}
-
-TESTCASE(long_long_from_ruby)
-{
-  ASSERT_EQUAL(0, detail::From_Ruby<long long>().convert(LL2NUM(0)));
-  ASSERT_EQUAL(-1, detail::From_Ruby<long long>().convert(LL2NUM(-1)));
-  ASSERT_EQUAL(1, detail::From_Ruby<long long>().convert(LL2NUM(1)));
-  ASSERT_EQUAL(std::numeric_limits<long long>::min(),
-               detail::From_Ruby<long long>().convert(LL2NUM(std::numeric_limits<long long>::min())));
-  ASSERT_EQUAL(std::numeric_limits<long long>::max(),
-               detail::From_Ruby<long long>().convert(LL2NUM(std::numeric_limits<long long>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<long long>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion from string", ex.what())
-  );
-}
-
-TESTCASE(unsigned_short_to_ruby)
-{
-  ASSERT(rb_equal(UINT2NUM(0), detail::to_ruby((unsigned short)0)));
-  ASSERT(rb_equal(UINT2NUM(1), detail::to_ruby((unsigned short)1)));
-  ASSERT(rb_equal(UINT2NUM(std::numeric_limits<unsigned short>::min()), detail::to_ruby(std::numeric_limits<unsigned short>::min())));
-  ASSERT(rb_equal(UINT2NUM(std::numeric_limits<unsigned short>::max()), detail::to_ruby(std::numeric_limits<unsigned short>::max())));
-}
-
-TESTCASE(unsigned_short_from_ruby)
-{
-  ASSERT_EQUAL(0u, detail::From_Ruby<unsigned short>().convert(UINT2NUM(0)));
-  ASSERT_EQUAL(1u, detail::From_Ruby<unsigned short>().convert(UINT2NUM(1)));
-  ASSERT_EQUAL(std::numeric_limits<unsigned short>::min(),
-               detail::From_Ruby<unsigned short>().convert(UINT2NUM(std::numeric_limits<unsigned short>::min())));
-  ASSERT_EQUAL(std::numeric_limits<unsigned short>::max(),
-               detail::From_Ruby<unsigned short>().convert(UINT2NUM(std::numeric_limits<unsigned short>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<unsigned short>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion of String into Integer", ex.what())
-  );
-}
-
-TESTCASE(unsigned_int_to_ruby)
-{
-  ASSERT(rb_equal(UINT2NUM(0), detail::to_ruby((unsigned int)0)));
-  ASSERT(rb_equal(UINT2NUM(1), detail::to_ruby((unsigned int)1)));
-  ASSERT(rb_equal(UINT2NUM(std::numeric_limits<unsigned int>::min()), detail::to_ruby(std::numeric_limits<unsigned int>::min())));
-  ASSERT(rb_equal(UINT2NUM(std::numeric_limits<unsigned int>::max()), detail::to_ruby(std::numeric_limits<unsigned int>::max())));
-}
-
-TESTCASE(unsigned_int_from_ruby)
-{
-  ASSERT_EQUAL(0u, detail::From_Ruby<unsigned int>().convert(UINT2NUM(0)));
-  ASSERT_EQUAL(1u, detail::From_Ruby<unsigned int>().convert(UINT2NUM(1)));
-  ASSERT_EQUAL(std::numeric_limits<unsigned int>::min(),
-               detail::From_Ruby<unsigned int>().convert(UINT2NUM(std::numeric_limits<unsigned int>::min())));
-  ASSERT_EQUAL(std::numeric_limits<unsigned int>::max(),
-               detail::From_Ruby<unsigned int>().convert(UINT2NUM(std::numeric_limits<unsigned int>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<unsigned int>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion of String into Integer", ex.what())
-  );
-}
-
-TESTCASE(unsigned_long_to_ruby)
-{
-  ASSERT(rb_equal(ULONG2NUM(0), detail::to_ruby((unsigned long)0)));
-  ASSERT(rb_equal(ULONG2NUM(1), detail::to_ruby((unsigned long)1)));
-  ASSERT(rb_equal(ULONG2NUM(FIXNUM_MAX), detail::to_ruby(FIXNUM_MAX)));
-  ASSERT(rb_equal(ULONG2NUM(std::numeric_limits<unsigned long>::min()), detail::to_ruby(std::numeric_limits<unsigned long>::min())));
-  ASSERT(rb_equal(ULONG2NUM(std::numeric_limits<unsigned long>::max()), detail::to_ruby(std::numeric_limits<unsigned long>::max())));
-}
-
-TESTCASE(unsigned_long_from_ruby)
-{
-  ASSERT_EQUAL(0u, detail::From_Ruby<unsigned long>().convert(ULONG2NUM(0)));
-  ASSERT_EQUAL(1u, detail::From_Ruby<unsigned long>().convert(ULONG2NUM(1)));
-  ASSERT_EQUAL(static_cast<unsigned long>(FIXNUM_MIN),
-               detail::From_Ruby<unsigned long>().convert(ULONG2NUM(FIXNUM_MIN)));
-  ASSERT_EQUAL(std::numeric_limits<unsigned long>::min(),
-               detail::From_Ruby<unsigned long>().convert(ULONG2NUM(std::numeric_limits<unsigned long>::min())));
-  ASSERT_EQUAL(std::numeric_limits<unsigned long>::max(),
-               detail::From_Ruby<unsigned long>().convert(ULONG2NUM(std::numeric_limits<unsigned long>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<unsigned long>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion of String into Integer", ex.what())
-  );
-}
-
-TESTCASE(unsigned_long_long_to_ruby)
-{
-  ASSERT(rb_equal(ULL2NUM(0), detail::to_ruby((unsigned long long)0)));
-  ASSERT(rb_equal(ULL2NUM(1), detail::to_ruby((unsigned long long)1)));
-  ASSERT(rb_equal(ULL2NUM(std::numeric_limits<unsigned long long>::min()), detail::to_ruby(std::numeric_limits<unsigned long long>::min())));
-  ASSERT(rb_equal(ULL2NUM(std::numeric_limits<unsigned long long>::max()), detail::to_ruby(std::numeric_limits<unsigned long long>::max())));
-}
-
-TESTCASE(unsigned_long_long_from_ruby)
-{
-  ASSERT_EQUAL(0u, detail::From_Ruby<unsigned long>().convert(ULL2NUM(0)));
-  ASSERT_EQUAL(1u, detail::From_Ruby<unsigned long>().convert(ULL2NUM(1)));
-  ASSERT_EQUAL(std::numeric_limits<unsigned long long>::min(),
-               detail::From_Ruby<unsigned long long>().convert(ULL2NUM(std::numeric_limits<unsigned long long>::min())));
-  ASSERT_EQUAL(std::numeric_limits<unsigned long long>::max(),
-               detail::From_Ruby<unsigned long long>().convert(ULL2NUM(std::numeric_limits<unsigned long long>::max())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<unsigned long long>().convert(rb_str_new2("bad value")),
-    ASSERT(std::string(ex.what()).find("no implicit conversion") == 0)
-  );
-}
-
-TESTCASE(bool_to_ruby)
-{
-  ASSERT(rb_equal(Qfalse, detail::to_ruby(false)));
-  ASSERT(rb_equal(Qtrue, detail::to_ruby(true)));
-}
-
-TESTCASE(bool_from_ruby)
-{
-  ASSERT_EQUAL(false, detail::From_Ruby<bool>().convert(Qfalse));
-  ASSERT_EQUAL(false, detail::From_Ruby<bool>().convert(Qnil));
-  ASSERT_EQUAL(true, detail::From_Ruby<bool>().convert(Qtrue));
-  ASSERT_EQUAL(true, detail::From_Ruby<bool>().convert(rb_str_new2("some string")));
-  ASSERT_EQUAL(true, detail::From_Ruby<bool>().convert(INT2NUM(3)));
-  ASSERT_EQUAL(true, detail::From_Ruby<bool>().convert(rb_float_new(3.33)));
-}
-
-TESTCASE(float_to_ruby)
-{
-  ASSERT(rb_equal(rb_float_new(0.0f), detail::to_ruby(0.0f)));
-  ASSERT(rb_equal(rb_float_new(-1.0f), detail::to_ruby(-1.0f)));
-  ASSERT(rb_equal(rb_float_new(1.0f), detail::to_ruby(1.0f)));
-  ASSERT(rb_equal(rb_float_new(0.5f), detail::to_ruby(0.5f)));
-  ASSERT(rb_equal(rb_float_new(std::numeric_limits<float>::min()), detail::to_ruby(std::numeric_limits<float>::min())));
-  ASSERT(rb_equal(rb_float_new(std::numeric_limits<float>::max()), detail::to_ruby(std::numeric_limits<float>::max())));
-  ASSERT(Object(detail::to_ruby(std::numeric_limits<float>::quiet_NaN())).call("nan?"));
-  ASSERT(Object(detail::to_ruby(std::numeric_limits<float>::signaling_NaN())).call("nan?"));
-  ASSERT_EQUAL(rb_float_new(std::numeric_limits<float>::epsilon()),
-               detail::to_ruby(std::numeric_limits<float>::epsilon()));
-}
-
-TESTCASE(float_from_ruby)
-{
-  ASSERT_EQUAL(0.0f, detail::From_Ruby<float>().convert(rb_float_new(0.0f)));
-  ASSERT_EQUAL(-1.0f, detail::From_Ruby<float>().convert(rb_float_new(-1.0f)));
-  ASSERT_EQUAL(1.0f, detail::From_Ruby<float>().convert(rb_float_new(1.0f)));
-  ASSERT_EQUAL(std::numeric_limits<float>::min(),
-               detail::From_Ruby<float>().convert(rb_float_new(std::numeric_limits<float>::min())));
-  ASSERT_EQUAL(std::numeric_limits<float>::max(),
-               detail::From_Ruby<float>().convert(rb_float_new(std::numeric_limits<float>::max())));
-  ASSERT(std::isnan(detail::From_Ruby<float>().convert(rb_float_new(std::numeric_limits<float>::quiet_NaN()))));
-  ASSERT(std::isnan(detail::From_Ruby<float>().convert(rb_float_new(std::numeric_limits<float>::signaling_NaN()))));
-  ASSERT_EQUAL(std::numeric_limits<float>::epsilon(),
-               detail::From_Ruby<float>().convert(rb_float_new(std::numeric_limits<float>::epsilon())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<float>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion to float from string", ex.what())
-  );
-}
-
-TESTCASE(double_to_ruby)
-{
-  ASSERT(rb_equal(rb_float_new(0.0f), detail::to_ruby(0.0f)));
-  ASSERT(rb_equal(rb_float_new(-1.0f), detail::to_ruby(-1.0f)));
-  ASSERT(rb_equal(rb_float_new(1.0f), detail::to_ruby(1.0f)));
-  ASSERT(rb_equal(rb_float_new(0.5f), detail::to_ruby(0.5f)));
-  ASSERT(rb_equal(rb_float_new(std::numeric_limits<double>::min()), detail::to_ruby(std::numeric_limits<double>::min())));
-  ASSERT(rb_equal(rb_float_new(std::numeric_limits<double>::max()), detail::to_ruby(std::numeric_limits<double>::max())));
-  ASSERT(Object(detail::to_ruby(std::numeric_limits<double>::quiet_NaN())).call("nan?"));
-  ASSERT(Object(detail::to_ruby(std::numeric_limits<double>::signaling_NaN())).call("nan?"));
-  ASSERT(rb_equal(rb_float_new(std::numeric_limits<double>::epsilon()), detail::to_ruby(std::numeric_limits<double>::epsilon())));
-}
-
-TESTCASE(double_from_ruby)
-{
-  ASSERT_EQUAL(0.0, detail::From_Ruby<double>().convert(rb_float_new(0.0)));
-  ASSERT_EQUAL(-1.0, detail::From_Ruby<double>().convert(rb_float_new(-1.0)));
-  ASSERT_EQUAL(1.0, detail::From_Ruby<double>().convert(rb_float_new(1.0)));
-  ASSERT_EQUAL(std::numeric_limits<double>::min(),
-               detail::From_Ruby<double>().convert(rb_float_new(std::numeric_limits<double>::min())));
-  ASSERT_EQUAL(std::numeric_limits<double>::max(),
-               detail::From_Ruby<double>().convert(rb_float_new(std::numeric_limits<double>::max())));
-  ASSERT(std::isnan(detail::From_Ruby<double>().convert(rb_float_new(std::numeric_limits<double>::quiet_NaN()))));
-  ASSERT(std::isnan(detail::From_Ruby<double>().convert(rb_float_new(std::numeric_limits<double>::signaling_NaN()))));
-  ASSERT_EQUAL(std::numeric_limits<double>::epsilon(),
-               detail::From_Ruby<double>().convert(rb_float_new(std::numeric_limits<double>::epsilon())));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<double>().convert(rb_str_new2("bad value")),
-    ASSERT_EQUAL("no implicit conversion to float from string", ex.what())
-  );
-}
-
-TESTCASE(char_const_ptr_to_ruby)
-{
-  ASSERT(rb_equal(String("").value(), detail::to_ruby((char const *)"")));
-  ASSERT(rb_equal(String("foo").value(), detail::to_ruby((char const *)"foo")));
-  ASSERT(rb_equal(String("foo").value(), detail::to_ruby("foo")));
-}
-
-TESTCASE(char_const_array_to_ruby_symbol)
-{
-  ASSERT(rb_equal(Symbol("foo").value(), detail::to_ruby(":foo")));
-}
-
-TESTCASE(char_const_ptr_from_ruby)
-{
-  char const* foo = "foo";
-  ASSERT_EQUAL(foo, detail::From_Ruby<char const *>().convert(rb_str_new2("foo")));
-  ASSERT_EQUAL("", detail::From_Ruby<char const*>().convert(rb_str_new2("")));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<char const *>().convert(rb_float_new(32.3)),
-    ASSERT_EQUAL("wrong argument type Float (expected String)", ex.what())
-  );
-}
-
-TESTCASE(char_from_ruby_single_character_string)
-{
-  ASSERT_EQUAL('x', detail::From_Ruby<char>().convert(rb_str_new2("x")));
-}
-
-TESTCASE(char_from_ruby_longer_string)
-{
-  ASSERT_EXCEPTION_CHECK(
-    std::invalid_argument,
-    detail::From_Ruby<char>().convert(rb_str_new2("xy")),
-    ASSERT_EQUAL("from_ruby<char>: string must have length 1", ex.what())
-  );
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<char>().convert(rb_float_new(47.2)),
-    ASSERT_EQUAL("wrong argument type Float (expected char type)", ex.what())
-  );
-}
-
-TESTCASE(char_from_ruby_fixnum)
-{
-  ASSERT_EQUAL('1', detail::From_Ruby<char>().convert(INT2NUM(49)));
-}
-
-TESTCASE(unsigned_char_from_ruby)
-{
-  unsigned char expected = -1;
-  ASSERT_EQUAL(expected, detail::From_Ruby<unsigned char>().convert(INT2NUM(-1)));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<unsigned char>().convert(rb_float_new(1.3)),
-    ASSERT_EQUAL("wrong argument type Float (expected char type)", ex.what())
-  );
-}
-
-TESTCASE(signed_char_from_ruby)
-{
-  unsigned char expected = 10;
-  ASSERT_EQUAL(expected, detail::From_Ruby<signed char>().convert(INT2NUM(10)));
-}
-
-TESTCASE(char_star_from_ruby)
-{
-  const char* expected = "my string";
-  ASSERT_EQUAL(expected, detail::From_Ruby<const char*>().convert(rb_str_new2("my string")));
-
-  ASSERT_EXCEPTION_CHECK(
-    Exception,
-    detail::From_Ruby<const char*>().convert(rb_float_new(11.11)),
-    ASSERT_EQUAL("wrong argument type Float (expected String)", ex.what())
-  );
-}