Changeset 36217 in project


Ignore:
Timestamp:
08/12/18 10:23:57 (9 days ago)
Author:
sjamaan
Message:

rfc3339->seconds returns an exact integer now

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/rfc3339/trunk/tests/run.scm

    r36173 r36217  
    22
    33(test-begin "rfc3339->seconds")
    4 (test "1970-01-01T00:00:00-00:00" 0.0 (rfc3339->seconds (rfc3339 "1970-01-01T00:00:00-00:00")))
    5 (test "1969-12-31T20:40:00-03:20" 0.0 (rfc3339->seconds (rfc3339 "1969-12-31T20:40:00-03:20")))
    6 (test "1970-01-01T03:01:00+03:00" 60.0 (rfc3339->seconds (rfc3339 "1970-01-01T03:01:00+03:00")))
    7 (test "2000-02-28T23:00:00-01:00" 951782400.0 (rfc3339->seconds (rfc3339 "2000-02-28T23:00:00-01:00")))
     4(test "1970-01-01T00:00:00-00:00" 0 (rfc3339->seconds (rfc3339 "1970-01-01T00:00:00-00:00")))
     5(test "1969-12-31T20:40:00-03:20" 0 (rfc3339->seconds (rfc3339 "1969-12-31T20:40:00-03:20")))
     6(test "1970-01-01T03:01:00+03:00" 60 (rfc3339->seconds (rfc3339 "1970-01-01T03:01:00+03:00")))
     7(test "2000-02-28T23:00:00-01:00" 951782400 (rfc3339->seconds (rfc3339 "2000-02-28T23:00:00-01:00")))
    88(test-end)
    99
    1010(test-begin "seconds->rfc3339")
    1111(test "1970-01-01T00:00:00Z" "1970-01-01T00:00:00Z" (rfc3339->string (seconds->rfc3339 0)))
    12 (test "2000-02-29T00:00:00Z" "2000-02-29T00:00:00Z" (rfc3339->string (seconds->rfc3339 951782400.0)))
     12(test "2000-02-29T00:00:00Z" "2000-02-29T00:00:00Z" (rfc3339->string (seconds->rfc3339 951782400)))
    1313(test-end)
    1414
Note: See TracChangeset for help on using the changeset viewer.