fixed gt and lt test cases
Signed-off-by: Skyball2000 <thomas3654william@gmail.com>main
parent
2bdb2c19ef
commit
16a5cd7a5a
|
@ -205,7 +205,7 @@ ltTest =
|
||||||
Expect.equal True (lt (1, 1, 1970) (1, 2, 2000))
|
Expect.equal True (lt (1, 1, 1970) (1, 2, 2000))
|
||||||
, test "lt 01.01.2000 01.01.1999" <|
|
, test "lt 01.01.2000 01.01.1999" <|
|
||||||
\() ->
|
\() ->
|
||||||
Expect.equal False (lt (1, 1, 1970) (1, 1, 1999))
|
Expect.equal False (lt (1, 1, 2000) (1, 1, 1999))
|
||||||
]
|
]
|
||||||
|
|
||||||
eqTest : Test
|
eqTest : Test
|
||||||
|
@ -239,7 +239,7 @@ gtTest =
|
||||||
Expect.equal False (gt (1, 1, 1970) (1, 2, 2000))
|
Expect.equal False (gt (1, 1, 1970) (1, 2, 2000))
|
||||||
, test "gt 01.01.2000 01.01.1999" <|
|
, test "gt 01.01.2000 01.01.1999" <|
|
||||||
\() ->
|
\() ->
|
||||||
Expect.equal True (gt (1, 1, 1970) (1, 1, 1999))
|
Expect.equal True (gt (1, 1, 2000) (1, 1, 1999))
|
||||||
, test "gt 05.01.2000 01.01.2000" <|
|
, test "gt 05.01.2000 01.01.2000" <|
|
||||||
\() ->
|
\() ->
|
||||||
Expect.equal True (gt (5, 1, 2000) (1, 1, 2000))
|
Expect.equal True (gt (5, 1, 2000) (1, 1, 2000))
|
||||||
|
|
Loading…
Reference in New Issue