          resultInfectionAttacks `shouldBe` expectedInfectionAttacks

  describe "dealDamage" $ do
      context "given attacking group deals 79 damage to defending group of 10units * 10hp" $ do
        it "defending group loses 7 units " $ do
          let attackingGroup = Group 0 Infection 1 10 [] [] "fire" 79 1
          let defGroup = Group 0 ImmuneSystem 10 10 [] [] "fire" 9 1
          let result = dealDamage attackingGroup defGroup
          amountOfUnits result `shouldBe` 3
      context "given attacking group deals 80 damage to defending group of 10units * 10hp" $ do
        it "defending group loses 8 units" $ do
          let attackingGroup = Group 0 Infection 1 10 [] [] "fire" 80 1
          let defGroup = Group 0 ImmuneSystem 10 10 [] [] "fire" 9 1
          let result = dealDamage attackingGroup defGroup