tests/testthat/test-draw_cluster.R

In NCBI-Hackathons/HLAClustRView: HLA typing clustering and visualization based on specific similarity metrics

### Unit tests for functions in draw_cluster.R file

library(HLAClustRView)


data("demoHLADataset")

### Tests draw_dendrogram() function

context("Test for draw_dendrogram() function")

test_that("draw_dendrogram() must return error hlaMetric argument is string", {
    message <- "hlaMetric must be of class \"HLAMetric\""
    expect_error(draw_dendrogram(hlaMetric = "BigFoot"), message)
})

test_that("draw_dendrogram() must return error when as.phylo is not an logical", {

    hammingMetric <- calculateHamming(demoHLADataset)

    message <- "as.phylo must be of logical"
    expect_error(draw_dendrogram(hlaMetric=hammingMetric, as.phylo="allo"),
                    message)
})


### Tests draw_heatmap() function

context("Test for draw_heatmap() function")

test_that("draw_heatmap() must return error hlaMetric argument is string", {
    message <- "hlaMetric must be of class \"HLAMetric\""
    expect_error(draw_heatmap(hlaMetric = "Bonhomme Carnaval"), message)
})

test_that("draw_heatmap() must return an Heatmap class object", {

    hammingMetric <- calculateHamming(demoHLADataset)

    graphResult <- draw_heatmap(hammingMetric)

    expect_that(graphResult, is_a("Heatmap"))
})