Skip to content

Instantly share code, notes, and snippets.

@yenda

yenda/gist:818c9a09836416ad07573c1ed85a3418

Last active November 13, 2024 10:12
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save yenda/818c9a09836416ad07573c1ed85a3418 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save yenda/818c9a09836416ad07573c1ed85a3418 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(tests
"Based on ISO 8601 week date in Berlin Timezone, week starts at the
correct instant"
(tests
"in the first week"
(get-week-start 1 1978) := "1978-01-02T00:00:00+01:00"
(get-week-start 1 1979) := "1979-01-01T00:00:00+01:00"
(get-week-start 1 1980) := "1979-12-31T00:00:00+01:00"
(get-week-start 1 1981) := "1980-12-29T00:00:00+01:00")
(tests
"in the last week"
(get-week-start 53 1976) := "1976-12-27T00:00:00+01:00"
(get-week-start 52 1977) := "1977-12-26T00:00:00+01:00"
(get-week-start 52 1978) := "1978-12-25T00:00:00+01:00"
(get-week-start 52 1979) := "1979-12-24T00:00:00+01:00"
(get-week-start 52 1980) := "1980-12-22T00:00:00+01:00"
(get-week-start 53 1981) := "1981-12-28T00:00:00+01:00"))
(deftest test-get-week-start
(testing "Based on ISO 8601 week date in Berlin Timezone, week starts at the
correct instant"
(testing"in the first week"
(is (= "1978-01-02T00:00:00+01:00" (get-week-start 1 1978)))
(is (= "1979-01-01T00:00:00+01:00" (get-week-start 1 1979)))
(is (= "1979-12-31T00:00:00+01:00" (get-week-start 1 1980)))
(is (= "1980-12-29T00:00:00+01:00" (get-week-start 1 1981))))
(testing
"in the last week"
(is (= "1976-12-27T00:00:00+01:00" (get-week-start 53 1976)))
(is (= "1977-12-26T00:00:00+01:00" (get-week-start 52 1977)))
(is (= "1978-12-25T00:00:00+01:00" (get-week-start 52 1978)))
(is (= "1979-12-24T00:00:00+01:00" (get-week-start 52 1979)))
(is (= "1980-12-22T00:00:00+01:00" (get-week-start 52 1980)))
(is (= "1981-12-28T00:00:00+01:00" (get-week-start 53 1981)))))
(testing
(is (= "2024-05-20T00:00:00+02:00" (get-week-start 21 2024)))
(is (= "2024-05-27T00:00:00+02:00" (get-week-start 22 2024)))))
(tests
(get-week-start 21 2024) := "2024-05-20T00:00:00+02:00"
(get-week-start 22 2024) := "2024-05-27T00:00:00+02:00")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment