enso-org/enso
1
1
Fork 0
mirror of https://github.com/enso-org/enso.git synced 2025-01-03 23:22:15 +03:00
Code Issues Projects Releases Wiki Activity

Add tests for Date.until, Date.next and Date.previous. (#6606)

Browse Source
This commit is contained in:
GregoryTravis 2023-05-09 14:09:30 -04:00 committed by GitHub
parent d8b926922a
commit 7119811e7f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
distribution/lib/Standard/Base/0.0.0-dev/src/Data/Time/Date.enso
View File

@ -347,7 +347,7 @@ type Date
Period.between self end
## Counts the days between self (inclusive) and the provided end date
(exclusive).
(exclusive, or inclusive if include_end_date=True).
Produces a warning for a Date that is before epoch start.
See `Date_Time.enso_epoch_start`.

19
test/Tests/src/Data/Time/Date_Spec.enso
View File

@ -234,6 +234,25 @@ spec_with name create_new_date parse_date =
(create_new_date 2000 7 1).end_of Date_Period.Quarter . should_equal (Date.new 2000 9 30)
(create_new_date 2000 6 30).end_of Date_Period.Quarter . should_equal (Date.new 2000 6 30)
Test.specify "should allow to compute the next Date_Period after a date" <|
create_new_date 2000 2 1 . next Date_Period.Day . should_equal <| create_new_date 2000 2 2
create_new_date 2000 2 1 . next Date_Period.Month . should_equal <| create_new_date 2000 3 1
create_new_date 2000 2 1 . next Date_Period.Year . should_equal <| create_new_date 2001 2 1
Test.specify "should allow to compute the previous Date_Period after a date" <|
create_new_date 2000 2 1 . previous Date_Period.Day . should_equal <| create_new_date 2000 1 31
create_new_date 2000 2 1 . previous Date_Period.Month . should_equal <| create_new_date 2000 1 1
create_new_date 2000 2 1 . previous Date_Period.Year . should_equal <| create_new_date 1999 2 1
Test.specify "should allow to compute the Period between two dates." <|
create_new_date 2000 2 1 . until (create_new_date 2000 2 12) . should_equal <| Period.new 0 0 11
create_new_date 2000 2 1 . until (create_new_date 2000 12 12) . should_equal <| Period.new 0 10 11
create_new_date 2000 2 1 . until (create_new_date 2010 2 12) . should_equal <| Period.new 10 0 11
create_new_date 2000 2 12 . until (create_new_date 2000 2 1) . should_equal <| Period.new 0 0 -11
create_new_date 2000 12 12 . until (create_new_date 2000 2 1) . should_equal <| Period.new 0 -10 -11
create_new_date 2010 2 12 . until (create_new_date 2000 2 1) . should_equal <| Period.new -10 0 -11
Test.specify "should allow to compute the number of days until a date" <|
create_new_date 2000 2 1 . days_until (create_new_date 2000 2 1) . should_equal 0
create_new_date 2000 2 1 . days_until (create_new_date 2000 2 2) . should_equal 1