On Thu, 9 Oct 2003, Hill, Ronald wrote: > F:\perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, > 'blib\lib', 'blib\arch > )" t\00load.t t\01basic.t > t\00load.....ok > t\01basic....NOK 1# Failed test (t\01basic.t at line 35) > # got: '2000-06-19T07:54:00' > # expected: '2000-06-19T05:43:00' > t\01basic....NOK 2# Failed test (t\01basic.t at line 36) > # got: '2000-06-19T18:10:00' > # expected: '2000-06-19T20:03:00' > t\01basic....NOK 3# Failed test (t\01basic.t at line 38) > # got: '2000-06-19T07:54:00' > # expected: '2000-06-19T05:43:00' > t\01basic....NOK 4# Failed test (t\01basic.t at line 40) > # got: '2000-06-19T18:10:00' > # expected: '2000-06-19T20:03:00' > t\01basic....NOK 5# Failed test (t\01basic.t at line 43) > # got: '2000-06-20T07:54:00' > # expected: '2000-06-20T05:43:00' > t\01basic....NOK 6# Failed test (t\01basic.t at line 45) > # got: '2000-06-20T18:11:00' > # expected: '2000-06-20T20:03:00' > t\01basic....NOK 7# Failed test (t\01basic.t at line 48) > # got: '2000-06-18T07:54:00' > # expected: '2000-06-18T05:43:00' > t\01basic....NOK 8# Failed test (t\01basic.t at line 50) > # got: '2000-06-18T18:09:00' > # expected: '2000-06-18T20:03:00' > t\01basic....NOK 13# Failed test (t\01basic.t at line 74) > t\01basic....ok 15/15# Looks like you failed 9 tests of 15. > t\01basic....dubious
I just checked in a stopgap fix, which is to use int($dt->jd - $base_date->jd) In a future version of DateTime, there will be a method to subtract two datetimes and get your choice of units back, but for now this should work fine. -dave /*======================= House Absolute Consulting www.houseabsolute.com =======================*/
