;; Load SRFI-64 lightweight testing specification
(use-modules (srfi srfi-64))

;; Require bob impl
(add-to-load-path (dirname (current-filename)))
(use-modules (leap-year))

(test-begin "leap-year")

(test-eqv "vanilla-leap-year"
          #t
          (leap-year? 1996))

(test-eqv "any-old-year"
          #f
          (leap-year? 1997))

(test-eqv "non-leap-even-year"
          #f
          (leap-year? 1998))

(test-eqv "century"
          #f
          (leap-year? 1900))

(test-eqv "exceptional-century"
          #t
          (leap-year? 2400))

(test-end "leap-year")

;; Load SRFI-64 lightweight testing specification
(use-modules (srfi srfi-64))

;; Require module
(add-to-load-path (dirname (current-filename)))
(use-modules (leap-year))

(test-begin "leap-year")

(test-eqv "vanilla-leap-year"
          #t
          (leap-year? 1996))

(test-eqv "any-old-year"
          #f
          (leap-year? 1997))

(test-eqv "non-leap-even-year"
          #f
          (leap-year? 1998))

(test-eqv "century"
          #f
          (leap-year? 1900))

(test-eqv "exceptional-century"
          #t
          (leap-year? 2400))

(test-end "leap-year")

Fix comment on module import
Fix comment on module import
