dec_number 0.0.0

data/ext/dec_number/test_dec_number.rb

@@ -0,0 +1,236 @@
+require 'test/unit'
+require 'dec_number'
+
+class TestDecNumber < Test::Unit::TestCase
+  class DummyDecNumber < DecNumber
+  end
+
+  def test_coerce
+    a, b = 1.coerce(2)
+    assert_equal(Fixnum, a.class)
+    assert_equal(Fixnum, b.class)
+
+    a, b = 1.coerce(2.0)
+    assert_equal(Float, a.class)
+    assert_equal(Float, b.class)
+
+    assert_raise(TypeError) { -DecNumber.new } # TODO: WTF
+  end
+
+  def test_dummynumeric
+    a = DummyDecNumber.new
+
+    DummyDecNumber.class_eval do
+      def coerce(x); nil; end
+    end
+    assert_raise(TypeError) { -a } # TODO: WTF
+    assert_nil(1 <=> a)
+    assert_raise(ArgumentError) { 1 <= a }
+
+    DummyDecNumber.class_eval do
+      remove_method :coerce
+      def coerce(x); 1.coerce(x); end
+    end
+    assert_equal(2, 1 + a)
+    assert_equal(0, 1 <=> a)
+    assert(1 <= a)
+
+    DummyDecNumber.class_eval do
+      remove_method :coerce
+      def coerce(x); [x, 1]; end
+    end
+    assert_equal(-1, -a)
+
+  ensure
+    DummyDecNumber.class_eval do
+      remove_method :coerce
+    end
+  end
+
+  def test_numeric
+    a = DecNumber.new
+    assert_raise(TypeError) { def a.foo; end }
+    assert_raise(TypeError) { eval("def a.\u3042; end") }
+    assert_raise(TypeError) { a.dup }
+  end
+
+  def test_quo
+    assert_raise(ArgumentError) {DummyDecNumber.new.quo(1)}
+  end
+
+  def test_divmod
+=begin
+    DummyDecNumber.class_eval do
+      def /(x); 42.0; end
+      def %(x); :mod; end
+    end
+
+    assert_equal(42, DummyDecNumber.new.div(1))
+    assert_equal(:mod, DummyDecNumber.new.modulo(1))
+    assert_equal([42, :mod], DummyDecNumber.new.divmod(1))
+=end
+
+    assert_kind_of(Integer, 11.divmod(3.5).first, '[ruby-dev:34006]')
+
+=begin
+  ensure
+    DummyDecNumber.class_eval do
+      remove_method :/, :%
+    end
+=end
+  end
+
+  def test_real_p
+    assert(DecNumber.new.real?)
+  end
+
+  def test_integer_p
+    assert(!DecNumber.new.integer?)
+  end
+
+  def test_abs
+    a = DummyDecNumber.new
+    DummyDecNumber.class_eval do
+      def -@; :ok; end
+      def <(x); true; end
+    end
+
+    assert_equal(:ok, a.abs)
+
+    DummyDecNumber.class_eval do
+      remove_method :<
+      def <(x); false; end
+    end
+
+    assert_equal(a, a.abs)
+
+  ensure
+    DummyDecNumber.class_eval do
+      remove_method :-@, :<
+    end
+  end
+
+  def test_zero_p
+    DummyDecNumber.class_eval do
+      def ==(x); true; end
+    end
+
+    assert(DummyDecNumber.new.zero?)
+
+  ensure
+    DummyDecNumber.class_eval do
+      remove_method :==
+    end
+  end
+
+  def test_to_int
+    DummyDecNumber.class_eval do
+      def to_i; :ok; end
+    end
+
+    assert_equal(:ok, DummyDecNumber.new.to_int)
+
+  ensure
+    DummyDecNumber.class_eval do
+      remove_method :to_i
+    end
+  end
+
+  def test_cmp
+    a = DecNumber.new
+    assert_equal(0, a <=> a)
+    assert_nil(a <=> :foo)
+  end
+
+  def test_floor_ceil_round_truncate
+    DummyDecNumber.class_eval do
+      def to_f; 1.5; end
+    end
+
+    a = DummyDecNumber.new
+    assert_equal(1, a.floor)
+    assert_equal(2, a.ceil)
+    assert_equal(2, a.round)
+    assert_equal(1, a.truncate)
+
+    DummyDecNumber.class_eval do
+      remove_method :to_f
+      def to_f; 1.4; end
+    end
+
+    a = DummyDecNumber.new
+    assert_equal(1, a.floor)
+    assert_equal(2, a.ceil)
+    assert_equal(1, a.round)
+    assert_equal(1, a.truncate)
+
+    DummyDecNumber.class_eval do
+      remove_method :to_f
+      def to_f; -1.5; end
+    end
+
+    a = DummyDecNumber.new
+    assert_equal(-2, a.floor)
+    assert_equal(-1, a.ceil)
+    assert_equal(-2, a.round)
+    assert_equal(-1, a.truncate)
+
+  ensure
+    DummyDecNumber.class_eval do
+      remove_method :to_f
+    end
+  end
+
+  def test_step
+    a = []
+    1.step(10) {|x| a << x }
+    assert_equal([1, 2, 3, 4, 5, 6, 7, 8, 9, 10], a)
+
+    a = []
+    1.step(10, 2) {|x| a << x }
+    assert_equal([1, 3, 5, 7, 9], a)
+
+    assert_raise(ArgumentError) { 1.step(10, 1, 0) { } }
+    assert_raise(ArgumentError) { 1.step(10, 0) { } }
+
+    a = []
+    10.step(1, -2) {|x| a << x }
+    assert_equal([10, 8, 6, 4, 2], a)
+
+    a = []
+    1.0.step(10.0, 2.0) {|x| a << x }
+    assert_equal([1.0, 3.0, 5.0, 7.0, 9.0], a)
+
+    a = []
+    1.step(10, 2**32) {|x| a << x }
+    assert_equal([1], a)
+
+    a = []
+    10.step(1, -(2**32)) {|x| a << x }
+    assert_equal([10], a)
+
+    a = []
+    1.step(0, Float::INFINITY) {|x| a << x }
+    assert_equal([], a)
+
+    a = []
+    0.step(1, -Float::INFINITY) {|x| a << x }
+    assert_equal([], a)
+  end
+
+  def test_num2long
+    assert_raise(TypeError) { 1 & nil }
+    assert_raise(TypeError) { 1 & 1.0 }
+    assert_raise(TypeError) { 1 & 2147483648.0 }
+    assert_raise(TypeError) { 1 & 9223372036854777856.0 }
+    o = Object.new
+    def o.to_int; 1; end
+    assert_equal(1, 1 & o)
+  end
+
+  def test_eql
+    assert(1 == 1.0)
+    assert(!(1.eql?(1.0)))
+    assert(!(1.eql?(2)))
+  end
+end

