Skip to content

Instantly share code, notes, and snippets.

@bChiquet

bChiquet/testExample.hs

Created September 9, 2016 17:26
Show Gist options
  • Save bChiquet/3a16cf11d1a0d8f4d98e4a2a8bdfe760 to your computer and use it in GitHub Desktop.
Save bChiquet/3a16cf11d1a0d8f4d98e4a2a8bdfe760 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
testExample.hs
main = do
hspec $ do
describe "thisYearCoef" $ do
it "starts at 100" $ do
thisYearCoef New `shouldBe` 100
it "decreases by 5percent from previous year without accident" $ do
thisYearCoef (Existing 100) `shouldBe` 95
thisYearCoef (Existing 95) `shouldBe` 90
thisYearCoef (Existing 80) `shouldBe` 76
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment