      let m = defaultMaterial
      let pos = RTCTuple.point 0.0 0.0 0.0
      let eyev = RTCTuple.vector 0.0 0.0 (-1.0)
      let normalv = RTCTuple.vector 0.0 0.0 (-1.0)
      let light1 = pointLight (Color (1.0,1.0, 1.0 )) (RTCTuple.point 0.0 0.0 (-10.0))
      let result = lighting m light1 pos eyev normalv

      it "result = Color (1.9,1.9,1.9)" $
        (Color (1.9, 1.9, 1.9)) ==result `shouldBe` True