data/ext/dec_number/test_numeric.rb

@@ -0,0 +1,235 @@
+require 'test/unit'
+
+class TestNumeric < Test::Unit::TestCase
+  class DummyNumeric < Numeric
+  end
+
+  def test_coerce
+    a, b = 1.coerce(2)
+    assert_equal(Fixnum, a.class)
+    assert_equal(Fixnum, b.class)
+
+    a, b = 1.coerce(2.0)
+    assert_equal(Float, a.class)
+    assert_equal(Float, b.class)
+
+    assert_raise(TypeError) { -Numeric.new }
+  end
+
+  def test_dummynumeric
+    a = DummyNumeric.new
+
+    DummyNumeric.class_eval do
+      def coerce(x); nil; end
+    end
+    assert_raise(TypeError) { -a }
+    assert_nil(1 <=> a)
+    assert_raise(ArgumentError) { 1 <= a }
+
+    DummyNumeric.class_eval do
+      remove_method :coerce
+      def coerce(x); 1.coerce(x); end
+    end
+    assert_equal(2, 1 + a)
+    assert_equal(0, 1 <=> a)
+    assert(1 <= a)
+
+    DummyNumeric.class_eval do
+      remove_method :coerce
+      def coerce(x); [x, 1]; end
+    end
+    assert_equal(-1, -a)
+
+  ensure
+    DummyNumeric.class_eval do
+      remove_method :coerce
+    end
+  end
+
+  def test_numeric
+    a = Numeric.new
+    assert_raise(TypeError) { def a.foo; end }
+    assert_raise(TypeError) { eval("def a.\u3042; end") }
+    assert_raise(TypeError) { a.dup }
+  end
+
+  def test_quo
+    assert_raise(ArgumentError) {DummyNumeric.new.quo(1)}
+  end
+
+  def test_divmod
+=begin
+    DummyNumeric.class_eval do
+      def /(x); 42.0; end
+      def %(x); :mod; end
+    end
+
+    assert_equal(42, DummyNumeric.new.div(1))
+    assert_equal(:mod, DummyNumeric.new.modulo(1))
+    assert_equal([42, :mod], DummyNumeric.new.divmod(1))
+=end
+
+    assert_kind_of(Integer, 11.divmod(3.5).first, '[ruby-dev:34006]')
+
+=begin
+  ensure
+    DummyNumeric.class_eval do
+      remove_method :/, :%
+    end
+=end
+  end
+
+  def test_real_p
+    assert(Numeric.new.real?)
+  end
+
+  def test_integer_p
+    assert(!Numeric.new.integer?)
+  end
+
+  def test_abs
+    a = DummyNumeric.new
+    DummyNumeric.class_eval do
+      def -@; :ok; end
+      def <(x); true; end
+    end
+
+    assert_equal(:ok, a.abs)
+
+    DummyNumeric.class_eval do
+      remove_method :<
+      def <(x); false; end
+    end
+
+    assert_equal(a, a.abs)
+
+  ensure
+    DummyNumeric.class_eval do
+      remove_method :-@, :<
+    end
+  end
+
+  def test_zero_p
+    DummyNumeric.class_eval do
+      def ==(x); true; end
+    end
+
+    assert(DummyNumeric.new.zero?)
+
+  ensure
+    DummyNumeric.class_eval do
+      remove_method :==
+    end
+  end
+
+  def test_to_int
+    DummyNumeric.class_eval do
+      def to_i; :ok; end
+    end
+
+    assert_equal(:ok, DummyNumeric.new.to_int)
+
+  ensure
+    DummyNumeric.class_eval do
+      remove_method :to_i
+    end
+  end
+
+  def test_cmp
+    a = Numeric.new
+    assert_equal(0, a <=> a)
+    assert_nil(a <=> :foo)
+  end
+
+  def test_floor_ceil_round_truncate
+    DummyNumeric.class_eval do
+      def to_f; 1.5; end
+    end
+
+    a = DummyNumeric.new
+    assert_equal(1, a.floor)
+    assert_equal(2, a.ceil)
+    assert_equal(2, a.round)
+    assert_equal(1, a.truncate)
+
+    DummyNumeric.class_eval do
+      remove_method :to_f
+      def to_f; 1.4; end
+    end
+
+    a = DummyNumeric.new
+    assert_equal(1, a.floor)
+    assert_equal(2, a.ceil)
+    assert_equal(1, a.round)
+    assert_equal(1, a.truncate)
+
+    DummyNumeric.class_eval do
+      remove_method :to_f
+      def to_f; -1.5; end
+    end
+
+    a = DummyNumeric.new
+    assert_equal(-2, a.floor)
+    assert_equal(-1, a.ceil)
+    assert_equal(-2, a.round)
+    assert_equal(-1, a.truncate)
+
+  ensure
+    DummyNumeric.class_eval do
+      remove_method :to_f
+    end
+  end
+
+  def test_step
+    a = []
+    1.step(10) {|x| a << x }
+    assert_equal([1, 2, 3, 4, 5, 6, 7, 8, 9, 10], a)
+
+    a = []
+    1.step(10, 2) {|x| a << x }
+    assert_equal([1, 3, 5, 7, 9], a)
+
+    assert_raise(ArgumentError) { 1.step(10, 1, 0) { } }
+    assert_raise(ArgumentError) { 1.step(10, 0) { } }
+
+    a = []
+    10.step(1, -2) {|x| a << x }
+    assert_equal([10, 8, 6, 4, 2], a)
+
+    a = []
+    1.0.step(10.0, 2.0) {|x| a << x }
+    assert_equal([1.0, 3.0, 5.0, 7.0, 9.0], a)
+
+    a = []
+    1.step(10, 2**32) {|x| a << x }
+    assert_equal([1], a)
+
+    a = []
+    10.step(1, -(2**32)) {|x| a << x }
+    assert_equal([10], a)
+
+    a = []
+    1.step(0, Float::INFINITY) {|x| a << x }
+    assert_equal([], a)
+
+    a = []
+    0.step(1, -Float::INFINITY) {|x| a << x }
+    assert_equal([], a)
+  end
+
+  def test_num2long
+    assert_raise(TypeError) { 1 & nil }
+    assert_raise(TypeError) { 1 & 1.0 }
+    assert_raise(TypeError) { 1 & 2147483648.0 }
+    assert_raise(TypeError) { 1 & 9223372036854777856.0 }
+    o = Object.new
+    def o.to_int; 1; end
+    assert_equal(1, 1 & o)
+  end
+
+  def test_eql
+    assert(1 == 1.0)
+    assert(!(1.eql?(1.0)))
+    assert(!(1.eql?(2)))
+  end
+end

