From f959f61f425093e0c82987cc6827947b3279232c Mon Sep 17 00:00:00 2001
From: Liang-Chi Hsieh <viirya@gmail.com>
Date: Wed, 24 Feb 2016 13:43:49 +0000
Subject: [PATCH] Sort resulted clusters.

---
 R/pkg/inst/tests/testthat/test_mllib.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/pkg/inst/tests/testthat/test_mllib.R b/R/pkg/inst/tests/testthat/test_mllib.R
index 595512e0e0d3a..af84a0abcf94d 100644
--- a/R/pkg/inst/tests/testthat/test_mllib.R
+++ b/R/pkg/inst/tests/testthat/test_mllib.R
@@ -130,7 +130,7 @@ test_that("kmeans", {
 
   # Test stats::kmeans is working
   statsModel <- kmeans(x = newIris, centers = 2)
-  expect_equal(unique(statsModel$cluster), c(1, 2))
+  expect_equal(sort(unique(statsModel$cluster)), c(1, 2))
 
   # Test fitted works on KMeans
   fitted.model <- fitted(model)