test_gh_issue_8.R
In gower: Gower's Distance

if (at_home()){
  dat1 <- iris[1:10,1:5,drop=FALSE]
  dat2 <- iris[6:15,1:5,drop=FALSE]

  nthrd1 <- gower_dist(dat1, dat2, nthread=1)
  nthrd2 <- gower_dist(dat1, dat2, nthread=2)
  nthrd4 <- gower_dist(dat1, dat2, nthread=4)
  nthrd7 <- gower_dist(dat1, dat2, nthread=7)

  expect_equal(nthrd1, nthrd2)
  expect_equal(nthrd1, nthrd4)
  expect_equal(nthrd1, nthrd7)


 # now with large numbers of records
  dat1 <- iris[rep(1:10,200),1:5,drop=FALSE]
  dat2 <- iris[rep(6:15,200),1:5,drop=FALSE]

  nthrd1 <- gower_dist(dat1, dat2, nthread=1)
  nthrd2 <- gower_dist(dat1, dat2, nthread=2)
  nthrd4 <- gower_dist(dat1, dat2, nthread=4)
  nthrd7 <- gower_dist(dat1, dat2, nthread=7)

  expect_equal(nthrd1, nthrd2)
  expect_equal(nthrd1, nthrd4)
  expect_equal(nthrd1, nthrd7)
}