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))
|
||||
, 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))
|
||||
|
|
Loading…
Reference in New Issue