From 1ef7022310ab2d044359bec8aa97ed99b8e18bf1 Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 27 Jun 2008 16:10:46 +0000 Subject: * time.c: fix rounding negative float. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@17617 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 4 ++++ test/ruby/test_time.rb | 21 +++++++++++++++++++++ time.c | 4 ++++ 3 files changed, 29 insertions(+) diff --git a/ChangeLog b/ChangeLog index 9898ad4cd5..a37f25a975 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +Sat Jun 28 01:08:42 2008 Tanaka Akira + + * time.c (time_timeval): fix rounding negative float. + Fri Jun 27 21:38:57 2008 Tanaka Akira * struct.c: __size__ removed. use the length of __members__ instead. diff --git a/test/ruby/test_time.rb b/test/ruby/test_time.rb index ad9b64ae0e..ae1a35ffad 100644 --- a/test/ruby/test_time.rb +++ b/test/ruby/test_time.rb @@ -71,4 +71,25 @@ class TestTime < Test::Unit::TestCase assert_equal(Time.at(0x7fffffff), Time.at(-0x80000000) - (-0xffffffff)) end end + + def test_at + assert_equal(100000, Time.at(0.1).usec) + assert_equal(10000, Time.at(0.01).usec) + assert_equal(1000, Time.at(0.001).usec) + assert_equal(100, Time.at(0.0001).usec) + assert_equal(10, Time.at(0.00001).usec) + assert_equal(1, Time.at(0.000001).usec) + assert_equal(0, Time.at(1e-7).usec) + assert_equal(0, Time.at(4e-7).usec) + assert_equal(1, Time.at(6e-7).usec) + assert_equal(1, Time.at(14e-7).usec) + assert_equal(2, Time.at(16e-7).usec) + if negative_time_t? + assert_equal(0, Time.at(-1e-7).usec) + assert_equal(0, Time.at(-4e-7).usec) + assert_equal(999999, Time.at(-6e-7).usec) + assert_equal(999999, Time.at(-14e-7).usec) + assert_equal(999998, Time.at(-16e-7).usec) + end + end end diff --git a/time.c b/time.c index a5c2619f4e..59e8721c29 100644 --- a/time.c +++ b/time.c @@ -192,6 +192,10 @@ time_timeval(time, interval) double f, d; d = modf(RFLOAT(time)->value, &f); + if (d < 0) { + d += 1; + f -= 1; + } t.tv_sec = (time_t)f; if (f != t.tv_sec) { rb_raise(rb_eRangeError, "%f out of Time range", RFLOAT(time)->value); -- cgit v1.2.3