tests/testthat/test-is_positive_integer.R

In hadexversum/IAOPeptideReader: A Web Application for Analysing IAO Peptide Files

test_that("is_positive_integer function works", {
    x1 <- 1
    x2 <- 100
    x3 <- 1.3
    x4 <- NA
    x5 <- NULL
    x6 <- FALSE
    x7 <- 0

    r1 <- TRUE
    r2 <- TRUE
    r3 <- FALSE
    r4 <- FALSE
    r5 <- FALSE
    r6 <- FALSE
    r7 <- FALSE

    expect_equal(is_positive_integer(x1), r1)
    expect_equal(is_positive_integer(x2), r2)
    expect_equal(is_positive_integer(x3), r3)
    expect_equal(is_positive_integer(x4), r4)
    expect_equal(is_positive_integer(x5), r5)
    expect_equal(is_positive_integer(x6), r6)
    expect_equal(is_positive_integer(x7), r7)
})