Sha256: 4c22522ba285ec7de77791ce486a3d16beb72b9c0476e8078e34f88375a43919
Contents?: true
Size: 1.36 KB
Versions: 141
Compression:
Stored size: 1.36 KB
Contents
port module Main exposing (..)
import Test.Runner.Node exposing (run, TestProgram)
import Json.Encode exposing (Value)
import Test exposing (..)
import Expect
import Date
import Gigasecond exposing (add)
tests : Test
tests =
describe "Gigasecond"
[ describe "add"
[ test "2011-04-25" <|
\() ->
Expect.equal (date "2043-01-01T01:46:40") (Gigasecond.add (date "2011-04-25"))
, test "1977-06-13" <|
\() ->
Expect.equal (date "2009-02-19T01:46:40") (Gigasecond.add (date "1977-06-13"))
, test "1959-07-19" <|
\() ->
Expect.equal (date "1991-03-27T01:46:40") (Gigasecond.add (date "1959-07-19"))
, test "full time specified" <|
\() ->
Expect.equal (date "2046-10-02T23:46:40") (Gigasecond.add (date "2015-01-24T22:00:00"))
, test "full time with day roll-over" <|
\() ->
Expect.equal (date "2046-10-03T01:46:39") (Gigasecond.add (date "2015-01-24T23:59:59"))
]
]
date : String -> Date.Date
date input =
case Date.fromString input of
Ok date ->
date
Err reason ->
Debug.crash reason
main : TestProgram
main =
run emit tests
port emit : ( String, Value ) -> Cmd msg
Version data entries
141 entries across 141 versions & 1 rubygems