module UnitTests.KMeansSpec (spec) where

import Test.Hspec
import Test.QuickCheck

import KMeans

spec :: Spec
spec = parallel $ do
		describe "KMeans" $ do
			it "nearest cluster" $ do 
				nearest [1.0, 0] [[11.0, 0], [0, 0], [4343, 43], [-22, 4]] `shouldBe` [0.0, 0.0]
	
			it "nearest cluster when included" $ do 
				nearest [-22.0, 4] [[11.0, 0], [0, 0], [4343, 43], [-22, 4]] `shouldBe` [-22, 4]
