test_that("returns a ggplot object", {
	x <- matrix(data = rnorm(100), nrow = 10)
	p <- heatmap(x)
	inherits(p, 'ggplot')
})

test_that("returns a ggplot object with labels", {
	x <- matrix(data = rnorm(100), nrow = 10)
	p <- heatmap(x, labels = TRUE)
	inherits(p, 'ggplot')
})

test_that("returns a ggplot object with labels and title", {
	x <- matrix(data = rnorm(100), nrow = 10)
	p <- heatmap(x, title = 'test', labels = TRUE)
	inherits(p, 'ggplot')
})

test_that("returns a ggplot object with title", {
	x <- matrix(data = rnorm(100), nrow = 10)
	p <- heatmap(x, title = 'test')
	inherits(p, 'ggplot')
})