tests/testthat/test-ClusterWaters.R

In vanddraabe: Identification and Statistical Analysis of Conserved Waters Near Proteins

## test-ClusterWaters.R
##
## aug-03-2017 (exe) created
##
## Please direct all questions to Emilio Xavier Esposito, PhD
## exeResearch LLC, East Lansing, Michigan 48823 USA
## http://www.exeResearch.com
## emilio AT exeResearch DOT com
## emilio DOT esposito AT gmail DOT com
##
## Copyright (c) 2017, Emilio Xavier Esposito
##
## Permission is hereby granted, free of charge, to any person obtaining
## a copy of this software and associated documentation files (the
## "Software"), to deal in the Software without restriction, including
## without limitation the rights to use, copy, modify, merge, publish,
## distribute, sublicense, and/or sell copies of the Software, and to
## permit persons to whom the Software is furnished to do so, subject to
## the following conditions:
##
## The above copyright notice and this permission notice shall be
## included in all copies or substantial portions of the Software.
##
## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
## EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
## MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
## NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
## LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
## OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
## WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
##
## Based on http://opensource.org/licenses/MIT
##


context("ClusterWaters")

## load data file --------------------------------------------------------------
load(file="vanddraabe_DataForTesting.rda")

## check.cluster.method --------------------------------------------------------
test_that("check cluster method works", {
  expect_equal(check.cluster.method("ward.d"),   "ward.D")
  expect_equal(check.cluster.method("ward.d2"),  "ward.D2")
  expect_equal(check.cluster.method("single"),   "single")
  expect_equal(check.cluster.method("complete"), "complete")
  check.cluster.method.error <- "Please select one of the following clustering methods"
  expect_error(check.cluster.method("blah"), check.cluster.method.error)
})