NPTEL Haskell 2015, HSpec test for Assignment 2

Nptel_ass2_test_hspec.hs

module Nptel_ass2_test_hspec where

import Nptel_ass2
import Test.Hspec

main :: IO ()
main = hspec $ do
  describe "Assignment 2" $ do
    describe "ramanujan" $ do
        it "Test Case 1" $ do
            (ramanujan 1) `shouldBe` 1729
        it "Test Case 2" $ do
            (ramanujan 2) `shouldBe` 4104 
        it "Test Case 3" $ do
            (ramanujan 3) `shouldBe` 13832
        it "Test Case 4" $ do
            (ramanujan 4) `shouldBe` 20683