tests/testthat/test-chartopts.R

In qtlcharts: Interactive Graphics for QTL Experiments

context("chartOpts")

test_that("add2chartOpts works correctly", {

    # adding something to a NULL
    expect_equal(list(height=500), add2chartOpts(NULL, height=500))

    # adding two things to a NULL
    expect_equal(list(height=500, width=1000),
                 add2chartOpts(NULL, height=500, width=1000))

    # adding something to a list
    expect_equal(list(title="title", xlab="xlab", height=300),
                 add2chartOpts(list(title="title", xlab="xlab"), height=300))

    # adding two things to a list
    expect_equal(list(title="title", xlab="xlab", height=300, width=600),
                 add2chartOpts(list(title="title", xlab="xlab"), height=300, width=600))

    # adding something that's already there
    expect_equal(list(title="title", height=300),
                 add2chartOpts(list(title="title", height=300), height=600))
    expect_equal(list(height=300, title="title"),
                 add2chartOpts(list(height=300, title="title"), height=600))
    expect_equal(list(title="title", height=300, width=500),
                 add2chartOpts(list(title="title", height=300), height=600, width=500))
    expect_equal(list(height=300, title="title", width=500),
                 add2chartOpts(list(height=300, title="title"), width=500, height=600))

    # adding two things that are already there
    expect_equal(list(title="title", height=300, width=500),
                 add2chartOpts(list(title="title", height=300, width=500), height=600, width=1000))
    expect_equal(list(title="title", height=300, width=500),
                 add2chartOpts(list(title="title", height=300, width=500), width=1000, height=600))
    expect_equal(list(title="title", height=300, width=500, xlab="xlab"),
                 add2chartOpts(list(title="title", height=300, width=500),
                               height=600, width=1000, xlab="xlab"))


})