diff options
author | tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2014-04-05 10:53:16 +0000 |
---|---|---|
committer | tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2014-04-05 10:53:16 +0000 |
commit | cce3aa754b9c69741f664b517cbbf97a6397960b (patch) | |
tree | 2417b21d6ae871574fed4210510189036fe3e5e0 | |
parent | 685af965fdfe99293f8fd5e06dbada1640543099 (diff) |
* ext/date/date_core.c (d_lite_cmp): should compare with #<.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@45520 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | ext/date/date_core.c | 2 | ||||
-rw-r--r-- | test/date/test_switch_hitter.rb | 2 |
3 files changed, 7 insertions, 1 deletions
@@ -1,3 +1,7 @@ +Sat Apr 5 19:36:33 2014 Tadayoshi Funaba <tadf@dotrb.org> + + * ext/date/date_core.c (d_lite_cmp): should compare with #<. + Sat Apr 5 00:31:21 2014 Nobuyoshi Nakada <nobu@ruby-lang.org> * ext/readline/extconf.rb (rl_hook_func_t): check pointer type. diff --git a/ext/date/date_core.c b/ext/date/date_core.c index 372f7bfd36..1685d15e61 100644 --- a/ext/date/date_core.c +++ b/ext/date/date_core.c @@ -6283,7 +6283,7 @@ d_lite_cmp(VALUE self, VALUE other) return INT2FIX(1); } } - else if (a_nth < b_nth) { + else if (f_lt_p(a_nth, b_nth)) { return INT2FIX(-1); } else { diff --git a/test/date/test_switch_hitter.rb b/test/date/test_switch_hitter.rb index f18d76b393..08e23015dc 100644 --- a/test/date/test_switch_hitter.rb +++ b/test/date/test_switch_hitter.rb @@ -312,6 +312,8 @@ class TestSH < Test::Unit::TestCase assert_equal(-1, Date.new(2001,2,3) <=> Rational('4903888/2')) assert_equal(0, Date.new(2001,2,3) <=> Rational('4903887/2')) assert_equal(1, Date.new(2001,2,3) <=> Rational('4903886/2')) + + assert_equal(-1, Date.new(-4713,11,1,Date::GREGORIAN) <=> Date.new(-4713,12,1,Date::GREGORIAN)) end def test_eqeqeq |