tests/testthat/test-truncate-spikes.R

In adnaniazi/tailfindr: Poly(A) Tail Length Estimator for Oxford Nanopore RNA and DNA Reads

context("Truncate spike")

test_that("testing truncate spikes", {
    data <- c(1, 1, 2, 2, 3, 3, 4, 4, -1, -1, -2, -2, -3, -3, -4, -4)
    expected_data <- c(1, 1, 2, 2, 2, 2, 2, 2, -1, -1, -2, -2, -2, -2, -2, -2)
    expect_equal(truncate_spikes(data, 2), expected_data)

    data <- c(1, 1, 2, 2, 3, 3, 4, 4)
    expected_data <- c(1, 1, 2, 2, 2, 2, 2, 2)
    expect_equal(truncate_spikes(data, 2), expected_data)

    data <- c( -1, -1, -2, -2, -3, -3, -4, -4)
    expected_data <- c(-1, -1, -2, -2, -2, -2, -2, -2)
    expect_equal(truncate_spikes(data, 2), expected_data)

})