Miroirs/fOOrth
1
0
Fork 0
mirror of https://github.com/PeterCamilleri/fOOrth synced 2024-11-16 07:47:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added the coerce protocol to Rational.

Browse source
This commit is contained in:
Peter Camilleri 2015-01-10 16:23:32 -05:00
parent 70bec082e3
commit 8cca7f069f
2 changed files with 70 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lib/fOOrth/monkey_patch/rational.rb
View file

@ -8,4 +8,27 @@ class Rational
def foorth_embed
"'#{self.to_s}'.to_r"
end
#Argument coercion methods.
#Coerce the argument to match my type.
def foorth_coerce(arg)
Rational(arg)
rescue
error "Cannot coerce a #{arg.foorth_name} to a #{self.foorth_name}"
end
#Coerce the argument to match my type with min/max support.
def foorth_mnmx_coerce(arg)
Rational(arg)
rescue
if arg == MaxNumeric
MaxNumeric
elsif arg == MinNumeric
MinNumeric
else
error "Cannot coerce a #{arg.foorth_name} to a #{self.foorth_name}"
end
end
end

48
tests/monkey_patch/coerce_test.rb
View file

@ -10,7 +10,7 @@ class CoerceProtocolTester < MiniTest::Unit::TestCase
#Track mini-test progress.
MinitestVisible.track self, __FILE__
#Test that it embeds
#Test the default stubs.
def test_object_stubs
obj = Object.new
@ -84,7 +84,53 @@ class CoerceProtocolTester < MiniTest::Unit::TestCase
end
def test_coerce_for_rationals
obj = Object.new
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_coerce(42))
assert_equal(Rational, ('3/1'.to_r).foorth_coerce(42).class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_coerce(42.0))
assert_equal(Rational, ('3/1'.to_r).foorth_coerce(42.0).class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_coerce('42'))
assert_equal(Rational, ('3/1'.to_r).foorth_coerce('42').class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_coerce('42.0'))
assert_equal(Rational, ('3/1'.to_r).foorth_coerce('42.0').class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_coerce('42/1'))
assert_equal(Rational, ('3/1'.to_r).foorth_coerce('42/1').class)
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_coerce('turnip') }
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_coerce(obj) }
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_coerce(nil) }
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_coerce(MaxNumeric) }
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_coerce(MinNumeric) }
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_mnmx_coerce(42))
assert_equal(Rational, ('3/1'.to_r).foorth_mnmx_coerce(42).class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_mnmx_coerce(42.0))
assert_equal(Rational, ('3/1'.to_r).foorth_mnmx_coerce(42.0).class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_mnmx_coerce('42'))
assert_equal(Rational, ('3/1'.to_r).foorth_mnmx_coerce('42').class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_mnmx_coerce('42.0'))
assert_equal(Rational, ('3/1'.to_r).foorth_mnmx_coerce('42.0').class)
assert_equal('42/1'.to_r, ('3/1'.to_r).foorth_mnmx_coerce('42/1'))
assert_equal(Rational, ('3/1'.to_r).foorth_mnmx_coerce('42/1').class)
assert_equal(MaxNumeric, ('3/1'.to_r).foorth_mnmx_coerce(MaxNumeric))
assert_equal(MinNumeric, ('3/1'.to_r).foorth_mnmx_coerce(MinNumeric))
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_mnmx_coerce('turnip') }
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_mnmx_coerce(obj) }
assert_raises(XfOOrth::XfOOrthError) { ('3/1'.to_r).foorth_mnmx_coerce(nil) }
end
end