ColorWheel/test/RGBTransformTest1.hs

module RGBTransformTest1 where

import ColorWheel.HSVTransformations
import ColorWheel.RGBDefinition


transformationTest1 :: IO ()
transformationTest1 = do
		result <- hsv2rgb 120 0.9 0.75
		if result == RGB {r = 19.125, g = 191.25, b = 19.125} 
			then
				print "OK!"
			else 
				print "FAIL!"