From 839f117c3a4f73960b4d6da4110579ef16e3e3f3 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 13 Jan 2014 14:53:48 +0000 Subject: [PATCH] Add a few next anniversary tests --- Data/Time/Calendar/Hebrew.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Data/Time/Calendar/Hebrew.hs b/Data/Time/Calendar/Hebrew.hs index 67075eb..fb5eb0c 100644 --- a/Data/Time/Calendar/Hebrew.hs +++ b/Data/Time/Calendar/Hebrew.hs @@ -491,6 +491,10 @@ caseNextAnniversary = do nextAnniversary (HebrewDate 5770 Tishrei 1) (HebrewDate 1 Tishrei 2) HebrewDate 5771 Tishrei 2 @=? nextAnniversary (HebrewDate 5770 Tishrei 3) (HebrewDate 1 Tishrei 2) + HebrewDate 5775 Adar 1 @=? + nextAnniversary (HebrewDate 5775 Tishrei 1) (HebrewDate 5774 Adar2 1) + HebrewDate 5775 Cheshvan 29 @=? + nextAnniversary (HebrewDate 5775 Tishrei 1) (HebrewDate 5774 Cheshvan 30) ------ testing testSuite :: Test