number 0.9.11 → 0.9.12

data/Rakefile

@@ -0,0 +1,10 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require 'rake/testtask'
+
+Rake::TestTask.new do |t|
+  t.pattern = 'test/test_*.rb'
+end

data/ext/number/complex.c

@@ -194,8 +194,8 @@ void complex_print (char* buf, Complex* complex)
 }
 
 /*
- *  Puts a string representation of real as a truncated integer into the string
- *  pointed to by buf.
+ *  Puts a string representation of the real part of complex as a truncated
+ *  integer into the string pointed to by buf.
  */
 void complex_print_int (char* buf, Complex* complex)
 {
@@ -220,8 +220,8 @@ void complex_print_int (char* buf, Complex* complex)
 }
 
 /*
- *  Puts a string representation of real as a fractional decimal into the string
- *  pointed to by buf.
+ *  Puts a string representation of the real part of complex as a fractional
+ *  decimal into the string pointed to by buf.
  */
 void complex_print_decimal (char* buf, Complex* complex)
 {

data/ext/number/number.c

@@ -292,7 +292,37 @@ VALUE rb_Number_initialize_copy (VALUE number, VALUE copy)
 
 VALUE rb_Number_to_c (VALUE number)
 {
-    /* TODO */
+    VALUE real;
+    VALUE imag;
+    
+    if (complex_re_normal_p(DATA_PTR(number)))
+    {
+        char re_buf[10000];
+        
+        complex_print_decimal(re_buf, DATA_PTR(number));
+        
+        real = DBL2NUM(rb_cstr_to_dbl(re_buf, 0));
+    }
+    else
+    {
+        real = complex_re_nan_p(DATA_PTR(number)) ? DBL2NUM(NAN) : complex_re_pos_inf_p(DATA_PTR(number)) ? DBL2NUM(INFINITY) : rb_funcall(DBL2NUM(INFINITY), rb_intern("-@"), 0);
+    }
+    
+    if (complex_im_normal_p(DATA_PTR(number)))
+    {
+        char im_buf[10000];
+        VALUE im = rb_funcall(number, rb_intern("imag"), 0);
+        
+        complex_print_decimal(im_buf, DATA_PTR(im));
+        
+        imag = DBL2NUM(rb_cstr_to_dbl(im_buf, 0));
+    }
+    else
+    {
+        imag = complex_im_nan_p(DATA_PTR(number)) ? DBL2NUM(NAN) : complex_im_pos_inf_p(DATA_PTR(number)) ? DBL2NUM(INFINITY) : rb_funcall(DBL2NUM(INFINITY), rb_intern("-@"), 0);
+    }
+    
+    return rb_funcall(rb_cObject, rb_intern("Complex"), 2, real, imag);
 }
 
 VALUE rb_Number_to_f (VALUE number)
@@ -1474,6 +1504,7 @@ void Init_number ()
     rb_define_method(rb_cNumber, "singleton_method_added", rb_Number_singleton_method_added, 1);
     rb_define_method(rb_cNumber, "initialize_copy", rb_Number_initialize_copy, 1);
     
+    rb_define_method(rb_cNumber, "to_c", rb_Number_to_c, 0);
     rb_define_method(rb_cNumber, "to_f", rb_Number_to_f, 0);
     rb_define_method(rb_cNumber, "to_i", rb_Number_to_i, 0);
     rb_define_method(rb_cNumber, "to_int", rb_Number_to_int, 0);

data/test/test_complex.rb

@@ -0,0 +1,37 @@
+# encoding: UTF-8
+# 
+# Copyright © 2011 Jesse Sielaff
+# 
+
+require 'minitest/autorun'
+require 'number'
+
+class TestComplex < MiniTest::Unit::TestCase
+  def test_to_number_returns_number_with_same_value
+    assert_equal(Number(1,2), (1+2.i).to_number)
+  end
+  
+  def test_to_number_works_for_nan_real_part
+    assert_equal(Number(Number.nan,2), (Float::NAN+2.i).to_number)
+  end
+  
+  def test_to_number_works_for_nan_imag_part
+    assert_equal(Number(1,Number.nan), (1+Float::NAN.i).to_number)
+  end
+  
+  def test_to_number_works_for_pos_inf_real_part
+    assert_equal(Number(Number.pos_inf,2), (Float::INFINITY+2.i).to_number)
+  end
+  
+  def test_to_number_works_for_pos_inf_imag_part
+    assert_equal(Number(1,Number.pos_inf), (1+Float::INFINITY.i).to_number)
+  end
+  
+  def test_to_number_works_for_neg_inf_real_part
+    assert_equal(Number(Number.neg_inf,2), (-Float::INFINITY+2.i).to_number)
+  end
+  
+  def test_to_number_works_for_neg_inf_imag_part
+    assert_equal(Number(1,Number.neg_inf), (1-Float::INFINITY.i).to_number)
+  end
+end

data/test/test_float.rb

@@ -0,0 +1,25 @@
+# encoding: UTF-8
+# 
+# Copyright © 2011 Jesse Sielaff
+# 
+
+require 'minitest/autorun'
+require 'number'
+
+class TestFloat < MiniTest::Unit::TestCase
+  def test_to_number_returns_number_with_same_value
+    assert_equal(Number(1.5), (1.5).to_number)
+  end
+  
+  def test_to_number_works_for_positive_infinity
+    assert_equal(Number.pos_inf, (Float::INFINITY).to_number)
+  end
+  
+  def test_to_number_works_for_negative_infinity
+    assert_equal(Number.neg_inf, (-Float::INFINITY).to_number)
+  end
+  
+  def test_to_number_works_for_nan
+    assert_equal(Number.nan, (Float::NAN).to_number)
+  end
+end

data/test/test_integer.rb

@@ -0,0 +1,13 @@
+# encoding: UTF-8
+# 
+# Copyright © 2011 Jesse Sielaff
+# 
+
+require 'minitest/autorun'
+require 'number'
+
+class TestInteger < MiniTest::Unit::TestCase
+  def test_to_number_returns_number_with_same_value
+    assert_equal(1, 1.to_number)
+  end
+end

data/test/test_nil.rb

@@ -0,0 +1,13 @@
+# encoding: UTF-8
+# 
+# Copyright © 2011 Jesse Sielaff
+# 
+
+require 'minitest/autorun'
+require 'number'
+
+class TestNil < MiniTest::Unit::TestCase
+  def test_to_number_returns_nan
+    assert_equal(Number.nan, nil.to_number)
+  end
+end

data/test/test_number.rb

@@ -0,0 +1,87 @@
+# encoding: UTF-8
+# 
+# Copyright © 2011 Jesse Sielaff
+# 
+
+require 'minitest/autorun'
+require 'number'
+
+class TestNumber < MiniTest::Unit::TestCase
+  def test_new_raises_error
+    assert_raises(NoMethodError) { Number.new }
+  end
+  
+  def test_Number_returns_new_number
+    assert_equal(1, Number(1).to_i)
+  end
+  
+  def test_Number_with_two_arguments_returns_new_complex_number
+    # Need to write Number#to_c
+    # assert_equal(Complex(1,2), Number(1,2).to_c)
+  end
+  
+  def test_Number_with_two_arguments_returns_new_interval_number
+    
+  end
+  
+  def test_digits
+  end
+  
+  def test_nan_returns_new_nan_number
+    assert_equal(Float::NAN, Number.nan)
+  end
+  
+  def test_pos_inf_returns_new_pos_inf_number
+    assert_equal(Float::INFINITY, Number.pos_inf)
+  end
+  
+  def test_neg_inf_returns_new_neg_inf_number
+    assert_equal(-Float::INFINITY, Number.neg_inf)
+  end
+  
+  def test_zero_returns_new_zero_number
+    assert_equal(0, Number.zero)
+  end
+  
+  def test_one_returns_new_one_number
+    assert_equal(1, Number.one)
+  end
+  
+  def test_pi_returns_new_pi_number
+    # Need to figure out what kind of assertion to use (in_delta?)
+    # assert_equal(Math::PI, Number.pi)
+  end
+  
+  def test_e_returns_new_e_number
+    # See above
+    # assert_equal(Math::E, Number.e)
+  end
+  
+  def test_i_returns_new_i_number
+    assert_equal(1.i, Number.i)
+  end
+  
+  def test_unary_plus_returns_same_number
+    assert_equal(1, Number(1).+@)
+  end
+  
+  def test_unary_minus_returns_negative_of_number
+    assert_equal(-1, Number(1).-@)
+  end
+  
+  def test_add_returns_sum_of_numbers
+    assert_equal(2, Number(1) + Number(1))
+  end
+  
+  def test_subtract_returns_difference_of_numbers
+    assert_equal(0, Number(1) - Number(1))
+  end
+  
+  def test_multiply_returns_product_of_numbers
+    assert_equal(4, Number(2) * Number(2))
+  end
+  
+  def test_divide_returns_quotient_of_numbers
+    assert_equal(1, Number(2) / Number(2))
+  end
+end

metadata

@@ -2,7 +2,7 @@
 name: number
 version: !ruby/object:Gem::Version 
   prerelease: 
-  version: 0.9.11
+  version: 0.9.12
 platform: ruby
 authors: 
 - Jesse Sielaff
@@ -35,6 +35,14 @@ files:
 - ext/number/real.c
 - ext/number/real_bounds.c
 - ext/number/round.c
+- test/test_complex.rb
+- test/test_float.rb
+- test/test_integer.rb
+- test/test_nil.rb
+- test/test_number.rb
+- test/test_string.rb
+- Rakefile
+- .gemtest
 homepage: 
 licenses: []