(define-test-module (test module sph time rfc3339)
  (import
    (sph time rfc3339))

  (test-execute-procedures-lambda
    (utc-ns-from-rfc3339
      "2003-12-13T18:30:02.25555-01:00"
      1071343802255550000
      "2003-12-13T18:30:02.25Z" 1071340202250000000)
    (utc-from-rfc3339 "2003-12-13T18:30:02+01:00" 1071336602
      "2003-12-13T18:30:02-01:00" 1071343802
      "2003-12-13T18:30:02.25Z" 1071340202 "2003-12-13T18:30:02Z" 1071340202)
    (utc->rfc3339 1071336602 "2003-12-13T17:30:02Z"
      (1071343802 -3600) "2003-12-13T18:30:02-01:00" (1071343802 3600) "2003-12-13T20:30:02+01:00")))