exercism

Exercism solutions.
git clone git://code.dwrz.net/exercism
Log | Files | Refs

leap-test.el (485B)

      1 ;;; leap-test.el --- Tests for Leap exercise (exercism)
      2 
      3 ;;; Commentary:
      4 
      5 ;;; Code:
      6 (load-file "leap.el")
      7 
      8 (ert-deftest vanilla-leap-year ()
      9   (should (leap-year-p 1996)))
     10 
     11 (ert-deftest any-old-year ()
     12   (should-not (leap-year-p 1997)))
     13 
     14 (ert-deftest non-leap-even-year ()
     15   (should-not (leap-year-p 1997)))
     16 
     17 (ert-deftest century ()
     18   (should-not (leap-year-p 1900)))
     19 
     20 (ert-deftest exceptional-century ()
     21   (should (leap-year-p 2000)))
     22 
     23 (provide 'leap-test)
     24 ;;; leap-test.el ends here