metadata

@@ -0,0 +1,111 @@
+--- !ruby/object:Gem::Specification
+name: dec_number
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Paris Sinclair
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-10-15 00:00:00.000000000Z
+dependencies: []
+description: Wrapper for ICU-decNumber library
+email:
+- paris@rubypanther.com
+executables: []
+extensions:
+- ext/dec_number/extconf.rb
+extra_rdoc_files: []
+files:
+- ext/dec_number/dec_number.c
+- ext/dec_number/recompile.sh
+- ext/dec_number/extconf2.rb
+- ext/dec_number/test_numeric.rb
+- ext/dec_number/NOTES
+- ext/dec_number/Gemfile
+- ext/dec_number/extconf.rb
+- ext/dec_number/test_dec_number.rb
+- ext/dec_number/decNumber/decimal64.c
+- ext/dec_number/decNumber/config.h.in
+- ext/dec_number/decNumber/Makefile.am
+- ext/dec_number/decNumber/decPacked.h
+- ext/dec_number/decNumber/config.guess
+- ext/dec_number/decNumber/example6.c
+- ext/dec_number/decNumber/configure.ac
+- ext/dec_number/decNumber/decDouble.c
+- ext/dec_number/decNumber/decQuad.c
+- ext/dec_number/decNumber/decimal64.h
+- ext/dec_number/decNumber/decNumberLocal.h
+- ext/dec_number/decNumber/decNumber.c
+- ext/dec_number/decNumber/libdecNumber.a
+- ext/dec_number/decNumber/example2.c
+- ext/dec_number/decNumber/install-sh
+- ext/dec_number/decNumber/decimal32.c
+- ext/dec_number/decNumber/example1.c
+- ext/dec_number/decNumber/depcomp
+- ext/dec_number/decNumber/decPacked.c
+- ext/dec_number/decNumber/decDPD.h
+- ext/dec_number/decNumber/config.sub
+- ext/dec_number/decNumber/example3.c
+- ext/dec_number/decNumber/decimal32.h
+- ext/dec_number/decNumber/example4.c
+- ext/dec_number/decNumber/example8.c
+- ext/dec_number/decNumber/Makefile.in
+- ext/dec_number/decNumber/ltmain.sh
+- ext/dec_number/decNumber/example7.c
+- ext/dec_number/decNumber/configure
+- ext/dec_number/decNumber/readme.txt
+- ext/dec_number/decNumber/decSingle.c
+- ext/dec_number/decNumber/aclocal.m4
+- ext/dec_number/decNumber/decQuad.h
+- ext/dec_number/decNumber/decDouble.h
+- ext/dec_number/decNumber/decContext.h
+- ext/dec_number/decNumber/decBasic.c
+- ext/dec_number/decNumber/decimal128.h
+- ext/dec_number/decNumber/decContext.c
+- ext/dec_number/decNumber/ICU-license.html
+- ext/dec_number/decNumber/decnumber.pdf
+- ext/dec_number/decNumber/autom4te.cache/output.1
+- ext/dec_number/decNumber/autom4te.cache/traces.2
+- ext/dec_number/decNumber/autom4te.cache/traces.0
+- ext/dec_number/decNumber/autom4te.cache/output.2
+- ext/dec_number/decNumber/autom4te.cache/traces.1
+- ext/dec_number/decNumber/autom4te.cache/traces.3
+- ext/dec_number/decNumber/autom4te.cache/requests
+- ext/dec_number/decNumber/autom4te.cache/output.3
+- ext/dec_number/decNumber/autom4te.cache/output.0
+- ext/dec_number/decNumber/decNumber.h
+- ext/dec_number/decNumber/missing
+- ext/dec_number/decNumber/example5.c
+- ext/dec_number/decNumber/decSingle.h
+- ext/dec_number/decNumber/decCommon.c
+- ext/dec_number/decNumber/decimal128.c
+- dec_number.gemspec
+- README
+homepage: http://github.com/rubypanther/dec_number
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: dec-number
+rubygems_version: 1.8.10
+signing_key: 
+specification_version: 3
+summary: ICU-decNumber wrapper for arbitrary precision math with context objects
+test_files: []