fixed gt and lt test cases

Signed-off-by: Skyball2000 <thomas3654william@gmail.com>
main
Yan Wittmann 2022-11-08 11:53:02 +01:00 committed by Skyball2000
parent 2bdb2c19ef
commit 16a5cd7a5a
1 changed files with 2 additions and 2 deletions

View File

@ -205,7 +205,7 @@ ltTest =
Expect.equal True (lt (1, 1, 1970) (1, 2, 2000))
, 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
@ -239,7 +239,7 @@ gtTest =
Expect.equal False (gt (1, 1, 1970) (1, 2, 2000))
, 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" <|
\() ->
Expect.equal True (gt (5, 1, 2000) (1, 1, 2000))